弊社では、宛名印刷をお受けしていますが、今日は、宛名の住所データを取り上げてお話しします。

宛名印刷をお受けしている中、どうしても手書きで・・・・とのご依頼もあります。
この様な時は、筆耕の専門家にお願いをします。
筆耕のプロからは、住所の行の書き方で良く言われる事があります。
データには、県名が入っているが、省略するとの事です。
市町村名から書くと言うのです。
全体のバランスを考えると、住所は短い方が良いと言うのです。

現在は、7ケタの郵便番号が使われてます。
市町村まで特定出来るので、かなり省略しても届けられるらしいのです。
しかし、あまり省略しすぎてもバランスとりにくそうです。

個人的な見解ですが、青森県青森市　など　市の名称が県と同じ場合は、県の記述を省いても良いのではと思います。

あなたはどう思いますか。

実際に、入稿される住所リストの記述を見ると、県の記述の有無はバラバラで、そこまで深く考えていなそうです。
少しでも、文字数を減らしたいと言う事からも、県の記述を外しても良いように思います。

そこで、スクリプトを書きました。
以前より、住所データの正規化処理の中で加えるか迷ってましたが、関数として用意だけはしておく事にしました。
単純なスクリプトですが、書くのが面倒でしたら、下に記述しておきましたのでコピペで使って見てください。

シート関数として使う

ＶＢＡの中で記述した関数は、シート上の関数としても使用できます。
案外知らない方が多いようなので、簡単に紹介しておきます。

VBAの関数の記述例

ＶＢＡの中で作成した関数は、シート上のセルに設定する関数として使用できます。

例　B4　の　住所データに対し、作った　kentoru関数を　C4　に設定し変換します。

数式　⇒　関数の挿入　⇒　関数の分類を　ﾕｰｻﾞｰ定義　に

関数名の一覧の中から、kentoruを選択

使い方は、一般の関数と同じです。

変換結果

県市の県取る関数　

Function kentoru(jyusyo)
moji = jyusyo
moji = Replace(moji, "北海道札幌市", "札幌市")
moji = Replace(moji, "青森県青森市", "青森市")
moji = Replace(moji, "岩手県盛岡市", "盛岡市")
moji = Replace(moji, "宮城県仙台市", "仙台市")
moji = Replace(moji, "秋田県秋田市", "秋田市")
moji = Replace(moji, "山形県山形市", "山形市")
moji = Replace(moji, "福島県福島市", "福島市")
moji = Replace(moji, "福島県いわきし市", "いわき市")
moji = Replace(moji, "茨木県水戸市", "水戸市")
moji = Replace(moji, "栃木県宇都宮市", "宇都宮市")
moji = Replace(moji, "栃木県栃木市", "栃木市")
moji = Replace(moji, "群馬県高崎市", "高崎市")
moji = Replace(moji, "群馬県前橋市", "前橋市")
moji = Replace(moji, "埼玉県さいたま市", "さいたま市")
moji = Replace(moji, "千葉県千葉市", "千葉市")
moji = Replace(moji, "東京県", "東京市")
moji = Replace(moji, "神奈川県横浜市", "横浜市")
moji = Replace(moji, "新潟県新潟市", "新潟市")
moji = Replace(moji, "富山県富山市", "富山市")
moji = Replace(moji, "石川県石川市", "石川市")
moji = Replace(moji, "石川県金沢市", "金沢市")
moji = Replace(moji, "福井県福井市", "福井市")
moji = Replace(moji, "山梨県山梨市", "山梨市")
moji = Replace(moji, "山梨県甲府市", "甲府市")
moji = Replace(moji, "長野県長野市", "長野市")
moji = Replace(moji, "岐阜県岐阜市", "岐阜市")
moji = Replace(moji, "静岡県静岡市", "静岡市")
moji = Replace(moji, "静岡県浜松市", "浜松市")
moji = Replace(moji, "愛知県名古屋市", "名古屋市")
moji = Replace(moji, "三重県津市", "津市")
moji = Replace(moji, "三重県四日市市", "四日市市")
moji = Replace(moji, "滋賀県大津市", "大津市")
moji = Replace(moji, "京都府京都市", "京都市")
moji = Replace(moji, "大阪府大阪市", "大阪市")
moji = Replace(moji, "兵庫県神戸市", "神戸市")
moji = Replace(moji, "奈良県奈良市", "奈良市")
moji = Replace(moji, "和歌山県和歌山市", "和歌山市")
moji = Replace(moji, "鳥取県鳥取市", "鳥取市")
moji = Replace(moji, "島根県松江市", "松江市")
moji = Replace(moji, "岡山県岡山市", "岡山市")
moji = Replace(moji, "広島県広島市", "広島市")
moji = Replace(moji, "山口県山口市", "山口市")
moji = Replace(moji, "徳島県徳島市", "徳島市")
moji = Replace(moji, "香川県高松市", "高松市")
moji = Replace(moji, "愛媛県松山市", "松山市")
moji = Replace(moji, "高知県高知市", "高知市")
moji = Replace(moji, "福岡県福岡市", "福岡市")
moji = Replace(moji, "佐賀県佐賀市", "佐賀市")
moji = Replace(moji, "長崎県長崎市", "長崎市")
moji = Replace(moji, "熊本県熊本市", "熊本市")
moji = Replace(moji, "大分県大分市", "大分市")
moji = Replace(moji, "宮崎県宮崎市", "宮崎市")
moji = Replace(moji, "鹿児島県鹿児島市", "鹿児島市")
moji = Replace(moji, "沖縄県那覇市", "那覇市")
kentoru = moji
End Function