Option Explicit Sub 本体を赤く() ' ' 本体を赤く Macro ' ' Dim i As Integer For i = 1 To Sheets.Count Worksheets(i).Activate '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Cells.Select Selection.FormatConditions.Add Type:=xlTextString, String:="本…