如何秀出所有可見之sheet name

小舖文

看到有人在問，如何用 VBA 把 Excel 內的 Sheet 排除隱藏的部份，列出清單。

其實這只要用到 Sheets.Count 和 Visible 就可以了。

For i = 1 To Sheets.Count
    If Sheets(i).Visible = xlSheetVisible Then Cells(i, 1).Value = Sheets(i).Name
Next i

很簡單，所以就不截圖了。