表の中にある黄色のセルだけ抽出したい

前提・実現したいこと

マクロ初心者です。
表の中にある黄色のセルだけ抽出したのですが、
下記マクロだとA列のものだけしか出てきません。他のれつの黄色のセルも全部抽出するには、
どうすればよいのでしょうか？御教授お願い致します。

発生している問題・エラーメッセージ

エラーはありません

該当のソースコード

Sub 色抽出()
ActiveSheet.AutoFilterMode = False
Range("A1").AutoFilter _
Field:=1, _
Operator:=xlFilterCellColor, _
Criteria1:=RGB(255, 255, 0)
End Sub

試したこと

ここに問題に対して試したことを記載してください。

Field:=の番号をかえると抽出数が増えますが全部は抽出来ません

radames1000

2021/01/01 01:28

最初の表と、最後に臨む結果を手作業でも作ってみて提示してください。

行動規範の内容に同意します

回答1件

VBAで作業列を使ってみました。

データ範囲の右隣りを作業列として、そこに行内に黄色のセルがある場合に"〇"を代入して、作業列を対象にオートフィルターかけます。

vba
1Sub 色抽出()
2    ActiveSheet.AutoFilterMode = False
3
4    Dim r As Range
5    For Each r In Range("A1").CurrentRegion.Rows
6        Dim c As Range
7        For Each c In r.Cells
8            If c.Interior.Color = RGB(255, 255, 0) Then
9                r.Cells(1, r.Columns.Count + 1).Value = "〇"
10                Exit For
11            End If
12        Next
13    Next
14
15    With Range("A1").CurrentRegion
16        .AutoFilter _
17                Field:=Range("A1").CurrentRegion.Columns.Count, _
18                Criteria1:="〇"
19    End With
20End Sub

　

サンプルを作成して上記処理を実行した結果のキャプチャー

投稿2020/12/26 16:42

編集2020/12/27 08:56

hatena19

総合スコア34073

oldlingo

2020/12/27 08:16

早々に回答頂き恐縮至極です。ありがとうございます。実行したところエラーなしに動きましたが、黄色の抽出が0件になりました。作業列のすぐ横のシートが前回シートの貼り付けで、その横が今回シート貼り付けになっています。このファイルそのものは何処かに出して作ってもらった物らしく、構造がよく分かりません。やたら計算式が入っています。前回シートと今回シートと比較して差分が作業列に黄色で表示されているのですが、今回やりたい事はその黄色になったセルが混じっている行だけ抽出したいという目的です。 VBA初心者で、ネットで調べながらトライしてみているのですが、いまのところ全件抽出することが出来ません。急ぎませんのでまた時間のある時ご教示お願い致します。