エクセルで利用できる全国版の郵便番号一覧や法人番号一覧データはありませんか

エクセル２００７です。
郵便番号を入れると住所変換する表を作成したいです。
アドインの組み入れで変換できるのは知っていますが、全国の郵便番号と住所のデータ一覧を１つのシートにし、別シートでVLOOKUP関数を使って変換表示させたいと思っています。
郵便局から提供されるデータはZIPで各都道府県ごとになっているので、全国版を作成するには手間がかかるため、既に一覧になったものがあると大変助かります。

また、法人番号一覧も同じように全国一覧を作成したいのですが、国税庁の提供データは各都道府県ごとになっていて、また、読み取り専用のファイルになっているので、加工しにくくなっています。
併せてこちらの全国一覧もあると助かります。

どちらかでもご存知の方がいらっしゃったらお教えください。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2018/05/23 22:32

ご質問の内容に、少しチェックを入れさせていただきました。

>アドインの組み入れで変換できる
郵便番号ウィザードのアドインでしたら、もう長い間更新されていませんから、だいぶほころびが目立ちます。事実上、現行では使えないと思ってもよいです。

>郵便局から提供されるデータはZIPで各都道府県ごとになっているので
いいえ、全国版があります。『全国一括　(1,686,463Byte)』　12万行を越えます。
http://www.post.japanpost.jp/zipcode/dl/kogaki-z …

事業所の個別有番号（全国版)　2万行ほど
http://www.post.japanpost.jp/zipcode/dl/jigyosyo …

>読み取り専用のファイルになっている
それは、ダウンロードし、ZIPファイルを展開（解凍)した時に、
プロパティのセキュリティのブロックの解除をしないからです。

ところで、今は、ネットで、郵便番号APIというものがあります。
Excel 2013 以上ですと、WebService()関数がありますので、郵便番号から住所を取り出せることが可能です。しかし、下位バージョンですと、同等の機能を持つ自家製のマクロになってしまいます。
もし、それでよろしかったら提供いたします。ただし、今は、事業所番号と一般郵便番号とは別のシステムになっています。最新のデータが関数で得られます。更新の手間が不要です。

例：全国版です。
A1:812-8577　　 (福岡県庁)
=Zip2AddrJ(A1)
結果：福岡県福岡市博多区東公園７−７
一般用は、Zip2Addr です。