[求助]请赐教：每隔几行就插入一行的宏怎么做？

xinli0310

急求高手赐教：
如果B列任何一个单元格为数值2的话，
那么就在下一行插入一行，
下面数据有几百行呢。
为了达到上述的目的，我想做一个宏，
可是我不会做。
请看附件。急等使用。
求高手赐教，非常感谢！
Book6.rar (5.45 KB, 下载次数: 31)

2010-1-25 22:58 上传

点击文件名下载附件

zhaogang1960

试试看:
Sub Macro1()
    Dim arr, i&
    arr = Range("B1:B" & Range("B65536").End(xlUp).Row)
    Application.ScreenUpdating = False
    For i = UBound(arr) To 1 Step -1
       If arr(i, 1) = 2 Then Rows(i + 1).Insert
    Next
    Application.ScreenUpdating = True
End Sub

xinli0310

谢谢 zhaogang1960  大师。
帮了大忙。
十分感谢。