'实际测试，可用
Sub charu()
'找到C列最后一行
i = Range("c1000000").End(xlUp).Row
'插入行
Range("A" & i + 1).EntireRow.Insert
End Sub
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列情况写的。如果有问题，请追加。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024