Sub Macro1()'' Macro1 Macro'For i = 4 To 100 Range("A1:C1").Select Selection.Copy Range("A" & i).Select ActiveSheet.Paste NextEnd Sub例子如上，复制A1：C1 到A4到A100行。你要根据你复制到哪个地方复制多少行写个FOR语句加进去。自己根据需要发散一下。
