题：A1到A2之间插入五个空行，如此类推，各相邻行之间插入五个空行。
解：
方法○:
在B1输入公式(请从此处复制)：
=IF(MOD(ROW(),5)=1,INDEX(A:A,ROUNDUP(ROW()/5,0),1),"")
然后选中B1,按ctrl_shift_向下方向键，ctrl_D.
此时在B列中得到所需内容相应的公式（下面的方法一也是基于公式）。
如果要得到实际内容，
选中B列，ctrl_C,到新的列，右击-选择性粘贴-数值。
注：公式是说，当行号为r=5n+1时，得到A列(区域A:A)中第int((r+4)/5)行的数据，即第n行，区域中第1列，就是第A列。
如果是插入x列，将其中的5改为x即可。
方法一：来自islandsea0的巧妙方法，有改动。
（1）在B1,B7分别输入内容:A1,A7
（2）选中区域B1：B12（B1到B12的连续单元格区域）,拖动右下角出现的填充柄(黑十字形)，此时变成：A1,连续五个空行，A2，连续五个空行，A3,...
(3)选中B列，ctrl_H，查找：A,替换为：=A
替换全部。
此时B1中的内容成为了公式，引用了A1单元格的内容，并添加了空行。
注：
假设是从A[n]行开始的区域，插入的空行数为r,则在B[n]输入A[n],B[n+1+r]输入A[n+1+r]，选中区域B[n]:B[n+1+2r]拖动填充柄填充。
方法二： 来自QSDDZ的方法，有改动。
（1）在B1,B2分别输入：1,11；
（2）选中B1，按ctrl_shift_向下方向键，alt_EIS_回车；
（3）定位到A列，ctrl_向下方向键到A列最后一格，向右，向下，在紧下方的B列的两个单元格中输入2,4,然后选中它们，按ctrl_shift_向下方向键，alt_EIS_回车
（4）排序。
分析：
在B列中，生成两两不同的数，A列中的原的数据区域的右侧得到一列等差数列{X}，最后添加一些新的数，这些数，每五个一组，可以在排序后插入数列{X}的两个相邻项中去。（###）最后以B列中的数据为排序基准，扩充排序。
例如：在A列原有数据区右侧（B列）生成数列：1,11,21,31,...（1,11，alt_EIS，回车）;
然后在下方（仍是B列的一部分）添加等差数列2,4,6,8,10,12,...
当然，只要是满足条件（###）的数据都可以。
如果是添加r个空行，两个序列可以改成：1,2r+1,altEIS_回车；后面添加序列仍然用2,4,....
解：
方法○:
在B1输入公式(请从此处复制)：
=IF(MOD(ROW(),5)=1,INDEX(A:A,ROUNDUP(ROW()/5,0),1),"")
然后选中B1,按ctrl_shift_向下方向键，ctrl_D.
此时在B列中得到所需内容相应的公式（下面的方法一也是基于公式）。
如果要得到实际内容，
选中B列，ctrl_C,到新的列，右击-选择性粘贴-数值。
注：公式是说，当行号为r=5n+1时，得到A列(区域A:A)中第int((r+4)/5)行的数据，即第n行，区域中第1列，就是第A列。
如果是插入x列，将其中的5改为x即可。
方法一：来自islandsea0的巧妙方法，有改动。
（1）在B1,B7分别输入内容:A1,A7
（2）选中区域B1：B12（B1到B12的连续单元格区域）,拖动右下角出现的填充柄(黑十字形)，此时变成：A1,连续五个空行，A2，连续五个空行，A3,...
(3)选中B列，ctrl_H，查找：A,替换为：=A
替换全部。
此时B1中的内容成为了公式，引用了A1单元格的内容，并添加了空行。
注：
假设是从A[n]行开始的区域，插入的空行数为r,则在B[n]输入A[n],B[n+1+r]输入A[n+1+r]，选中区域B[n]:B[n+1+2r]拖动填充柄填充。
方法二： 来自QSDDZ的方法，有改动。
（1）在B1,B2分别输入：1,11；
（2）选中B1，按ctrl_shift_向下方向键，alt_EIS_回车；
（3）定位到A列，ctrl_向下方向键到A列最后一格，向右，向下，在紧下方的B列的两个单元格中输入2,4,然后选中它们，按ctrl_shift_向下方向键，alt_EIS_回车
（4）排序。
分析：
在B列中，生成两两不同的数，A列中的原的数据区域的右侧得到一列等差数列{X}，最后添加一些新的数，这些数，每五个一组，可以在排序后插入数列{X}的两个相邻项中去。（###）最后以B列中的数据为排序基准，扩充排序。
例如：在A列原有数据区右侧（B列）生成数列：1,11,21,31,...（1,11，alt_EIS，回车）;
然后在下方（仍是B列的一部分）添加等差数列2,4,6,8,10,12,...
当然，只要是满足条件（###）的数据都可以。
如果是添加r个空行，两个序列可以改成：1,2r+1,altEIS_回车；后面添加序列仍然用2,4,....
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-11-11
假设你的数据只有A一列，是从A1坐标开始的！
1、在B1坐标输入“A1”，在B7坐标输入“A2”，把B1-B12都用鼠票圈起来，向下拉，就会在B13坐标得到A3，B19坐票得到A4。。。。。。
2、再用编辑菜单中的查找->替换，把“A”替换成“=A“，也就是B1=A1，B7=A2。。。。。
是不是达到了你要的效果啦？
3、但记得要用一个复制-选择性粘贴-数值；才可以把原来的A列删除啊！！
4、我举的是只有一列数据的例子，要是多列，道理一样！
5、另如果你的文本里也有和坐标相同的文本内容，比如“A”，那你可以在一张空白的表里把1、2步做完，再把现成的公式(b1=a1,b7=a2)复制到你的表格里直接用就可以了！
7、方法笨了点，不过是我自己想出来的啊？
说着挺多，其实操作起来不难的！
1、在B1坐标输入“A1”，在B7坐标输入“A2”，把B1-B12都用鼠票圈起来，向下拉，就会在B13坐标得到A3，B19坐票得到A4。。。。。。
2、再用编辑菜单中的查找->替换，把“A”替换成“=A“，也就是B1=A1，B7=A2。。。。。
是不是达到了你要的效果啦？
3、但记得要用一个复制-选择性粘贴-数值；才可以把原来的A列删除啊！！
4、我举的是只有一列数据的例子，要是多列，道理一样！
5、另如果你的文本里也有和坐标相同的文本内容，比如“A”，那你可以在一张空白的表里把1、2步做完，再把现成的公式(b1=a1,b7=a2)复制到你的表格里直接用就可以了！
7、方法笨了点，不过是我自己想出来的啊？
说着挺多，其实操作起来不难的！
第2个回答 2009-11-11
用宏
Sub Macro3()
For i = 1 To 5
'
' Macro3 Macro
'
'
ActiveCell.Range("A1:A5").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(6, 0).Range("A1").Select
Next i
End Sub
单元格定位在A2，执行宏。默认插入5次，自己修改本回答被提问者采纳
Sub Macro3()
For i = 1 To 5
'
' Macro3 Macro
'
'
ActiveCell.Range("A1:A5").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(6, 0).Range("A1").Select
Next i
End Sub
单元格定位在A2，执行宏。默认插入5次，自己修改本回答被提问者采纳
第3个回答 2009-11-11
假设你原有数据共有20行
插入一辅助列假设为B列
在B1中输入1,B2输入11
选择B1和B2下拉填充到最后一行(B20就为191)
在下一行即 B21输入2,B22输入4
选择B21和B22,下拉填充到120行
按B列升序排列,即可达到要求
插入一辅助列假设为B列
在B1中输入1,B2输入11
选择B1和B2下拉填充到最后一行(B20就为191)
在下一行即 B21输入2,B22输入4
选择B21和B22,下拉填充到120行
按B列升序排列,即可达到要求
相似回答