セルの色をマクロで判定

質問

セルの色をマクロで判定したいのですが、知恵をお貸し下さい。
シート１のＡ１セルからＡ４０と
　　　　　Ｃ１セルからＣ４０と
　　　　　Ｅ１セルからＥ４０セルを確認しセルが黄色だったら
シート２のＦ１セルからＦ４０
　　　　　Ｈ１セルからＨ４０
　　　　　Ｊ１セルからＪ４０の同じ配列の所（Ａ１だったらＦ１）のセルを赤色にしたいのですが、どのようなマクロを組むといいのでしょうか、どうか宜しくおねがいします。

回答No.1

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

VBAは苦手なので 次の回答者まちということでm(_ _)m
Sub Macro1()
Dim 列 As Byte
Dim 行 As Long

For 列 = 1 To 5 Step 2
　For 行 = 1 To 40
　　With Worksheets("Sheet2")
　　　If Cells(行, 列).Interior.ColorIndex = 6 Then
　　　　.Cells(行, 列).Interior.ColorIndex = 3
　　　Else
　　　　.Cells(行, 列).Interior.ColorIndex = xlNone
　　　End If
　　End With
　Next 行
　Next 列

End Sub
Sheet1において実行します
ひたすら繰り返し文

回答No.2

merlionXX

nokkostoさんがおっしゃるシート１の名がSheet1、シート２の名がSheet2、「セルが黄色」とはセルの文字ではなく背景色が黄色（ColorIndexが6）だと仮定したの場合の一例です。（黄色と言っても何種類もありますから）

Sub test()
With Sheets("Sheet2")
For Each c In Sheets("Sheet1").Range("A1:E40")
Select Case c.Column
Case 1, 3, 5
If c.Interior.ColorIndex = 6 Then
.Range(c.Address).Offset(0, 5).Interior.ColorIndex = 3
Else
.Range(c.Address).Offset(0, 5).Interior.ColorIndex = xlNone
End If
End Select
Next c
End With
End Sub