excel - 2 つの列 Ax、Bx を比較し、真の場合は値 Cx を異なる列 Dx に出力する Excel マクロ

Question

60,000 行、30 列以上の Excel レポートがあります。H1列内のすべての値と値を比較したいのですB:Bが、一致する場合は、値Nxを別の列に出力するBF:BFかsheet2.A:A、どちらか単純な方に移動してから、などに移動しHxます。

助けてください。よろしくお願いします。

Answer 1

マクロを使用する理由

[BF2] =IF($H$1=B2; N2; "")
[H2]  =BF2

Answer 2

このコードは、列 B の各セルを、同じシートのセル H1 に格納されている値でチェックします。値が一致すると、列 BF の対応するセル (行ごと) に列 "N" の値が入力されます。

Sub CompareValues ()
Dim Wks as Worksheet: Set Wks = Sheets("YourWorkSheetName")
    ' in this worksheet the code will do the lookup and copy values
Dim Wks2 as Worksheet: Set Wks2 = Sheets("YourOtherWorkSheetName")
    ' in this sheet (2) the code will optionally copy the values
CompareValue = Wks.Range("H1").value
    Dim I as integer
    for i = 1 to 10000 ' you can set a smaller value thow
        If Wks.Range("B"&i) = CompareValue then 
        Wks.Range("BF"&i).Value = Wks.Range("N"&i)
        ' to fill the value into another sheet simply replace the Wks with Wks2
        ' Wks2.Range("BF"&i) = = Wks.Range("N"&i)
        end if
    next i
End Sub

お役に立てれば！