Excel VBAで色が付いているセルのシート名、アドレスの一覧を出力するマクロを作って
Sub FindColoredCells()
Dim ws As Worksheet
Dim cell As Range
Dim summarySheet As Worksheet
Dim pasteRow As Long
‘ 結果を貼り付けるシートを指定
Set summarySheet = ThisWorkbook.Sheets(“結果シート”)
‘ 列ヘッダーを設定
summarySheet.Range(“A1”).Value = “シート名”
summarySheet.Range(“B1”).Value = “セルアドレス”
‘ 各シートのセルをチェック
For Each ws In ThisWorkbook.Sheets
‘ 各セルを処理
For Each cell In ws.UsedRange.Cells
‘ セルの背景色が白以外の場合
If cell.Interior.Color <> RGB(255, 255, 255) Then
‘ シート名とセルアドレスを結果シートに出力
pasteRow = summarySheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
summarySheet.Cells(pasteRow, 1).Value = ws.Name
summarySheet.Cells(pasteRow, 2).Value = cell.Address
End If
Next cell
Next ws
‘ 結果を整列
summarySheet.UsedRange.Sort Key1:=summarySheet.Range(“A2”), Order1:=xlAscending, Header:=xlYes
‘ 結果を表示
summarySheet.Activate
End Sub
