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

时间:2017-06-21 10:28:41

标签: excel vba excel-vba

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

Debit        Credit
5000
             6000
6000
6000
3000         5000

等等。

我想要实现的是突出显示匹配的借方和贷方的数量,即在上面的示例中,有2个借方为6000但只有一个贷方,因此每列中只应突出显示一个6000。

非常感谢任何协助

2 个答案:

答案 0 :(得分:0)

这可以使用条件格式化完成,我的数据在H1:I6中,使用以下

在借记栏

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

在信用栏上,切换计数,从比较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))

希望这有帮助。

答案 1 :(得分:0)

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