違う字体の漢字をエクセルのＶＬＯＯＫＵＰ関数で一致させる。

質問

出来ない無理なことかも知れませんが、少しでも楽になるヒントがあれば教えて下さい。

(1)別々に入力をされた氏名のリストがあります。
(2)別々の入力がされているので、別の字で登録されて　いる。（旧字体と新字体）
　同じ字で登録している（つもり）のにかかわらず、　一致してくれない。
　旧字体と新字体が混ざっていることがある。
(3)一致する形に氏名リストを加工するに　どうすれば　良いでしょうか？
　字が違うので一致をさせることは難しいと思います　が、良い手をご存知の方いらっしゃいませんか？
(4)例）高と髙、崎と﨑、広と廣、礼と禮など。。。

助けて下さい。。。。。

回答No.5

sakenomo

＃４です。

失礼しました、＃１さん　＃２さんで既出でした。

回答No.4

sakenomo

PHONETIC関数で氏名のふりがなの列をつくり、それを検索したらどうでしょうか。

ただし、氏名の入力の仕方（漢字変換の仕方）によって、

ミタライ　　　御手洗
オテアライ　御手洗

などのようなことがありそうなので、事前のチェックが必要になると思います。特に名は多そうな気が、データ数によっては大変かもしれません。

ふりがなが違っていたらPHONETIC関数に替えて、正しい読み方を入力すれば良いと思います。

回答No.3

imogasi

思いつくまま。（崎、高の異字体が下記でＯＫＷＥＢで崩れ・になりますがよろしく）
・Vlookupの表のエントリーを２重３重に持たせることは
現実的でないと思いますね。持たせれば解決します。
山・　１
山崎　１
山嵜　１など
・文字コードは高と・は全然別ですしね。
・=MID(A1,1,FIND("・",A1)-1)&REPLACE(A1,1,FIND("・",A1),"高")で・－－＞高１字が置換えられます
が、候補文字が多くて対応できないですね。
・私は以前ＶＢＡで文字変換テーブルを配列に持たせ（勿論通常ありそうな高と・、崎と・、など数は限られたものになりますが。
プログラムで無いと（そうするとＶＬＯＯＫＵＰは使わないかもしれない）出来ないと思います。
Sub test01()
c = Array("", "・", "高", "・", "崎")
For j = 1 To 2
s = Cells(j, 1)
For i = 1 To 4 Step 2
p = InStr(s, c(i))
If p <> 0 Then
s = Mid(s, 1, p - 1) & c(i + 1) & Mid(s, p + 1, Len(s) - p)
Cells(j, 3) = s
End If
Next i
Next j
End Sub
（テスト結果）
安藤・島屋大阪 安藤高島屋大阪
京都山・本店 京都山崎本店

回答No.2

Fat01ton

asataro714さん　こんばんは

やはり、別の文字なので一致させる事は難しいとは思いますが……

とりあえず、例のような（高と・、崎と・）は
いっそのことどちらかの字体の文字を置換してしまうと
言うのはどうでしょうか？
でもこの方法は全ての文字に対して行わなければ
成らないので面倒ですね。

やはり＃１さんが言われるようにPHONETIC関数などを使用してフリガナを表示させ、それで検索するほうが簡単なのでは回答にならなくてすいません。

回答No.1

happypoint

asataro714さん、こんばんは。

どうしても漢字で検索しなければならないのでしょうか。
フリガナやID番号などで検索させるわけにはいかないのですか？