2009年7月29日

EXECL删除包含指定值的行

摘要： Dim i For i = 30 To 3 Step -1 If Range("J" & i) "" Then Rows(i & ":" & i).Delete Shift:=xlUp End If Next i 阅读全文

posted @ 2009-07-29 10:49 安静的蝈蝈 阅读(238) 评论(0) 推荐(0)

导航