VBA将活动单元格数据复制到所有活动工作表错误

Question

我有3张纸和1张主纸。 我想将master中的单元格数据复制到其余的工作表中。 它总是引发“运行时错误1004.任何人都可以帮忙吗？

Private Sub Worksheet_Change(ByVal Target As Range)  Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Master") Dim columnName As String columnName = Split(ActiveCell.Address, "$")(1) Sheets.FillAcrossSheets ws.Range(columnName & ActiveCell.Row), xlFillWithAll End Sub

Answer 1

应将所有工作表分配给数组，并且要填充的范围必须来自数组中的工作表。试试这个

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim shtArray As Variant
    shtArray = Array("Master", "Sheet1", "Sheet2", "Sheet3")
    Set ws = ThisWorkbook.Sheets("Master")
    Sheets(shtArray).FillAcrossSheets Target

    'Dim columnName As String
    'columnName = Split(ActiveCell.Address, "$")(1)
    'Sheets(shtArray).FillAcrossSheets ws.Range(columnName & ActiveCell.Row), xlFillWithAll
End Sub