2016-06-14
温州瓯越培训学校
温州市瓯越职业培训学校是一家经温州市民政局批准成立的专门从事培训教育的正规机构，学校自1992年开创教育培训以来不断发展壮大，现开设电脑培训、会计培训、英语培训、手机维修培训等多个培训体系.
向TA提问
关注
![]()
展开全部
1，在下面插入5个空行（在插入的行上鼠标右击，插入行）
2，复制第一行，把内容粘贴到5个空行中
2，复制第一行，把内容粘贴到5个空行中
追问
我有50000+的数据要处理
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
假设原数据的第一个单元格为A1
在右边的空白列的第一个单元格，如H1输入公式
=OFFSET(A$1,INT((ROW(A1)-1)/6),,,)
右拉、下拉
在右边的空白列的第一个单元格，如H1输入公式
=OFFSET(A$1,INT((ROW(A1)-1)/6),,,)
右拉、下拉
追问
新弄出来的东西我复制到别的地方就没法用了呢，怎么办啊
追答
先复制
在欲粘贴到的地方单击鼠标右键--选择性粘贴--数值
即可
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Sub 批量插入5行()
i = [A65536].End(3).Row
For j = i To 2 Step -1 '这里的2改成你标题下一行的行号
Range("A" & j & ":F" & j).Copy
Range("A" & j & ":A" & j + 5).Insert Shift:=xlDown
Next
End Sub
这个代码是把A:F列的内容批量插入5行
因为看不到你的全表, 运行前请备份数据.复制一份表格试运行.
i = [A65536].End(3).Row
For j = i To 2 Step -1 '这里的2改成你标题下一行的行号
Range("A" & j & ":F" & j).Copy
Range("A" & j & ":A" & j + 5).Insert Shift:=xlDown
Next
End Sub
这个代码是把A:F列的内容批量插入5行
因为看不到你的全表, 运行前请备份数据.复制一份表格试运行.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
