循环工作表并根据动态工作表引用执行计算

Question

是否可以遍历工作表列表并执行一些具有来自不同工作表列表的工作表引用的计算？例如，您有一个工作表列表（列表 1），它将作为计算的目标，并且您有第二个工作表列表（列表 2）作为计算的基础。因此，假设列表 1 中有 sheet1 和 sheet2，列表 2 中有 sheetA 和 sheetB。基于 sheetA 的计算将出现在 sheet1 中，基于 sheetB 的计算将出现在 sheet2 中。我认为代码看起来像这样：

Sub LoopthroughWorksheets()
Dim sheet_name As Range
Dim sheet_name2 As Range
Set sheet_name2 = Sheets("WS").Range("F:F")
For Each sheet_name In Sheets("WS").Range("C:C")
    If sheet_name.Value = "" Then
        Exit For
    Else
        With Sheets(sheet_name.Value)
                .Range("K1") = .Range("sheet_name2.Value!A14").Value
        End With
    End If
    Next sheet_name
End Sub

我在此行收到“运行时错误 '1004：应用程序定义或对象定义错误”：.Range("K1") = .Range("sheet_name2.Value!A14").Value

非常感谢任何帮助。

问候，

Answer 1

是的，有可能，但你的代码是错误的。

您必须以某种方式遍历 C 和 F 列，然后检索匹配的工作表名称：

Sub LoopthroughWorksheets()
    Dim sheet_name As Range
    Dim sheet_name2 As Range
    Set sheet_name2 = Sheets("WS").Range("F:F")
    ' NEW
    Dim counter As Long
    counter = 1

    For Each sheet_name In Sheets("WS").Range("C:C")
        If sheet_name.Value = "" Then
            Exit For
        Else
            With Sheets(sheet_name.Value)
                .Range("K1").Value = Sheets(sheet_name2(counter, 1).Value).Range("A14").Value
                ' NEW                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                   
                counter = counter + 1
            End With
        End If
    Next sheet_name
End Sub