在EXCEL中，如何在每2行之间插入1空行（大量数据），跪求大神解答~

Question

我的数据在sheet1,希望在sheet2获得结果~

Answer 1

EXCEL每隔几行插入一行，比如每隔2行插入一行，可以在后面的空列第二行输入=IF(MOD(ROW()-1,2),"",1)并向下填充,再筛选这一列的"1"项或非空白项,选定筛选结果,编辑--定位--定位条件--可见单元格---菜单--插入--行。

Answer 2

sheet2的A1：=OFFSET(Sheet1!A$1,ROW()-1-INT(ROW()/3),0)
下拉复制到A2，右拉A1、A2复制至数据区最后列

再选定第1－3行的数据区，下拉复制（这样操作第3行无公式，减少运算量）本回答被提问者采纳

Answer 3

先复制到sheet2 吧,如果这都嫌麻烦,那就不用做了,交给别人是最省劲的办法
然后执行下边的宏

Sub 隔2行插入1行()
On Error Resume Next
Dim n As Long, i As Long
MsgBox "先选择数据第一行"
n = InputBox("插入行的次数", "", 0)
For i = 1 To n
Selection.Offset(2, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(3, 0).Select
Next
End Sub

Answer 4

再a列前插入一列，在a1中输入1，a2输入2，a3输入公式=a1+3，下拉复制公式至行尾，复制此列在原位选择性粘贴选择数值。然后在此行下面输入一个3，6，9的一个等差数列，对a列升序排列。再删除a列。方法虽说是说起来显得麻烦，但实际上操作简单。还快捷一些。追问

我百度了一会别人的方法，看到一个公式，效果是每一行空一行，但是本人小白一枚，公式没弄懂，大神您能帮我解释下这个公式=IF(MOD(ROW(A1),2),INDIRECT(ADDRESS(INT((ROW(A1)-1)/2)+1,COLUMN(A1))),"")或者直接帮我修改下这个公式达到我要的每2行空一行的效果吗？跪谢~

Answer 5

Sheet2的A1输入
=if(mod(row(A1),2),index(Sheet1!A:A,roundup(row(A1)/2,0))&"","")
向右向下填充即可追问

大神，您的公式效果是每一行空一行，我要每2行空一行~

追答

睡会儿。下午再说

或者
1，将sheet1内容全复到Sheet2中
2，在某空列(如F列)，F1中输入以下公式

=if(mod(Row(A1),2),1,“插“)
下拖填充。

注，公式中除汉字，其余皆英文字符

3，选中F列，Ctrl+G
定位条件
公式，仅勾选’文本'

4，在速↘

4，在选中区击右键，插入整行

追问

我百度了一会别人的方法，看到一个公式，效果是每一行空一行，但是本人小白一枚，公式没弄懂，大神您能帮我解释下这个公式=IF(MOD(ROW(A1),2),INDIRECT(ADDRESS(INT((ROW(A1)-1)/2)+1,COLUMN(A1))),"")或者直接帮我修改下这个公式达到我要的每2行空一行的效果吗？跪谢~

追答

没空。边儿去