VBA：如何复制一行并使用偏移function粘贴下面的行

偏移函数传统上用于单元格，但我想用它来复制和粘贴整个行。 你如何使用整个行的偏移量函数？ 这是我的代码，但是，它不工作。 谢谢。

Sub Macro() Rows("2:2").Select Selection.Copy Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False End Sub 

Answer 1

避免select尽可能。

 Sub Macro() Dim r As Long Application.ScreenUpdating = False For r = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 With Cells(r, 1).EntireRow .Copy .Resize(2).Offset(1, 0).Insert Shift:=xlDown End With Cells(r + 1, "S").Value = DateAdd("m", 1, Cells(r, "S")) Cells(r + 2, "S").Value = DateAdd("m", 2, Cells(r, "S")) Next r Application.ScreenUpdating = True End Sub