小编Rob*_*ard的帖子

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