Dim xxx As Integer??
For xxx = 1 To 10
? ? ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
? ? Selection.Copy
? ? ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
? ? Selection.Insert Shift:=xlDown
Next
XXX為變量
DIM為定義XXX的
FOR~NEXT為這個(gè)循環(huán)語(yǔ)句的起始
宏執(zhí)行完的信息是不可以撤銷的