EXCEL中隔行插入一行
4个回答
展开全部
运行宏,25是代表有数据的行数,可以更改
Sub InsertRow()
n = 1
For i = 1 To 25
If Cells(i + n, 1) <> "" Then
Cells(i + n, 1).Select
Selection.EntireRow.Insert
n = n + 1
End If
Next
End Sub
Sub InsertRow()
n = 1
For i = 1 To 25
If Cells(i + n, 1) <> "" Then
Cells(i + n, 1).Select
Selection.EntireRow.Insert
n = n + 1
End If
Next
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
录制宏
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
联系我,HI我,我做动画演示给你看、
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询