完全に一致するものを探す VLOOKUP 関数ではなく、ある程度あいまいな VLOOKUP 関数がほしい状況になったので、やってみた件。
レーベンシュタイン距離を使うとお手軽にあいまい検索っぽいことができそうなので、これを利用する。 すげーざっくり言うと 2 つの文字列を比べて、片方から見た時に何文字変更したら一緒になりますか?ってもの。 レーベンシュタイン距離 - Wikipedia
Google Spreadsheet で使いたかったので Google App Script なのだけど VBA に移したら Excel でも同様に利用できるはず。Excel だと配列を返して出力はできないが。
function fuzzyVlookup(targetList, searchItem, showDistance, showNth) {
showDistance = showDistance || 0;
showNth = showNth || 1;
searchItem = searchItem.toString().split("");
var results = targetList.map(function(targetItem, idx) {
targetItem = targetItem.toString().split("");
if(targetItem.join("") == "") {
return null;
}
if(searchItem.join("") == targetItem.join("")) {
return {distance:0, idx:idx};
}
var leven = [];
for (var i = 0; i <= targetItem.length; i++) {
leven[i] = [];
leven[i][0] = i;
}
for (var i = 0; i <= searchItem.length; i++) {
leven[0][i] = i;
}
for (var i = 1; i <= targetItem.length; i++ ) {
for (var j = 1; j <= searchItem.length; j++ ) {
var cost = targetItem[i - 1] == searchItem[j - 1] ? 0 : 1;
leven[i][j] = Math.min(
leven[i - 1][j] + 1,
leven[i][j - 1] + 1,
leven[i - 1][j - 1] + cost
);
}
}
return {
distance: leven[targetItem.length][searchItem.length],
idx: idx,
};
}).filter(function(x) {
return x !== null;
}).sort(function(a, b) {
return a.distance - b.distance;
});
if (results.length === 0) {
throw new Error("要素が見つかりませんでした");
}
results = results.slice(0, showNth).map(function(x){
var str = targetList[x.idx][0];
if (showDistance === 1) {
str += " dist=" + x.distance;
}
return str;
});
return [results];
}
↓こんな感じで使える。良好。