作者：乔山办公网日期：
返回目录：excel表格制作
先说一个简单的，在b1输入----=a41
在c1输入----=a81
然后向下复制到第41行。
"冷板zhidao"为例：版
Sub 增行权()
Dim i As Long
i = Cells(Rows.Count, "P").End(xlUp).Row
For i = i To 1 Step -1
If InStr(Cells(i, "P"), "冷板") > 0 Then Cells.Rows(i + 1).Insert Shift:=xlDown
Next i
End Sub
按你的意思做了一个。留个邮箱，发给你，你看看是不是可以用。
我的理解是，表格的目的在于，把几种途径都可以作为条件来将结果筛出来，而不仅仅是“其他”这个途径。所以这个表格也可以实现。
发给你了查收吧
Sub 宏1()
Columns("AF:AX").Select
For i = 1 To 50
Columns("AF:AX").Copy
Selection.Offset(, 34).Select
Selection.Insert Shift:=xlToRight
Next
End Sub