摘要： 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... 阅读全文