Excel VBA質問箱 IV

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

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


70855 / 76738 ←次へ | 前へ→

【10385】ループで該当する行を削除
質問  チリ  - 04/1/22(木) 21:03 -

引用なし
パスワード
   こんばんは チリといいます。

ループでぐるぐる回して、
条件にあったセルを行ごと削除しようとしています。

そこで下記のようにしてみましたが、行をSelectする部分で「実行時エラー(1004)」となってしまいます。

Do Until i > aaa
  If (Worksheets("bbb").Cells(i, 3) = "") Then
    Worksheets("bbb").Rows("i:i").Select
    Selection.Delete Shift:=xlUp
  End If

  i = i + 1

Loop

これって出来ないのでしょうか・・・?
どなたか宜しくお願いします。
0 hits

【10385】ループで該当する行を削除 チリ 04/1/22(木) 21:03 質問
【10386】Re:ループで該当する行を削除 かみちゃん 04/1/22(木) 23:40 回答
【10387】Re:ループで該当する行を削除 ichinose 04/1/23(金) 7:18 発言
【10388】Re:ループで該当する行を削除 BOTTA 04/1/23(金) 10:54 発言
【10389】Re:ループで該当する行を削除 チリ 04/1/23(金) 12:33 お礼

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