2009 年 5月 12 日随笔档案 - 冰原雪龙

2009年5月12日

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

posted @ 2009-05-12 22:10 冰原雪龙阅读(451) 评论(0) 推荐(0)