Excel表格VBA宏代码：找出两列相同的数据并标红

在表4中操作，将C列和G列的数据进行对比，如果C列中出现G列中相同的数据，就将C列对应的数据进行标红，浅红处理，如图：

 代码如下：

Sub HighlightMatchingNumbers()
    Dim ws As Worksheet
    Dim cCell As Range, gCell As Range
    Dim LastRowC As Long, LastRowG As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet4")
    
    ' 确定C列和G列的最后一行
    LastRowC = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    LastRowG = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' 遍历C列
    For Each cCell In ws.Range("C1:C" & LastRowC)
        ' 遍历G列
        For Each gCell In ws.Range("G1:G" & LastRowG)
            ' 检查数字是否匹配
            If cCell.Value = gCell.Value And IsNumeric(cCell.Value) Then
                ' 设置背景颜色为浅红色
                cCell.Interior.Color = RGB(255, 199, 206) ' 这是一个浅红色的例子
            End If
        Next gCell
    Next cCell
End Sub