- 428 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 15:00:53 ]
- Sub hoge()
Dim i
Dim j
Dim q
j = Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do Until q > j
If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "0" Or Cells(i, 2).Value = "" Or Cells(i, 2).Value = "0" Then
Rows(i).Delete
q = q + 1
Else
q = q + 1
i = i + 1
End If
Loop
End Sub
で・・・。何やっとんだワシ・・・。
