发布网友 发布时间:2024-10-23 09:54
共2个回答
热心网友 时间:2024-12-11 20:59
有2点需要注意:
for i =1 to 100,其实默认的步长为1,也就是说 next i 和 i=i+1是同一个效果,你即写了i=i+1,又写了next,是不对的,这就相当于1,3,5,7这样的序列了
里面的 j 循环,应该是从1开始,而不是从0开始
改进后的代码如下:
Private Sub CommandButton1_Click()
For n = 1 To 100
If Range("A" & CStr(n)) <> "" Then
For j = 1 To Range("B" & CStr(n))
Range("A" & CStr(n) + 1).Select
Selection.Insert Shift:=xlDown
Range("B" & CStr(n) + 1).Select
Selection.Insert Shift:=xlDown
Next j
End If
Next n
End Sub
热心网友 时间:2024-12-11 21:00
你是要在原来的数据插入行完成还是放到其他列中?
Sub aa()