[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『宛先をバラして表示させる方法』(さやか)
よろしくお願いします。
B1データ 郵便番号 111-11111 宛先 東京都○○○○○○○5-2 △ビル 5階502号室 宛名 ×× ×× 受付番号12345678
これをA1:A4に 〒111-1111 東京都○○○○○○○5-2 △ビル 5階502号室 ×× ×× 様 12345678
以上のように分けて表示させるには? 封筒に宛先シールで使用します。
郵便番号は〒に 宛名は様をつけて 「受付番号」の文字は不要で番号だけを宛名の右下あたりに 宛先はどこでもいいのですが、スペースから改行してほしいです。 なので上の例だと 東京都○○○○○○○5-2 △ビル 5階502号室 ...でもOKです。 スペースが無ければ改行無しでもOKです。
毎回毎回必要な文字をコピーして貼り付けての繰り返しなので いっぺんに出来たらいいなと思っています。 よろしくお願いします。
----追記---- B1の正確な表示を勤務先にて確認しますのでそれからよろしく お願いします。
< 使用 Excel:Excel2007、使用 OS:WindowsXP >
>B1の正確な表示を勤務先にて確認しますのでそれからよろしく >お願いします。 確認していただきたいことは、順番はすべてこの通りなのか 「郵便番号」「宛先」「宛名」の文字列は必ず入っているか
5-2_△ビル_5階502号室(_はスペース)の改行ルールは文字制限か? 最後の質問は、スペースを改行に変更すると 5-2 ビル 5階 てな感じになってしまうので、10行以上ならスペースで改行などルールがあると よいと思います。
(稲葉) 2014/10/23(木) 06:36
>B1データ >郵便番号 111-11111 宛先 東京都○○○○○○○5-2 △ビル 5階502号室 宛名 ×× ×× 受付番号12345678
Sub test() With CreateObject("VBScript.RegExp") .Pattern = "郵便番号 (\d{3}\-\d{4}) 宛先 (\S+) *(.*) *宛名 *(.*\S) *受付番号(\d+)" If .test([b1]) Then [a1:a5] = Application.Trim(Application.Transpose(Split(.Replace([b1], "〒$1^$2^$3^$4^$5"), "^"))) End If End With End Sub (seiya) 2014/10/23(木) 07:41 注:郵便番号は 3桁-4桁で想定
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.