|
A B C D E
1 品番 収容数 箱数 発注数 発注番号
2 A 10 0 0
3 B 20 2 40
4 C 5 5 25
5 D 10 0 0
6 E 5 0 0
7 F 5 1 5
上記のようなシートがありまして
発注数0の品番は消去したいとおもってマクロを作成したのですが
[作成したマクロ]
Dim A As Integer
Dim B As Integer
Dim C As Integer
B = Range("D65536").End(xlUp).Row
For A = 2 To B
If Cells(A, 4) = 0 Then
Rows(A).Select
Selection.ClearContents
Else
End If
Next A
For C = 2 To B
If Cells(C,1) = "" Then
Rows(C).Select
Selection.Delete
Else
End If
Next C
上記のコードだと消去したかったのに消去しきれない部分がでてしまいます。
理由もなんとなくわかるのですが、どう改善したら良いのかよくわかりません。
どなたかヒントでも頂けると有難いです。
よろしくお願いします。
|
|