「VBA」で組みました。
まず、目的のエクセルファイルを開き、「Alt+F11」(「Alt」(「オルト」と読みます)キーを押しながら、「F11」を押す)で、「Visual Basic」の画面を出します。
メニューの「挿入」から「標準モジュール」を選ぶと、画面の右側が白くなります。
その白くなった部分に、以下のマクロをコピー&ペーストして、「F5」(実行)するだけです。
ファイルを閉じる前に「F12」で「名前を付けて保存」を出して、ファイル名が表示されている1行下の右端「∨」をクリックして、「Excel マクロ有効ブック」にして保存してください(「~.xlsm」となります)。
Sub Test()
Set s1 = Worksheets(1)
Set s2 = Worksheets(2)
For i = 1 To 25
For j = 1 To 4
p1 = s1.Cells(i, j).Value
p2 = s2.Cells(i, j).Value
If p1 = "○" And p2 = "×" Then
s2.Cells(i, j).Interior.ColorIndex = 5
End If
If p1 = "×" And p2 = "○" Then
s2.Cells(i, j).Interior.ColorIndex = 3
End If
If p1 = "×" And p2 = "×" Then
s2.Cells(i, j).Interior.ColorIndex = 16
End If
Next j
Next i
End Sub
簡単な説明です。
Set s1 = Worksheets(1)
Set s2 = Worksheets(2)
一番左端のシートを「s1」、左から2番目のシートを「s2」にセットしています。
For i = 1 To 25
25行処理します。
For j = 1 To 4
4列処理します。
p1 = s1.Cells(i, j).Value
p2 = s2.Cells(i, j).Value
それぞれのセルの値を「p1」と「p2」に代入しています。
If p1 = "○" And p2 = "×" Then
s2.Cells(i, j).Interior.ColorIndex = 5
End If
もし「p1」が「○」で、かつ「p2」が「×」なら、
その2番目のシートのそのセルを「赤」に、
If p1 = "×" And p2 = "○" Then
s2.Cells(i, j).Interior.ColorIndex = 3
End If
If p1 = "×" And p2 = "×" Then
s2.Cells(i, j).Interior.ColorIndex = 16
End If
同じことを「青」と「グレー」でしています。
終わりです。
補足
本当に細かく説明していただき、ありがとうございます。まず、アンケート集計をせねばならず、R1C1形式については後ほどマスターしたいと思っております。(理解が遅くて情けないですが。。)で。アンケート集計で、またまた解らない事が! 去年と今年の質問が数問変わっていることが発覚しまして。例えば12行目は条件付き書式を反映させない、ときは適用先をA1:D11,A13:D25のように,カンマでつないだだけではだめなんですよね。。。はー