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

我有3张纸和1张主纸。 我想复制大师的单元格数据到工作表的其余部分。 它始终thrw“运行时错误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