Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70849 / 76734

←次へ　｜　前へ→


	【10387】Re:ﾙｰﾌﾟで該当する行を削除

ichinose - 04/1/23(金) 7:18 -


	引用なし

	パスワード

▼かみちゃんさん、チリさん、おはようございます。

>>そこで下記のようにしてみましたが、行をSelectする部分で「実行時エラー（1004）」となってしまいます。
>>
>>Do Until i > aaa
>>　　If (Worksheets("bbb").Cells(i, 3) = "") Then
>>　　　　Worksheets("bbb").Rows("i:i").Select
>
>iは変数ですので、"i:i"が間違いです。
>
>Worksheets("bbb").Rows(i).Select
>または、
>Worksheets("bbb").Rows(i & ":" & i).Select
>とします。
↑でエラーはなくなると思いますが、このままだと
チリさんの意図する仕様で動いてくれない可能性があります
（連続してＣ列に""が行に入っている場合）。

以下は、一例ですが、
'=================================
Sub test()
　 aaa = 30
　 i = aaa
　 Do Until i = 0
　　If (Worksheets(1).Cells(i, 3) = "") Then
　　　　Worksheets(1).Rows(i). _
　　　　　Delete Shift:=xlUp
'　　　　selectしなくても削除するだけならできます。
　　End If
　　i = i - 1
　　Loop
End Sub

のように行の下から上にセルの値をチェックしていくと、
漏れがないかと・・・。

1 hits

▼

【10385】ﾙｰﾌﾟで該当する行を削除 チリ 04/1/22(木) 21:03