代码如下，已亲测Option ExplicitSub test() With ActiveCell .Offset(1, 0).Insert .EntireRow.Copy Destination:=.Offset(1, 0).EntireRow End WithEnd Sub
