[已解决]如何用VBA做到，在行与行之间插入三个空行，如图。

zl1975

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-28 18:52

1. Sub 插入三行()
   
2.     Dim lastrow As Long
   
3.     Application.ScreenUpdating = False
   
4.     For lastrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
   
5.         Rows(lastrow).Resize(3).Insert
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 插入三行()
   
2.     Dim lastrow As Long
   
3.     Application.ScreenUpdating = False
   
4.     For lastrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
   
5.         Rows(lastrow).Resize(3).Insert
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8. End Sub
   

复制代码

chinatanke

正在学习中，研究中，