请教EXCEL

hy851021

请问各位EXCEL有什么更简单的方法插入一行吗，我现在有个EXCEL SHEET ， 里面大概有1万行，要在每两行之间插入一行，形成空一行的效果，请问有啥捷径吗，多谢啦

floodp

看样子只能用VBA了

casterchen

VBA，

or you number each row , then filter for even number only, then highlight selection only.  Get rid of filter but leave the selection active and then insert.  But it might take ages to finish depending on how good your PC is.

elight

贴上然后把run 完后第一个多出来的row删了就ok了。

Sub InsertXRows()
Dim NumRowsToInsert As Long
Dim RowIncrement As Long
Dim ws As Worksheet
Dim LastRow As Long
Dim LastEvenlyDivisibleRow
Dim i As Long

NumRowsToInsert = 1     
RowIncrement = 2      
Set ws = ActiveSheet
With ws
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    LastEvenlyDivisibleRow = Int(LastRow / RowIncrement) * RowIncrement + 1
    If LastEvenlyDivisibleRow = 0 Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For i = LastEvenlyDivisibleRow To 1 Step -RowIncrement
        .Range(i & ":" & i + (NumRowsToInsert - 1)).Insert xlShiftDown
    Next i
End With
Application.ScreenUpdating = True
End Sub

lm8628

ALT+F11打开VBA，双击需要的sheet，在表里加个command button，在VBA处加上下面代码

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 3 To 10000 Step 3
Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub

lm8628

或者 直接开VBA 在当前表下面写上

Sub konghang()

Dim i As Integer

For i = 3 To 10000 Step 3
Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next

End Sub

然后直接点上面的运行键就好啦~

turrella

来个土办法：
1. 先建一个辅助列（比如在最前面插入一列空白）
2. 在辅助列中插入奇数行号，即：1, 3, 5, 7, 然后拖满这一列，比如到了10001。
3. 然后继续在这一列末端输入偶数行号，即：2, 4, 6, 8, 然后将这些偶数拖满到10002。那么这些偶数对应的就是空白行。
4. 然后以辅助列进行排序。那么所有偶数对应的空白行就依次排在了奇数行之后。
5. 删除辅助列即可

euroblue

turrella 发表于 2013-7-28 18:48
来个土办法：
1. 先建一个辅助列（比如在最前面插入一列空白）
2. 在辅助列中插入奇数行号，即：1, 3, 5, 7 ...

哈哈，我们也是用这个办法。

玟雨

turrella 发表于 2013-7-28 18:48
来个土办法：
1. 先建一个辅助列（比如在最前面插入一列空白）
2. 在辅助列中插入奇数行号，即：1, 3, 5, 7 ...

这个方法简单直接！学习了！

leyan

高手真多 还是要多动脑啊  哈哈

hy851021

多谢楼上各位了，我还是使用了辅助行的土办法

Aries2012

我也是用辅助行的~嘻嘻

Be-better

rabbitpoint

turrella 发表于 2013-7-28 18:48
来个土办法：
1. 先建一个辅助列（比如在最前面插入一列空白）
2. 在辅助列中插入奇数行号，即：1, 3, 5, 7 ...

不要太有才好不好？