使用VBA在excel中匹配多个值出现在2列中的值

Question

我目前需要匹配2列中的值。数据目前设置如下：

Debit  Credit 
5000 
      6000 
6000 
6000 
3000   5000 

等等。

我想要实现的是突出显示与上面例子相匹配的借方和贷方的数量，有6000个贷方的2个借方，但只有一个贷方，所以只有一个6000应该在每列中突出显示。

任何援助将不胜感激

Answer 1

这可以使用条件格式来完成，我有我的数据在H1：使用以下

在借方列

=AND(COUNTIF($I$2:I$6,H2)<COUNTIF($H$2:$H$6,H2),ROW(H2)-1=MATCH(H2,$H$2:$H$6,0)) 

I6，在信用栏上，将计数从比较I转换为H，将比较H转换为I

=AND(COUNTIF($I$2:$I$6,I2)<COUNTIF($H$2:$H$6,I2),ROW(I2)-1=MATCH(I2,$I$2:$I$6,0))

希望这会有所帮助。

Answer 2

Sub Macro1() 
    iRowMax = 6 
    iColDeb = 1 
    iColCre = 2 
    For iRowD = 2 To iRowMax 
     For iRowC = 2 To iRowMax 
      If Cells(iRowC, iColCre).Interior.Color <> 65535 Then 
       If Cells(iRowC, iColCre) = Cells(iRowD, iColDeb) Then 
        Cells(iRowC, iColCre).Interior.Color = 65535 
        Cells(iRowD, iColDeb).Interior.Color = 65535 
        Exit For 
       End If 
      End If 
     Next iRowC 
    Next iRowD 
End Sub