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