[已解决]这样的问题怎样用VBA编写

bbhiox

是关于根据指定列(如E列)中显示的整数型数值(如:1,2,3,4,5),利用VBA程序怎根据这些数据隔1行插入1行,隔2行插入2行,以此类推,谢谢

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-2-22 21:39

1. Sub 插入行()
   
2.     Dim i As Integer
   
3.     For i = [e65536].End(3).Row To 1 Step -1
   
4.         Rows(i).Resize(Cells(i, 5)).Insert
   
5.     Next i
   
6. End Sub

复制代码

如果有标题行,请奖[e65536].End(3).Row To 1中的to 1 改成to 2

跳转到最佳答案楼层

爱疯

建议上传你的这个Excel文档（经过压缩的，zip或rar）。

大家才好理解你问题的具体条件。

zjcat35

1. Sub 插入行()
   
2.     Dim i As Integer
   
3.     For i = [e65536].End(3).Row To 1 Step -1
   
4.         Rows(i).Resize(Cells(i, 5)).Insert
   
5.     Next i
   
6. End Sub

复制代码

如果有标题行,请奖[e65536].End(3).Row To 1中的to 1 改成to 2

ztccsj

zjcat35 发表于 2012-2-22 21:39
如果有标题行,请奖[e65536].End(3).Row To 1中的to 1 改成to 2

学习了，修改成这样，演示效果更好理解
Sub 插入行()
    Dim i As Integer
    For i = [e65536].End(3).Row To 2 Step -1
        Rows(i + 1).Resize(Cells(i, 5)).Insert
    Next i
End Sub