当前位置: 代码迷 >> VBA >> 初学VBA,遇到麻烦,很简单,请各位指导下,多谢
  详细解决方案

初学VBA,遇到麻烦,很简单,请各位指导下,多谢

热度:9166   发布时间:2013-02-26 00:00:00.0
初学VBA,遇到麻烦,很简单,请各位指导下,谢谢!
我想实现隔几行插入几行空行的功能,直接如下可行:
Sub inputrows()
Range(a1:a3).Select
Selection.EntireRow.Insert
End Sub

但是想实现循环,实现动态,就不行了,问题出在行3:
行1:Sub inputrows()
行2:For i = 3 To 230 Step 4
行3:Range("a" & i&":a" & (i + 2)).Select
行4:Selection.EntireRow.Insert
行5:Next i
行6:End Sub
因初学,一直找不出原因,不知各位在初学时是否有遇到,请各位指导了,谢谢!

------解决方案--------------------------------------------------------
在变量i及操作符&后加入空格,行3改为如下:
Range("a" & i & ":a" & (i + 2)).Select
  相关解决方案