処理ロジック(パターン)としては、マッチングやファイル結合などの問題と思う。
色々な処理方法があると思う。質問者だけでなく、将来にGoogleなどで、この質問を目にする人もあると思うので挙げてみる。
ACCESSがあればそれを使うのがよいと思う。
(1)手作業
(2)関数VLOOKUP ただ2件以上の果物を見つける(探す)ことは難しい
(3)ACCESSで果物でファイル結合
(4)VBAでMatingプログラムを組む
両ファイルで果物でソートしておくと考えやすい。(略)
(5)エクセルで「統合」
(6)エクセルでピ「ボットテーブル」
(7)ソート法+表の組み換え(下記)
===
私のやってみた方法。VBAを使うが
表Aの最終行の次の行以下に、表Bを貼り付ける。手作業で行う。VBAでもできるが。
A列(果物)でソート。見出しのダブりなどは重複分は取り除く。
結果
キウィ 8
すだち 7
みかん 4
みかん 5
レモン 5
レモン 14
柿 2
柿 12
桃 11
桃 9
同じ果物は、隣り合う行に来る。
ーー
これをVBAプログラムで(表の組み換え類型のプログラムです)
Sub test01()
lr = Range("A100000").End(xlUp).Row: MsgBox lr
mae = Cells(1, "A")
k = 1
j = 7
Cells(k, j) = mae
j = j + 1
Cells(k, j) = Cells(1, "B")
j = j + 1
For i = 2 To lr
If Cells(i, "A") = mae Then
'---この行は果物が同じ
Cells(k, j) = Cells(i, "B")
j = j + 1
Else
'--この行で果物が変わった
k = k + 1
j = 7
Cells(k, "G") = Cells(i, "A")
j = j + 1
Cells(k, j) = Cells(i, "B")
j = j + 1
End If
mae = Cells(i, "A")
Next i
End Sub
ーーー
結果 G1:I6
キウィ 8
すだち 7
みかん 4 5
レモン 5 14
柿 2 12
桃 11 9
同じ果物が3度以上出現してもOKだろう。
上記では元の出現順序がソートによって崩れるが、手を加えれば復元できる。
お礼
ありがとうございました。確かにこの方法が簡単そうです。