
EXCEL表格,有很多行,让每一行在本行下面复制一行
3个回答
2014-11-28 · 知道合伙人软件行家
关注

展开全部
宏
Sub s1()
Dim i
For i = [A65536].End(3).Row To 1 Step -1
Rows(i).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Next
End Sub
Sub s1()
Dim i
For i = [A65536].End(3).Row To 1 Step -1
Rows(i).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Next
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看附件方法
追问
附件看了,没明白
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询