行から複数​​の行へのVBAコピーの書式設定

Question

申し訳ありませんが、私は実際これを取得するのに近いですが、もっとうまくいくようにしようとしています。私は列2のようになるまで行2の書式をコピーしたい。データは列Hまでしか送られないので、私のコードは列2まで行2をコピーする。しかし貼り付けに行くと、行1のほかにシート全体がハイライト表示される。フォーマット全体をコピーするように見えます。実際には問題ではありませんが、将来の参照用に必要な行と列にのみ貼り付ける方法を知っています。私はそれが基本的にデータを持っている細胞に行きたいだけです。事前に助けてくれてありがとう！

Range("A2", Cells(2, Columns.Count).End(xlToLeft)).COPY 
    Range("A2", Cells(Range("A" & Rows.Count).End(xlDown).Row)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False 
    Application.CutCopyMode = False 

Answer 1

これを試してみてください：

Dim rngCopy As Range, rngPaste As Range 


With ActiveSheet 
    Set rngCopy = .Range(.Range("A2"), .Cells(2, Columns.Count).End(xlToLeft)) 

    Set rngPaste = .Range(.Range("A2"), _ 
         .Cells(Rows.Count, 1).End(xlUp)).Resize(, rngCopy.Columns.Count) 

End With 

rngCopy.Copy 
rngPaste.PasteSpecial Paste:=xlPasteFormats 
Application.CutCopyMode = False