Переберите каждый лист, чтобы получить значения ячеек для переноса на другой лист, в котором перечислены все полученные значения?

Question

Дополнительные сведения:

У меня есть одна рабочая книга.Существует несколько рабочих таблиц с именем «Test XXX», отформатированных одинаково.У меня есть один рабочий лист с именем «Таблица».Цель состоит в том, чтобы пройтись по каждому листу тестирования и получить определенное значение ячейки (например, «B2»).В рабочей таблице Table каждое значение 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