使用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