VBA复制格式从一行到几行

好吧，所以我真的很接近，但我只是想让它工作得更好。 我想复制第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