郵便番号・・・

 ★ =TEXT(ZipCode,"000-0000")★ 
 ども、アラクリカエシキ(阿良々木)です。
 母が退院するまで期間限定でブログの更新しようと思います。
 で、今日のネタは郵便番号についてです。
 10月にリニューアルしたうちの職場の基幹系システムですが、データをCSVで抜いた際に郵便番号を3列に分けて出力する仕様のようで、例えば、064-0941のような場合↓の図のような感じで頭の0が飛んで上手く連結できないと同僚からヘルプがかかりました。
ziocodesample.jpg
↑のようにTEXT関数を使えばなんてことないのですが、もっといい方法はないかと検索していくつかのぞいてみたのですが・・・
LEFT関数やRIGHT関数を使ったものが多く、北海道とか0から始まる郵便番号ではずれてしまうんですが大丈夫ですか?って思いました。
普通は7桁の数値でCSV出力されることが多いのですが、CSVで"0640941"となっていてもエクセルで開くと大抵は数値「640941」としいて認識されます。
=LEFT(ZipCode,3)&"-"&RIGHT(ZipCode,4)のような式では
640-0941といううようにズレてしまいます。気をつけてくださいね。
それではまた

追記 VBAにするとこんな感じ?

Sub Sample()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
Cells(i, 1).Value = Format(Cells(i, 1).Value, "000-0000")
Next i
End Sub

ziocode2.jpg
でわでは
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
12 | 2021/01 | 02
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 - - - - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
また介護の日々が始まる・・・ Dec 24, 2020
意外に面倒な重複データの削除・・・ Dec 10, 2020
母がもうすぐ退院するかもしれません Dec 09, 2020
ひさしぶりにあつ森 Dec 02, 2020
郵便番号で住所入力(エクセル) Nov 24, 2020
ひさびさのらくがき Nov 22, 2020
郵便番号・・・ Nov 20, 2020
母が転んで骨折し入院・・・ Nov 19, 2020
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
5001位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
207位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム