怎样编写VBA的语言关于在excel中满足相应条件自动添加空白行？ 5
如图，若A2=2则在A2下面自动添加1行空白行，若A3=3，则在A3下面自动添加2行空白行，以此按数值的n-1进行类推添加....当数值为1时即A1=1不添加空白行。谢谢...
如图，若A2=2则在A2下面自动添加1行空白行，若A3=3，则在A3下面自动添加2行空白行，以此按数值的n-1进行类推添加....当数值为1时即A1=1不添加空白行。谢谢各位大神们！
展开
展开全部
Sub test2()
lastrow = Range("A65536").End(xlUp).Row
arr = Range("A1:A" & lastrow)
For i = lastrow To 2 Step -1
If arr(i, 1) > 1 Then
Rows(i + 1).Resize(arr(i, 1) - 1).Insert '插入arr(i, 1) - 1 行
End If
Next
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用循环就可以了
追答
录制宏获得插入空行的代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
