Dim x For x = Range("a1000").End(3).Row To 1 Step -1 If Cells(x, 1) = "张三" Then Rows(x).Insert Shift:=xlDown End If Next x
这里是按张三在A列情况写的。如果有问题，请追加。
一定要用宏才能做啊？
