Sub gzt() Dim i As Integer For i = 1 To 10 Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown Next End Sub
VBA 学习第一课
原文：https://www.cnblogs.com/yigeduanpian/p/10041681.html
