[推荐][讨论]如何快速在每两行间插入一空白行

nevinslee · 发表于 2007-11-28 10:15

刚刚试成功了,对付几十行的会比较简单(比平常选二行,插入一行,这样继续下去确实:

先按住CTRL键,再用鼠标一格一格选,就是A1:A10单元格各从上到下各选一次,放开CTRL键,右键->[插入],弹出对话框:选整行,成功了!

哈哈,为什么每个都要选一次,不太明白,我再研究,看能不能有更快的方法!

nevinslee · 发表于 2007-11-28 10:23

QUOTE:

以下是引用shaowu459在2007-11-28 9:44:31的发言：
不知道，但先选一行，再按ctr一行一行的选，再插入行可以隔一行一个空行。选两行就插入两行

兄弟,你这种方法是对的!开始我没看清楚你的解答,后来自己试成功了,再回过来仔细研究你的,确实可以!

那为什么要每行要一下一下选了才可以?

谢谢!!

shaowu459 · 发表于 2007-11-28 10:31

因为单击一行插入的话就是在这一行上面插入一个空行，选中两行点插入还是在最上面一行插入空行。你在一列里输入数据就能比较明显的看出来。复选了以后就在每次复选的上面插入空行。

shaowu459 · 发表于 2007-11-28 10:33

另外，选几行就是插入几行，你可以分别选不同的，比如第一次选1行，第二次选两行，第三次选三行，那就分别插入了1，2，3行。

[此贴子已经被作者于2007-11-28 10:58:12编辑过]

nevinslee · 发表于 2007-11-28 11:39

嗯!谢谢关照.我看看除了VBA外还有没有更快的方法.其实这问题也是突然想起来才去研究的.呵呵!

LangQueS · 发表于 2007-11-28 14:43

Sub 在指定范围行各插入1行()
Application.ScreenUpdating = False       '禁用屏幕刷新
Application.Calculation = xlCalculationManual     '手动重算
For i = 1 To 100
Rows(i * 2).Insert
Next i
Application.Calculation = xlCalculationAutomatic '自动重算
Application.ScreenUpdating = True        '恢复屏幕刷新
End Sub

qimhe · 发表于 2007-11-28 17:42

用数据排序法,如果有20行内容,插入一列,在列中1-20行分别输入1,2……，然后在21-40行分别输入1.1,2.1……，现在对这一列按大小排序，OK，大功告成！

nevinslee · 发表于 2007-11-29 08:10

qimhe兄这个办法也很好!

呵呵!谢谢!

我也再看看还有没有方法!

chen3205 · 发表于 2007-11-29 11:31

用宏录制一个插入的动作，然后建个循环，运行一下就行了。

XUZHANCHENG · 发表于 2007-11-29 13:20

哈哈，方法很多，

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

[已解决] [推荐][讨论]如何快速在每两行间插入一空白行