公開:16.9.8
Dim c For Each c In Range("A1:A100") '3行目の同列セルからコピー c.Interior.ColorIndex = Cells(3, c.Column()).Interior.ColorIndex Next c
ただしCellsやRangeをForループで処理するのは速度が遅いので注意。