如何使用循环将主工作簿中工作表中的数据粘贴到最多 30 个其他工作簿中？

Question

我正在尝试从主文件复制数据，然后将其粘贴到已经循环打开的工作簿中。

它卡在

If WS.Name = WB.Sheets("FX Rates") Then

Sub Update_Files()

Dim WB As Workbook
Dim WS As Worksheet
Dim Master As Workbook

Set Master = ThisWorkbook

ThisWorkbook.Sheets("FX").Range("A1:I148").Select
Selection.Copy

For Each WB In Application.Workbooks
    If WB.Name <> "Master File.xlsb" Then
        If WS.Name = WB.Sheets("FX Rates") Then
            'Paste FX data from Master
            Range("A1").PasteSpecial xlpastevalues
        End If
    End If
Next WB

Answer 1

正如所评论的那样，看起来您缺少工作表的循环。目前，您只是循环浏览工作簿，而不是工作表。

添加了一个循环来解决这个问题。代码遍历每个打开的工作簿，检查名称。 If Name <> "Master File.xlsb"，然后继续下一个循环。 第二个循环遍历当前工作簿中的每个工作表，并检查其名称是否等于"FX Rates"，如果是，则粘贴复制的选择并继续循环。

然而，有更多类似 VBA 的方法可以实现同样的事情，但这回答了你的问题。它编译并运行得很好。

Sub Update_Files()
    
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim Master As Workbook
    
    Set Master = ThisWorkbook
    
    ThisWorkbook.Sheets("FX").Range("A1:I148").Select
    Selection.Copy

    For Each WB In Application.Workbooks
        If WB.Name <> "Master File.xlsb" Then
            For Each WS In WB.Worksheets
                If WS.Name = "FX Rates" Then
                    'Paste FX data from Master
                    WS.Range("A1").PasteSpecial xlPasteValues
                End If
            Next WS
        End If
    Next WB

End Sub