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 上記のようなシートがありまして発注数０の品番は消去したいとおもってマクロを作成したのですが [作成したマクロ] 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 上記のコードだと消去したかったのに消去しきれない部分がでてしまいます。理由もなんとなくわかるのですが、どう改善したら良いのかよくわかりません。どなたかヒントでも頂けると有難いです。よろしくお願いします。