▽1
●
匿名回答1号 ベストアンサー |
Option Explicit Sub c() Dim r As Range For Each r In Worksheets("Sheet1").Range("A1:C1") Worksheets("Sheet2").Cells(r.Row, r.Column).Interior.ColorIndex = r.Interior.ColorIndex Worksheets("Sheet3").Cells(r.Row, r.Column).Interior.ColorIndex = r.Interior.ColorIndex Next End Sub