excel - 如何使用宏/vba 获取所有工作表名称及其特定单元格值？

Question

我已经有一个将所有工作表名称放入一个单元格的代码，但我也想获取每个工作表中特定单元格的值。

标签： excelvbaexcel-formula

Answer 1

此代码假定您有一个名为“列表”的工作表，您希望在其中显示其他工作表的值。

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1


For Each ws In Worksheets
     If ws.Name <> "List" Then
        Sheets("List").Cells(x - 1, 1) = ws.Name
        Sheets("List").Cells(x - 1, 2) = ws.Range("a1").Value
     End If
     x = x + 1
     
Next ws

End Sub