鼠標右擊Sheet1標簽,先查看代碼,在代碼窗口粘貼下面的代碼:
Sub ouyangff()
For i = [a65536].End(3).Row To 1 Step -1
If Right(Cells(i, 1), 2) = "小計" Then Rows(i + 1).Insert Shift:=xlDown
Next
End Sub
按F5 運行程序,按Alt + F11回到Excel去看看結果!!!