[求助]：如何在行之间加入空白行？

ericeden

有50多行，如何快速在原有行之间加入空白行
目前是按住Ctrl一个一个选，速度好慢，50多行，插入的时候，电脑用了30多秒

sgsldz

编辑一个宏，让他自动运行！很快的

yi.gao

可以这样操作，见演示。
添加辅助列然后排序的方法其实很灵活的，请感兴趣的朋友再想想如果不是隔行插入空白行怎么实现？

lt_zzy

我以前做得一个宏，要是知道长老有这么好的方法，我就不做了。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. '每两列中插入一个空行
   
6. 
   
7.    Sub 每两行插入一空行()
   
8.          p1 = 1
   
9.          p3 = 1
   
10. 10
    
11.          p4 = ActiveCell.Worksheet.Cells(p1, 1).Value
    
12.          If p4 <> 0 Then
    
13.            p1 = p1 + 1
    
14.            GoTo 10
    
15.            Else
    
16.             p1 = p1 - 1
    
17.             p2 = Int(p1 / p3)
    
18.             If p2 = p1 / p3 Then
    
19.             Else
    
20.             p2 = Int(p1 / p3) + 1
    
21.            End If
    
22.         End If
    
23.            
    
24.         
    
25.            For i = p2 To 1 Step -1
    
26.                ActiveCell.Worksheet.Range(Cells(i * p3 + 1, 1), Cells((i + 1) * p3, 3)).Select
    
27.                Selection.Insert Shift:=xlDown
    
28.                'ActiveCell.Worksheet.Range(Cells((i - 1) * p3 + 1, 5), Cells(i * p3, 7)).Select
    
29.                'Selection.Cut Destination:=ActiveCell.Worksheet.Range(Cells(i * p3 + 1, 1), Cells((i + 1) * p3, 3))
    
30.            Next i
    
31.     End Sub
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> '每两列中插入一个空行<br /> <br />    Sub 每两行插入一空行()<br />          p1 = 1<br />          p3 = 1<br /> 10<br />          p4 = ActiveCell.Worksheet.Cells(p1, 1).Value<br />          If p4 <> 0 Then<br />            p1 = p1 + 1<br />            GoTo 10<br />            Else<br />             p1 = p1 - 1<br />             p2 = Int(p1 / p3)<br />             If p2 = p1 / p3 Then<br />             Else<br />             p2 = Int(p1 / p3) + 1<br />            End If<br />         End If<br />            <br />         <br />            For i = p2 To 1 Step -1<br />                ActiveCell.Worksheet.Range(Cells(i * p3 + 1, 1), Cells((i + 1) * p3, 3)).Select<br />                Selection.Insert Shift:=xlDown<br />                'ActiveCell.Worksheet.Range(Cells((i - 1) * p3 + 1, 5), Cells(i * p3, 7)).Select<br />                'Selection.Cut Destination:=ActiveCell.Worksheet.Range(Cells(i * p3 + 1, 1), Cells((i + 1) * p3, 3))<br />            Next i<br />     End Sub<br />   [/FONT]<br />

sgsldz

3楼的方法果然邪门！长老做什么工作的？把你的qq号给我好吗？

xiaotang

最初由 yi.gao 发布
[B]可以这样操作，见演示。
添加辅助列然后排序的方法其实很灵活的，请感兴趣的朋友再想想如果不是隔行插入空白行怎么实现？ [/B]

通过辅助列，只要是有规律地插入空白行，都可以轻松实现，但若是随意地插入空白行，有隔2行的，有隔3行的，有不要求隔行的等等，就只会用1楼的手工方法了。
还有一点基本的请教，若在某行上增加多行空白行怎么办？我只会一行行地逐行增加，有什么好方法吗？例如在第一行前增加4行，我会执行插入空白行四次命令，应该不是这样的吧
刚发现一个方法，希望对大家有用，采用复制空白行再粘贴的方法

yi.gao

最初由 xiaotang 发布
[B]
通过辅助列，只要是有规律地插入空白... [/B]

整体选中4行然后再右键选择插入就会一次性插入四行。

ntchjie

又学了一招，整体插入的方法也很好，平时excel操作多了，也会悟出来的。

围棋

3楼的方法与我平时用的一样。
用EXCLE时，尽量不要编VBA，我只用过宏，不会VBA，充分利用现有的EXCLE功能，会解决很多问题的。

xsshhl

3楼的方法真是不错,我以前就知道这样排序,但没有想到用来实现插入行,13楼 多选行,实现批量插入,我最近看同事做过.确实学无止境.

clearbrook

yi.gao长老的方法可谓另劈蹊径
问个题外话
在表格中输入1，3，5，7。。。。是怎么输入的？
我用公式的方法输入，结果排序后数字都变化了。

yi.gao

1、3、5、7是用填充句柄的方法。鼠标移动到单元格右下角的小黑十字上拖拉可得。这是excel的基本操作。
至于你说的公式输入我没能理解意思，请详述。

chdragon

不错的帖子

852292

插入辅助列方法巧妙，可以和复制粘贴空白行的方法混合使用

好为人师

隔行怎样插入