ｴｸｾﾙのﾏｸﾛの背景色の参照
Sheet1のA1,B1,C1とSheet2のA1,B1,C1の背景色を
A1はA1で参照させB1はB1でと参照させる場合､
Sheet2.Range("A1").Interior.ColorIndex =
Sheet1.Range("A1").Interior.ColorIndex
Sheet2.Range("B1").Interior.ColorIndex =
Sheet1.Range("B1").Interior.ColorIndex
Sheet2.Range("C1").Interior.ColorIndex =
Sheet1.Range("C1").Interior.ColorIndex
この方法よりもっとｽﾏｰﾄな方法を教えて頂けませんか？
何卒よろしくお願いします｡

Option Explicit

Sub c()
 Dim r As Range
 For Each r In Worksheets("Sheet2").Range("A1:C1")
 r.Interior.ColorIndex = Worksheets("Sheet1").Cells(r.Row, r.Column).Interior.ColorIndex
 Next
End Sub

(C)株式会社はてな