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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
特定の色のついたセルを削除
Visual Basic(VBA)
-
色つき行の一括削除は?
Word(ワード)
-
セル色なしの行一括削除
その他(プログラミング・Web制作)
-
-
4
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
9
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
10
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
13
フォントの色を指定して削除出来ないでしょうか?
Excel(エクセル)
-
14
【Excel】色が付いているセルの値をクリアしたい
Excel(エクセル)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
17
【Excel VBA】 条件付き書式の結果、グレーアウトされたセルの値を削除したい
Excel(エクセル)
-
18
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
19
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
20
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
Excel グラフのプロットからデ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
EXCELで最後の行を固定
-
サイズの違うセル 並べ変え
-
エクセル 上下で列幅を変えるには
-
EXCELマクロを使い、空白行では...
-
エクセル マクロで数値が変っ...
-
直近の5個の平均を求めたい
-
EXCEL 「最後のセル」のリセット
-
Excel 時刻の並び替え
-
AのセルとB行を比較して、一致...
-
アクティブになっている行をマ...
-
Excel ウインドウ枠の固定をす...
-
Excel2007で、指定範囲の行高さ...
-
エクセルVBA:リストに登録した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
VBAで色の付いているセルの行削除
-
セルの色によって条件文をつけ...
-
excel 小さすぎて見えないセル...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルVBA 最終行を選んで並...
-
EXCELマクロを使い、空白行では...
-
EXCELで最後の行を固定
おすすめ情報