質問: VBA素人です。 複数列でのデータ重複を別シートへ転記する方法を教えてください。 AAAシートのB列とF列で重複を確認し、F列にしかない値のG列を抽出し、 AAAシートE列とBBBシートC列が一致する行のF列に反映させたいです。 素人でうまく説明できていないとは思うのですが、お力添え頂ければ嬉しいです。 宜しくお願い致します。
回答: >AAAシートのB列とF列で重複を確認し、F列にしかない値のG列を抽出し、 >AAAシートE列とBBBシートC列が一致する行のF列に反映させたいです。 1.AAAシートの、B列とF列を比較 2.F列にしか存在しない行を取得 3.2で取得した行のG列とE列の値を取得 4.BBBシートC列から、3で取得したE値と同じ行を取得 5.BBBシートの4で取得した行のF列に、3で取得したG値を入力 以上の様に解釈。 Const StartRA = 3, StartRB = 3 Dim WSA, WSB Dim Flg As Boolean Dim RB, LastRB Dim RF, LastRF Dim RC, LastRC Set WSA = Worksheets("AAA") Set WSB = Worksheets("BBB") LastRB = WSA.Cells(Rows.Count, "B").End(xlUp).Row LastRF = WSA.Cells(Rows.Count, "F").End(xlUp).Row LastRC = WSB.Cells(Rows.Count, "C").End(xlUp).Row For RF = StartRA To LastRF Flg = False For RB = StartRA To LastRB If WSA.Cells(RF, "F") = WSA.Cells(RB, "B") Then Flg = True Exit For End If Next RB If Flg = False Then For RC = StartRB To LastRC If WSA.Cells(RF, "E") = WSB.Cells(RC, "C") Then WSB.Cells(RC, "F") = WSA.Cells(RF, "G") Exit For End If Next RC End If Next RF