A列の内容があるセルをひとつずつ処理するループ
Range(Range("A:A").End(xlUp), Range("A:A").End(xlDown)).Select For Each sel In Selection ' 赤くします. With sel.Interior .ColorIndex = 3 ' 赤 End With Next
Range(Range("A:A").End(xlUp), Range("A:A").End(xlDown)).Select For Each sel In Selection ' 赤くします. With sel.Interior .ColorIndex = 3 ' 赤 End With Next