Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50974 / 76732 ←次へ | 前へ→

【30635】初歩的な事かもしれないですが・・・
質問  tbtk  - 05/11/1(火) 17:39 -

引用なし
パスワード
     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
上記のコードだと消去したかったのに消去しきれない部分がでてしまいます。
理由もなんとなくわかるのですが、どう改善したら良いのかよくわかりません。
どなたかヒントでも頂けると有難いです。
よろしくお願いします。
1 hits

【30635】初歩的な事かもしれないですが・・・ tbtk 05/11/1(火) 17:39 質問
【30637】Re:初歩的な事かもしれないですが・・・ Jaka 05/11/1(火) 17:54 回答
【30638】Re:初歩的な事かもしれないですが・・・ とまと 05/11/1(火) 18:03 回答
【30640】Re:初歩的な事かもしれないですが・・・ tbtk 05/11/1(火) 18:16 質問
【30654】Re:初歩的な事かもしれないですが・・・ とまと 05/11/1(火) 22:09 発言
【30666】Re:初歩的な事かもしれないですが・・・ tbtk 05/11/2(水) 9:48 お礼
【30695】Re:初歩的な事かもしれないですが・・・ gako 05/11/3(木) 9:18 質問
【30698】Re:初歩的な事かもしれないですが・・・ とまと 05/11/3(木) 11:40 回答
【30639】Re:初歩的な事かもしれないですが・・・ tbtk 05/11/1(火) 18:10 お礼

50974 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free