エクセル 重複数字の書き換えについて

質問

シート１のA列に番号（重複番号あり）　B列に項目。シート２のA列に番号（重複番号なし）　B列に項目。シート２の順番を正としてシート１のA列重複番号をVBAで書き換えるには、どうしたらよろしいか。
【シート１】　　　【シート２】　　　　【シート１】
１　りんご　　　　　１　バナナ　　　　　３　りんご
２　バナナ　　　　　２　すいか　　　　　１　バナナ　　
２　バナナ　　　　　３　りんご　⇒　　　１　バナナ　　
２　バナナ　　　　　　　　　　　　　　　１　バナナ　
３　すいか　　　　　　　　　　　　　　　２　すいか

回答No.2

chie65536（@chie65535） · ベストアンサー

Private Sub CommandButton1_Click()
Dim cMax As Integer
Dim i As Long
On Error Resume Next
cMax = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To cMax
Cells(i, 1).ClearContents
Cells(i, 1).Value = Worksheets("シート2").Cells(Application.WorksheetFunction.Match(Cells(i, 2), Worksheets("シート2").Range("B:B"), 0), 1).Value
Next i
End Sub

回答No.3

imogasi

シート１の項目名でシート２の項目名を引き、見つかった同行の番号を検索したら、しまいではないのか。
結果的にシートの番号列を残すのか上書きするのかあると思うが。
全くＶＬＯＯＫＵＰ関数（ＦＡＬＳＥ型）の利用問題ではないか。
ただし番号列が項目列より左列にあるので、同じ項目名がどの行にあるかをＭａｔｃｈ関数で見つければ、できる。
同一シートの場合
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
1 りんご 1 バナナ 3 りんご
2 バナナ 2 すいか 1 バナナ
2 バナナ 3 りんご 1 バナナ
2 バナナ 　　　 1 バナナ
3 すいか 　　　 2 すいか
Ｆ列はＢ列を持ってくる。＝Ｂ２など。
Ｅ２セルの式は　=MATCH($B2,$D$1:$D$4,)-1
下ｈプｋプに式を複写。
結果は上記Ｅ列

回答No.1

aokii

VBAではなく普通のエクセルですが以下の方法ではいかがでしょう。
シート１のシート名はSheet1、シート２のシート名はSheet2の場合です。
Sheet2のA列とB列のデータを入れ替える→Sheet1のA1セルに以下の式を入れて下にドラッグコピー
=VLOOKUP(B1,Sheet2!A:B,2,FALSE)