[已解决]请教循环代码

yl001

553
163
839
630
827
159
367
271
729
611
912
810
82
737
15
334
61
850

请教各位老师：
怎样使用VBA代码将A列所有的数据下面插入相应的行数，
以A列数据除以100后得到的整数作为该数据下插入行数的依据。
我录制了一段宏，并加入了For...Next，但不知道怎样把5改成变量
Sub 插入行()
    For i = 1 To 5
    Selection.EntireRow.Insert
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

兰色幻想

2012-5-24 23:03

Sub 插入行()
Dim x, k
For x = Range("a65536").End(xlUp).Row - 1 To 1 Step -1
   k = x + Cells(x, 1) \ 100
   If k > x Then
    Rows(x + 1 & ":" & k).Insert
   End If
Next x
End Sub

跳转到最佳答案楼层

兰色幻想

Sub 插入行()
Dim x, k
For x = Range("a65536").End(xlUp).Row - 1 To 1 Step -1
   k = x + Cells(x, 1) \ 100
   If k > x Then
    Rows(x + 1 & ":" & k).Insert
   End If
Next x
End Sub

搁浅2008

插入行 删除行要用倒循环

yl001

兰色幻想 发表于 2012-5-24 23:03
Sub 插入行()
Dim x, k
For x = Range("a65536").End(xlUp).Row - 1 To 1 Step -1

非常感谢兰校长的回复，
如果在不确定数据是否为A列的情况下变量又该怎样？

yl001

搁浅2008 发表于 2012-5-25 08:40
插入行 删除行要用倒循环

倒循环
正循环都没能理解，倒循环还第一次听过

兰色幻想

Sub 插入行()
Dim x, k,cc 'cc是列数
For x = cells(65536,cc).End(xlUp).Row - 1 To 1 Step -1
   k = x + Cells(x, cc) \ 100
   If k > x Then
    Rows(x + 1 & ":" & k).Insert
   End If
Next x
End Sub

yl001

兰色幻想 发表于 2012-5-25 11:44
Sub 插入行()
Dim x, k,cc 'cc是列数
For x = cells(65536,cc).End(xlUp).Row - 1 To 1 Step -1

cc好象没有定义怎样取值，具体是怎样说不清楚，呵呵
运行时有错误
还是要谢谢兰校长。

scau205

学习下                  

ykfexcel

兰老师的好象差了一个循环，运行不了

Sub 插入行1()
Dim x, k, cc 'cc是列数
For cc = 1 To 255
For x = Cells(65536, cc).End(xlUp).Row - 1 To 1 Step -1
   k = x + Cells(x, cc) \ 100
   If k > x Then
    Rows(x + 1 & ":" & k).Insert
   End If
Next x
Next cc
End Sub

kkwith

不错，学学了，实用