

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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで色の付いているセルの行削除
Excel(エクセル)
-
色つき行の一括削除は?
Word(ワード)
-
特定の色のついたセルを削除
Visual Basic(VBA)
-
-
4
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
5
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
6
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
7
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
【Excel】色が付いているセルの値をクリアしたい
Excel(エクセル)
-
10
エクセルの選択範囲以外を削除する方法
Excel(エクセル)
-
11
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
12
エクセル 特定のセルを残して一括削除
Excel(エクセル)
-
13
エクセルVBAで、ある指定した文字を含む行だけを選択したいのですが、、 例えば、1〜20行目までに"9314253"
Excel(エクセル)
-
14
excelの不要な行の削除ができない!
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
任意フォルダから画像をすべて...
-
Excel vbaで特定の文字以外が入...
-
エクセルVBAでできるでしょ...
-
Excel VBA、 別ブックの最終行...
-
特定のセルが空白だったら、そ...
-
【VBA】指定したセルと同じ値で...
-
DataGridViewのセル編集完了後...
-
Excelで指定した日付から過去の...
-
【Excel VBA】指定行以降をクリ...
-
Application.Matchで特定行の検索
-
【Excel VBA】セルの色によって...
-
【Excel】指定したセルの名前で...
-
[Excel VB]プルダウンで文字選...
-
マクロで行がグループ化されて...
-
13箇所の株価をエクセルにRSSで...
-
VBAで検索して指定の位置に行を...
-
Excel VBAで、 ヘッダーへのセ...
-
screenupdatingが機能しなくて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
特定行の色を変えたい(FlexGrid)
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
”戻り値”が変化したときに、マ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
Excel VBAで、 ヘッダーへのセ...
-
TODAY()で設定したセルの日付...
-
【Excel VBA】指定行以降をクリ...
-
Excel vbaで特定の文字以外が入...
-
ExcelのVBAで数字と文字列をマ...
-
Excel VBA、 別ブックの最終行...
-
DataGridViewの各セル幅を自由...
-
VBA ユーザーフォーム ボタンク...
-
連続する複数のセル値がすべて0...
おすすめ情報