Excel VBA質問箱 IV

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

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


50917 / 76732 ←次へ | 前へ→

【30695】Re:初歩的な事かもしれないですが・・・
質問  gako  - 05/11/3(木) 9:18 -

引用なし
パスワード
   ▼とまと さん:

お邪魔します。ちょっと教えていただきたいのですが。
貴殿のコードはよく理解できました。
他の方法でと思い作成したのですが、D列に続いて「0」が
くると(例えばD6、D7がともに0のような場合)小生の
作成したコードでは2回マクロを動かさないと削除できない
のですが、どこが問題かご指摘いただけませんでしょうか。

 Dim R As Range
 Dim MyR As Range
 Set MyR = Range("D2", Range("D65536").End(xlUp))
For Each R In MyR
 If R = 0 Then
  Rows(R.Row).Delete
 End If
Next

宜しくお願いいたします。

2 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 お礼

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