[[20060309092255]]　『同じ名前の異なる標記を一致させる』（あと株）　ページの最後に飛ぶ

『同じ名前の異なる標記を一致させる』（あと株）
ジージーショウジ㈱　と標記されているリストとジージー商事　株式会社　と標記してあるリストがあります。2つのリストに別々の情報がはいっているのですがこれを1つのリストにする為にVLOOKUPしたいのですが、うまくできません。どうすればよいでしょうか？ちなみにフリガナにもどして一致させることはできません。

具体的にリストはどんなリストですか？
この情報だけだとどのようなリストをどう一つにしたいのか
わからなかったので、、

会社が複数あり、各会社の情報は1件ずつなのでしょうか

それとも

会社はジージーショウジ㈱（ジージー商事　株式会社）で、
その中にその会社の情報がたくさんリストになっているのでしょうか。

また会社が複数ある場合は、
名前が二つになるのに何かルールはありますか？

例えば
ジージー商事　株式会社から
漢字はカタカナにして、スペースを削除
して株式会社を㈱に変更する

このルールがすべての会社名に対して当てはまる？
（ぶーやん）

ちなみに
ジージー商事　株式会社を
ジージーショウジ㈱に変換したい場合

A1にジージー商事　株式会社と入っている場合

=SUBSTITUTE(PHONETIC(A1), "　カブシキガイシャ", "㈱")

でジージーショウジ㈱に変換されると思うのですが
これではだめでしょうか、、（ぶーやん）

ちなみに上記はデータをコピーなどしてきて
ふりがなが設定されていないと計算結果がうまく
出ないので

その場合は、A列に会社名が設定されている場合は
以下のマクロを実行してみてください

A列じゃない場合は以下マクロの "A"の部分を該当する
列名に変えてください

（ぶーやん）

Sub hurigana()

    Dim irow
    irow = 1
    Do While IsEmpty(Range("A" & irow).Value) = False

        Range("A" & irow).SetPhonetic
        irow = irow + 1

    Loop

End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20060309092255]] 『同じ名前の異なる標記を一致させる』（あと株） ページの最後に飛ぶ

[[20060309092255]]　『同じ名前の異なる標記を一致させる』（あと株）　ページの最後に飛ぶ