ExcelマクロでB列とF列を照合し合格と表示・水色で塗りつぶす方法

Excelのマクロを使用して、特定の列を照合し、合致する値があればその隣のセルに「合格」と表示させ、さらにセルを水色で塗りつぶす方法について解説します。本記事では、簡単なVBAコードを使用してこの処理を実現する方法を紹介します。

1. 照合する範囲の設定

まず、照合する範囲を設定します。今回はB列（B1～B10）とF列（F1～F10）を照合します。VBAで照合を行うには、範囲を指定して、同じ値があればその値に関連した処理を行います。

例えば、B列の各セルとF列の各セルを照合するために、次のようにループ処理を使います。

For i = 1 To 10
    For j = 1 To 10
        If Cells(i, 2).Value = Cells(j, 6).Value Then
            ' 合致する値が見つかった場合の処理
        End If
    Next j
Next i

2. 合致する場合の処理

照合した結果、B列とF列に同じ値が見つかった場合、C列に「合格」と表示させます。また、同時にC列のセルを水色に塗りつぶします。この操作を行うには、次のようにコードを書きます。

If Cells(i, 2).Value = Cells(j, 6).Value Then
    Cells(i, 3).Value = "合格"
    Cells(i, 3).Interior.Color = RGB(173, 216, 230) ' 水色
End If

3. コード全体の例

以下に、B列とF列を照合し、合致する場合にC列に「合格」と表示し、水色で塗りつぶすマクロの全体コードを示します。このコードは、実際のExcelシートで動作します。

Sub CheckMatchAndHighlight()
    Dim i As Integer, j As Integer
    For i = 1 To 10
        For j = 1 To 10
            If Cells(i, 2).Value = Cells(j, 6).Value Then
                Cells(i, 3).Value = "合格"
                Cells(i, 3).Interior.Color = RGB(173, 216, 230)
            End If
        Next j
    Next i
End Sub

4. 実行方法と結果の確認

このマクロを実行することで、B列の値とF列の値が一致した場合に、対応するC列のセルに「合格」と表示され、そのセルが水色で塗りつぶされます。実際にExcelのVBAエディタでこのコードを入力し、実行ボタンを押すことで、簡単に結果を確認できます。

また、このマクロはB列とF列の照合を行い、最初に一致した時点で処理を行うため、複数の一致があった場合でも正しく動作します。

5. まとめ

Excelマクロを使用して、B列とF列を照合し、同じ値があればその隣のC列に「合格」と表示し、水色で塗りつぶす方法について解説しました。VBAコードを活用することで、このような自動化を簡単に実現できます。ぜひ、これを基に他のカスタマイズも行って、作業を効率化してください。