VBA复制格式从一行到几行

Question

好吧，所以我真的很接近这个，但是我只是想使它更好地工作。我想复制第2行的格式，直到第H列为止。数据只保留到H列。所以我的代码仅复制第2行直到H列。但是当粘贴时，它会突出显示除第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