excel - Excel行VBAマクロをコピー

Question

多くのワークシートを含むExcelスプレッドシートがあります。

「Sheet1」の最初の行を行 1 の他のすべてのシートにコピーし、row1 シート 1 から指定された列幅を維持したい。

これを行う方法はありますか？

前もって感謝します。

Answer 1

これはあなたを助けるはずです！

次のコードは、"Sheet1" という名前のシートの最初の行を、他の各シートの最初の行に貼り付けます。ソース シートの名前が異なる場合は、HeaderRow のシート参照を適切に変更します。

Dim ws As Worksheet, HeaderRow As Range
Set HeaderRow = Worksheets("sheet1").Range("1:1")
HeaderRow.Copy

For Each ws In ActiveWorkbook.Worksheets
        ws.Range(HeaderRow.Address).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        ws.Paste
Next ws
Application.CutCopyMode = False