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(エクセル)
-
5
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
6
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
7
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
8
エクセルの行の削除を配列で高速化したい
その他(Microsoft Office)
-
9
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
10
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
フォントの色を指定して削除出来ないでしょうか?
Excel(エクセル)
-
13
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
14
VBA 条件付き書式で空欄は適用除外したい
Visual Basic(VBA)
-
15
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
16
敬語:●●をとりにきてほしい、といいたい時
日本語
-
17
複数シートの色付きセルがある行を別シートに抽出
Excel(エクセル)
-
18
VBAで文字列を数値に変換したい
Excel(エクセル)
-
19
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
20
エクセルで別シートの同じ位置にオブジェクトをコピーしたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】指定行以降をクリ...
-
ExcelVBAを使って、値...
-
【Excel】指定したセルの名前で...
-
”戻り値”が変化したときに、マ...
-
特定のセルが空白だったら、そ...
-
VBA実行後に元のセルに戻りたい
-
i=cells(Rows.Count, 1)とi=cel...
-
EXCELで変数をペーストしたい
-
Excel VBA マクロ ある列の最終...
-
VBAでセルをクリックする回...
-
Excelで指定した日付から過去の...
-
Excelのプルダウンで2列分の情...
-
セル色なしの行一括削除
-
EXCELのVBA-フィルタ抽出後の...
-
Excel VBA、 別ブックの最終行...
-
ExcelVBA:オートフィルタをかけ...
-
DataGridViewのセル編集完了後...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
VBA コピーして次の値まで貼り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
TODAY()で設定したセルの日付...
-
Excel vbaで特定の文字以外が入...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報