VBAで色の付いているセルの行を削除することは出来ないでしょうか?
量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・
- 文字または数字
■ 色の付いたセル(赤)
A B C D E F・・・
1- - - - - -
2- - - - - -
3- - - ■ - -
4- - ■ - - -
5- - ■ - - -
6- - - - - -
7- - - ■ - -
8- - ■ - - -
9- - ■ - - -
10- - - - - -
↓
A B C D E F・・・
1- - - - - -
2- - - - - -
6- - - - - -
10- - - - - -
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
No1です。
いちいち行や列数をいれなくともいいように変えました。
Sub test2()
x = ActiveCell.SpecialCells(xlLastCell).Row
y = ActiveCell.SpecialCells(xlLastCell).Column
For i = x To 1 Step -1
For n = 1 To y
If Cells(i, n).Interior.ColorIndex <> xlNone Then Rows(i).Delete
Next n
Next i
End Sub
No.4
- 回答日時:
Public Sub 色の付いたセルのある行を消す()
Dim linePos, i
ActiveCell.SpecialCells(xlLastCell).Select
linePos = ActiveCell.Row
For i = linePos To 1 Step -1
If colored(Range(Rows(i).Address)) Then
Rows(i).Delete Shift:=xlUp
End If
Next
End Sub
'指定した範囲に色の付いたセルがあるか?
Function colored(r As Range) As Boolean
Dim x As Range
For Each x In r
If x.Interior.Color <> RGB(255, 255, 255) Then '白(色がついてない、標準の状態)でない
colored = True
Exit Function
End If
colored = False
Next
End Function
No.2
- 回答日時:
これでどうでしょうか。
シートモジュールを使用します(Sheet1等をダブルクリックして書きます)。
△と▲は、使っている色のインデックスを取得するために、見本として、色のついているどれかのセルの行番号と列番号を入れてください。
☆と★は、処理の対象とする範囲の、行の数と列の数を入れてください。
Sub 行削除()
Dim 行, 行数 As Long
Dim 列, 列数 As Integer
Dim 色 As Integer
色 = Cells(△, ▲).Interior.ColorIndex
行数 = ☆
列数 = ★
行 = 1
Do While 行 <= 行数
列 = 1
Do While 列 <= 列数
If Cells(行, 列).Interior.ColorIndex = 色 Then
Rows(行).Delete
列 = 1
行数 = 行数 - 1
Else
列 = 列 + 1
End If
Loop
行 = 行 + 1
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/02/10 11:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
特定の色のついたセルを削除
Visual Basic(VBA)
-
色つき行の一括削除は?
Word(ワード)
-
セル色なしの行一括削除
その他(プログラミング・Web制作)
-
-
4
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
5
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
8
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
9
フォントの色を指定して削除出来ないでしょうか?
Excel(エクセル)
-
10
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
11
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
15
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
16
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
【Excel】色が付いているセルの値をクリアしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
Excel グラフのプロットからデ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロで数値が変っ...
-
特定の文字がある行以外を削除...
-
Excel ウインドウ枠の固定をす...
-
エクセルVBA 最終行を選んで並...
-
エクセル 時間の表示形式AM/PM...
-
エクセル 上下で列幅を変えるには
-
エクセルマクロで偶数行(又は...
-
電話番号の入力方式が違うデー...
-
EXCELマクロを使い、空白行では...
-
結合されたセルをプルダウンの...
-
Excel2007で、指定範囲の行高さ...
-
AのセルとB行を比較して、一致...
-
Excel 空白行を上に詰めるマクロ
-
セルではなく行や列、シート全...
-
チェックボックスをクリックし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
VBAで色の付いているセルの行削除
-
セルの色によって条件文をつけ...
-
excel 小さすぎて見えないセル...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルVBA 最終行を選んで並...
-
EXCELマクロを使い、空白行では...
-
EXCELで最後の行を固定
おすすめ情報