excel如何自动在I型下面加入一行，在IV下面加入3行。II型盖下面加入3行，II型下面不加行呢

更新时间2018-05-17 16:41:21

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触发程序能解决这个问题

相关标签:excel