[开_36] 怎么快速地隔行插入一空行? ★

zhaoyanzi · 发表于 2013-7-20 20:23

举一反三呀，真好，在这里能让自己的脑筋更灵活，思路更开阔。

lindazhang · 发表于 2013-7-26 15:13

我的方法是前面加一列，放上序列号，1，2,3,4,5，，，，一直到最后一行，在把这些序列号拷贝，从最后一行的下一行黏贴，这时排序，先按序列号排序，在按第二列排序即可，应该不到一分钟，不用任何公式。

lindazhang · 发表于 2013-7-26 15:27

用subtotal也可以做出来，如附件

jpyhaier · 发表于 2013-10-2 18:04

如图所示，在你的工作表数据的后面两列输入图示格式，并向下填充，点击“编辑－定位－定位条件－空值－确定”，再点击“插入－行”，即OK

jpyhaier · 发表于 2013-10-2 18:06

jpyhaier 发表于 2013-10-2 18:04
如图所示，在你的工作表数据的后面两列输入图示格式，并向下填充，点击“编辑－定位－定位条件－空值－确 ...

注意，向下填充完后，鼠标不要点击工作表的任何地方（即图示中的D、E列是选中状态）

田野上的白杨树 · 发表于 2013-12-20 00:29

提供A2公式如下，复制到B2-J2
'=IF(MOD((A2/2)+(J2/2),2)=0,(A2/2)+(J2/2),(A2/2)+(J2/2)+1)
假设A1到J1分别为以下数据
10 2 8 22 16 4 10 6 14 20

经过16次循环达到预期目的
10 2 8 22 16 4 10 6 14 20 初始
16 6 6 16 20 10 8 8 10 18 1循环
18 12 6 12 18 16 10 8 10 14 2循环
16 16 10 10 16 18 14 10 10 12 3循环
14 16 14 10 14 18 16 12 10 12 4循环
14 16 16 12 12 16 18 14 12 12 5循环
14 16 16 14 12 14 18 16 14 12 6循环
14 16 16 16 14 14 16 18 16 14 7循环
14 16 16 16 16 14 16 18 18 16 8循环
16 16 16 16 16 16 16 18 18 18 9循环
18 16 16 16 16 16 16 18 18 18 10循环
18 18 16 16 16 16 16 18 18 18 11循环
18 18 18 16 16 16 16 18 18 18 12循环
18 18 18 18 16 16 16 18 18 18 13循环
18 18 18 18 18 16 16 18 18 18 14循环
18 18 18 18 18 18 16 18 18 18 15循环
18 18 18 18 18 18 18 18 18 18 16循环

田野上的白杨树 · 发表于 2013-12-20 11:05

举例40行，隔行插入空行
插入辅助列B1-B80 输入阿拉伯数字 1-40 1.5-40.5 然后排序，就可以了。

Morality · 发表于 2014-9-21 12:23

I.kk 发表于 2005-6-12 21:07
1、添加一辅助列，给行按1、2、3、4……编号，设最后一行为n
2、从空行处在按1、2、3、4……编n行
3、按照 ...

第二步骤变成1.1、2.1、3.1......是不是更好些

jingooluo · 发表于 2014-9-22 17:32

1. 添加辅助列，输入公式=mod(row(),2)
2. 复制粘贴数值，替换0或者1为空。
3. 选择辅助列，Ctrl+G定位空值，右键插入行

lwb0723 · 发表于 2015-12-24 22:45

Sub ccc()

Dim ca As String, ll
ca = 2
ll = Range("a" & ca).Value
Do While ll <> ""
Range("A" & ca).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ca = ca + 2
ll = Range("a" & ca).Value

Loop

End Sub

		自动登录	找回密码
密码			免费注册

[Excel 基础应用] [开_36] 怎么快速地隔行插入一空行? ★