作者：乔山办公网日期：
返回目录：excel表格制作
只有B列复百制？
Sub charuhang()
j = 2 '若插入1行j=1，若度插入两行专，则j=2....
m = 3
n = 26
For i = m To n
Rows(m + n + 1 - i & ":" & m + n + 1 - i).Select
For k = 1 To j
Selection.Insert Shift:=xlDown
Cells(m + n + 1 - i, 2) = Cells(m + n - i, 2)
Next k
Next i
End Sub
只加了属一行
当然可以！给你个简百单的。
VBA代码：度
Sub insertData()
For i = 6 To 25
Sheets("Sheet1").Rows(i).Insert
Next
Range("A6:A25") = 1
End Sub
说明：问
Sheets("Sheet1")中“Sheet1”替换为你答要添加数据的表专名
Range("A6:A25")中A6:A25中的“属A”替换为你要添加数据的列