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

试试这个：

response