如何快速在每行前插入多行

AlanQXYang

有一文件需要在现有资料每行前插入多行，如何快速实现。
我的方法是给每行顺序加序号（例如1----1000），然后将序号复制到空白行多次，再选中全部按序号列排序。

huanbei

是个好方法，楼主能自己发现，真的很不错。

不过——你应该先搜索一下以前有无类似的帖子。

AlanQXYang

但我觉得这样挺麻烦的，可有更快速的方法？

VAT

你这方法是目前论坛中关于你所说的问题的经典处理方法了

huanbei

原帖由 VAT 于 2009-3-29 15:13 发表
你这方法是目前论坛中关于你所说的问题的经典处理方法了

VAT说的对，大家专门讨论过这个问题，最快捷的就是这种方法。不少朋友还做过动态图片。

这个问题最常见的实例就是工资条的处理。

[ 本帖最后由 huanbei 于 2009-3-29 15:20 编辑 ]

candong

本论坛有编写好的插入空行工具，可以使用

LangQueS

Sub 每行前各插入多行()
m = Sheets(1).Columns(1).Find("*", , xlValues, , , 2).Row   '第1列最后可见非空单元行号
For i = m To 1 Step -1       '从最后一行至第一行反向循环
    Range(Cells(i + 1, 1), Cells(i + 20, 1)).Select      '每向上1个单元插入20行
    Selection.Insert Shift:=xlDown
    Next
Range("a1").Select
End Sub

拼音佳佳

感觉跟工资表的做法差不多嘛,呵呵...

LangQueS

建议楼主将实际应用的文件或模拟问题附件压缩上传。

AlanQXYang

file:///e:/12.jpeg,后面还有几百行都需要插入两行，请问如何快速简单可以实现？