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も見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
【お題】逆襲の桃太郎
【大喜利】桃太郎が1回鬼退治に失敗したところから始まる新作昔話「リベンジオブ桃太郎」にはこんなシーンがある
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
色つき行の一括削除は?
Word(ワード)
-
VBAで色の付いているセルの行削除
Excel(エクセル)
-
特定の色のついたセルを削除
Visual Basic(VBA)
-
-
4
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
5
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
6
エクセルの選択範囲以外を削除する方法
Excel(エクセル)
-
7
【Excel】色が付いているセルの値をクリアしたい
Excel(エクセル)
-
8
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
9
フォントの色を指定して削除出来ないでしょうか?
Excel(エクセル)
-
10
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
11
エクセル 特定のセルを残して一括削除
Excel(エクセル)
-
12
エクセルVBA 最終行を選んで並び替え
Excel(エクセル)
-
13
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
14
セルに背景色がある行を別シートにコピー
その他(Microsoft Office)
-
15
VBA 数式を最終行までコピー
Excel(エクセル)
-
16
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
19
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
20
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・「みんな教えて! 選手権!!」開催のお知らせ
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・【選手権お題その3】この画像で一言【大喜利】
- ・【お題】逆襲の桃太郎
- ・自分独自の健康法はある?
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・ちょっと先の未来クイズ第6問
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・【選手権お題その2】この漫画の2コマ目を考えてください
- ・【選手権お題その1】これってもしかして自分だけかもしれないな…と思うあるあるを教えてください
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
【Excel VBA】指定行以降をクリ...
-
連続する複数のセル値がすべて0...
-
i=cells(Rows.Count, 1)とi=cel...
-
VBAでセル同士を比較して色付け
-
vba 隣のセルに値がある行だけ...
-
VBA実行後に元のセルに戻りたい
-
エクセルvba:自己セルの情報取...
-
DataGridViewの各セル幅を自由...
-
セル色なしの行一括削除
-
ExcelのVBAで数字と文字列をマ...
-
VBA コピーして次の値まで貼り...
-
【Excel】指定したセルの名前で...
-
特定のセルが空白だったら、そ...
-
特定の文字を条件に行挿入とそ...
-
EXCELで変数をペーストしたい
-
VBAコマンドボタンを押すたびに...
-
【VBA】シート上の複数のチェッ...
-
セルに画像挿入すると、右セル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
VBA実行後に元のセルに戻りたい
-
”戻り値”が変化したときに、マ...
-
Excelのプルダウンで2列分の情...
-
連続する複数のセル値がすべて0...
-
vba 隣のセルに値がある行だけ...
-
エクセルvbaで、別シートの最下...
-
Excel vbaで特定の文字以外が入...
-
EXCELのVBA-フィルタ抽出後の...
-
特定の文字を条件に行挿入とそ...
-
【EXCEL VBA】Range("A:A").Fi...
-
【VBA】シート上の複数のチェッ...
-
DataGridViewの各セル幅を自由...
-
VBAでセル同士を比較して色付け
-
【VBA】指定したセルと同じ値で...
-
セル色なしの行一括削除
おすすめ情報