VBAアクティブセルのすべてのデータをアクティブなシートにコピーするエラー

Question

3枚と1枚のマスターシートがあります。 マスターのセルデータを残りのシートにコピーしたい。それは、常に実行時エラー1004」thrw誰でも助けることができる？

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