[已解决]在线急等啊，快速插入多行（全是相邻的）

lapland

想在每个菜名下面增加2行，有什么办法快速高效的？？至少每个表有好几百行，如果我手动的话好慢啊，

先谢谢你们了！

在线急等啊

在线急等啊，快速插入多行（全是相邻的）

最佳答案

月排行榜 / 总排行榜

爱疯

2008-12-20 18:00

在线急等啊，快速插入多行（全是相邻的）

跳转到最佳答案楼层

爱疯

在线急等啊，快速插入多行（全是相邻的）

天意fe

通过辅助列的方法很快，看楼上的动画

QLZ0602

利用辅助列, 如B列 1-11,然后在 空行12起重新输入 1-11  空行23起在输入一遍1-11

然后按B列排序

lapland

真是太太感谢了。。。。

我写了个宏 但是还是有问题啊，

如下

Dim i As Integer
Dim z As Integer
    Rows("1:1").Select
    Selection.Copy
For i = 2 To 10
    z = i * 2 - 1
    Range("A" & z).Select
    ActiveSheet.Paste
Next i
End Sub

我只能插入单行，也就是每行只能插入一行

搁浅2008

用代码这样写

Sub aa()
Dim i As Integer
For i = 10 To 2 Step -1
    Rows(i & ":" & i + 1).Insert Shift:=xlDown
    Next
End Sub
10 可以写成Range("A65536").End(xlUp).Row

[此贴子已经被作者于2008-12-20 18:24:32编辑过]

搁浅2008

学习了 ，凡是要插入行的 要倒着循环的

[em02]

[此贴子已经被作者于2008-12-20 18:33:40编辑过]

lapland

谢谢楼上的

jsnjwaq

增加辅助列的方法不错,学习了

hingkk

学学