VBA list所有sheet

在 VBA 中，可以使用 `Sheets` 集合来访问所有的工作表。以下是一个简单的代码示例，可以列出所有工作表的名称：

Sub ListAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        Debug.Print ws.Name
    Next ws
End Sub

以上代码会在 VBA 的“立即窗口”中输出所有工作表的名称。如果想要将这些名称输出到工作表中，可以将 `Debug.Print ws.Name` 改为 `Range("A" & i).Value = ws.Name`，其中 `i` 为行号。