![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?a65a0e2)
No.3ベストアンサー
- 回答日時:
LOOPとあるので、VBAですか?そうなら以下
Sub WK()
Dim Cnt1 As Long
Dim END行 As Long
END行 = ActiveSheet.Range("A65536").End(xlUp).Row
For Cnt1 = 2 To END行
If ActiveSheet.Range("B" & Cnt1).Interior.ColorIndex = xlNone Then
ActiveSheet.Range(Cnt1 & ":" & END行).Delete
GoTo N
End If
Next Cnt1
N: Application.StatusBar = False
End Sub
No.2
- 回答日時:
それを VBA にするとこんな感じ。
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
このコードも #1 の方法も、基点である「色が透明な一番上のセル」を探すことはしていない。
単純に 「今選択しているセルの行から最終行までを削除する」というだけなので、余計な行まで削除してしまう可能性はある。
No.1
- 回答日時:
1. 色なしが始まる行のセルを選択する。
(質問者のサンプルで言えば B9)2. [Shift] キーを押したまま、[End] キーをポンと叩き、その後 [↓] キーをポンと叩く。(この間ずっと Shift を押しっぱなし)
するとサンプルで言えば B9 から B18 まで選択された状態になる。
3. その状態で次は [Shift] キーを押したまま [スペース] キーを押す。
今度は 9行目から 18行目までの行全体を選択した状態になる。
4. 選択されている範囲内の任意の場所で右クリックし、[削除] コマンドを選択する。
[End]+[↓] は値が入っていないセルの手前で止まってしまうというところに注意が必要。
なのでサンプルで言えば A列のように、「必ず値が入っている」 という列で行ったほうが良い。
あと、[Shift]+[スペース] を行うときは日本語入力モードが OFF の状態じゃないとうまくいかない。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- iPhone(アイフォーン) 以前使っていたSIMカード抜いた状態のiPhoneの 写真アプリの中のデータを一括削除して 『最近削 2 2022/05/20 03:00
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセル関数のことで質問です。 別シートセルから値をもってくるように関数を設定しているときに、 別シ 3 2023/01/31 14:10
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
色つき行の一括削除は?
Word(ワード)
-
VBAで色の付いているセルの行削除
Excel(エクセル)
-
特定の色のついたセルを削除
Visual Basic(VBA)
-
-
4
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
5
【Excel】色が付いているセルの値をクリアしたい
Excel(エクセル)
-
6
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
7
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
8
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
9
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
10
フォントの色を指定して削除出来ないでしょうか?
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
エクセルの選択範囲以外を削除する方法
Excel(エクセル)
-
13
セルに背景色がある行を別シートにコピー
その他(Microsoft Office)
-
14
VBA 数式を最終行までコピー
Excel(エクセル)
-
15
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
16
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
17
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
18
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
19
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
20
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
Excel VBA マクロ ある列の最終...
-
vba 隣のセルに値がある行だけ...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
-
VBAでセルをクリックする回...
-
VBSでエクセル内の行数を取得す...
-
i=cells(Rows.Count, 1)とi=cel...
-
”戻り値”が変化したときに、マ...
-
特定の文字を条件に行挿入とそ...
-
ExcelのVBAで数字と文字列をマ...
-
3桁または4桁の数値を時刻に...
-
Excelのプルダウンで2列分の情...
-
クリックされたセルの位置を取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
【Excel】指定したセルの名前で...
-
”戻り値”が変化したときに、マ...
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルvbaで、別シートの最下...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
Excel VBA マクロ ある列の最終...
-
VBAでセルをクリックする回...
-
特定の文字を条件に行挿入とそ...
-
Excel vbaで特定の文字以外が入...
-
Excelのプルダウンで2列分の情...
-
VBからEXCELのセルの値を取得す...
-
EXCELで変数をペーストしたい
-
vba 隣のセルに値がある行だけ...
おすすめ情報