Sub 插入测试()
For i = Range("b65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2) <> Cells(i - 1, 2) Then
Cells(i, 2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i, 2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
本回答被网友采纳