excel如何自动在I型下面加入一行,在IV下面加入3行。II型盖下面加入3行,II型下面不加行呢
Sub macro1()
n = [e1048576].End(3).Row
For i = n - 1 To 1 Step -1
If Cells(i, 5) = "Ⅰ型" Then _
Rows(i + 1).Insert Shift:=xlDown
If Cells(i, 5) = "Ⅳ型" Or Cells(i, 5) = "Ⅱ型盖" Then _
Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
Next i
End Sub
VBA触发程序能解决这个问题
热门标签: