遍历工作表列表并将粘贴数据复制到摘要表中

Question

大家好，我正在尝试遍历在特定范围内命名的特定工作表列表，然后将这些工作表中的粘贴数据复制到摘要表中。

到目前为止，我有这个代码：

Sub MacroToDoTheWork()

Dim ws As Worksheet
Dim ZeileUntersucht As Integer
Dim ZeileEintragen As Integer
Dim sheet_name As Range


ZeileUntersucht = 17  
ZeileEintragen = 2

For each sheet_name in Sheets("Frontend").Range("L21:L49")

 For ZeileUntersucht = 20 To 515
    If ws.Cells(ZeileUntersucht, 238).Value = "yes" Then
        Worksheets("Market Place Output").Cells(ZeileEintragen, 1) = ws.Cells(ZeileUntersucht, 1)
        ZeileEintragen = ZeileEintragen + 1

    End If
Next ZeileUntersucht

Next sheet_name

End Sub

For 循环正在工作并遍历选定的工作表范围以检查条件并将值粘贴到另一个工作表中。我遇到的问题是 For each 循环。使此循环适用于工作表列表。 Frontend Range L21:L49 是存储工作表名称的范围。

如果您需要更多信息，请询问

Answer 1

您可以从Range 到sheet_names 数组中读取所有工作表名称。

稍后，当循环遍历ThisWorkbook 中的所有Sheets 时，您可以使用Match 函数检查循环中的当前工作表是否与数组中的名称之一匹配。

注意：如果您尝试以其他方式执行此操作，循环通过 Sheets("Frontend").Range("L21:L49") 中的工作表名称，然后使用该工作表的名称，您可能会遇到运行时错误, 如果工作表名称不会出现在工作簿的任何工作表中。

修改后的代码

Dim Sht As Worksheet
Dim sheet_names As Variant

' getting the sheet names inside an array
sheet_names = Application.Transpose(Sheets("Frontend").Range("L21:L49").Value)

' loop through worksheets
For Each Sht In ThisWorkbook.Sheets
    ' use Macth function to check if current sheet's name matches one of the sheets in your Range
    If Not IsError(Application.Match(Sht.Name, sheet_names, 0)) Then
        ' do here your copy Paste


    End If

Next Sht

Answer 2

我没有完全理解你的问题，但我想它会得到解决，如果你这样尝试：

For Each sheet_name In Sheets("Frontend").Range("L21:L49")
    Set ws = Worksheets(sheet_name.Text)
    For ZeileUntersucht = 20 To 515
        If ws.Cells(ZeileUntersucht, 238).Value = "yes" Then
            Worksheets("Market Place Output").Cells(ZeileEintragen, 1) = ws.Cells(ZeileUntersucht, 1)
            ZeileEintragen = ZeileEintragen + 1
        End If
    Next ZeileUntersucht
Next sheet_name

如果您认为sheet_name 是工作表的名称，那么它应该可以工作。

---

两个想法：

• 避免在 VBA 的变量名中使用 _，有些人讨厌它。
• Why Use Integer Instead of Long?