VBAを使用してExcelの2列の値を複数一致させる

Question

現在、2列の値を一致させる必要があります。現在、データは次のように設定されています。

Debit  Credit 
5000 
      6000 
6000 
6000 
3000   5000 

などです。

私が達成しようとしているのは、上記の例で一致した借方と貸方の数を強調することです.6000に対して2つの借方がありますが、1つの借方しかないので、各列で1つだけ6000を強調表示する必要があります。

どのような援助が大幅に

Answer 1

これは、条件付き書式を使用して行うことができいただければ幸い、私は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))

希望します。

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