循环浏览每个工作表，以获取单元格值以传输到另一个工作表，该工作表列出了所有获得的值？

Question

其他详细信息：

我有一本工作簿。有几个名为“测试XXX”的工作表，其格式均相同。我有一个名为“表”的工作表。目标是遍历每个测试工作表并获得特定的单元格值（例如“ B2”）。表格工作表将以表格格式（即一行到一个测试表值）列出每个B2值。

到目前为止的

代码：

Sub loopsheets()

Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name Like "Test*" Then

Next ws

End Sub

Answer 1

不太确定问题出在哪里，但是可以这样做。

Sub loopsheets()

Dim ws As Worksheet, n As Long

For Each ws In Worksheets
    If ws.Name Like "Test*" Then
        n = n + 1
        Worksheets("Table").Cells(n, 1).Value = ws.Range("B2").Value
    End If
Next ws

End Sub