Sub addrows1()
Dim i As Integer
i = 1
Sheets("yzm").Select
For i = 3 To 8000
Rows(i).Select
If ((Cells(i, 1).Value) <> (Cells(i - 1, 1).Value)) Then
'MsgBox (Cells(i, 1).Value + " " + Cells(i - 1, 1).Value + " <> ")
Rows(i).Insert
i = i + 1
Else
'MsgBox ("=")
End If
Next
End Sub
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。