▽1
●
a-kuma3 ●500ポイント ベストアンサー |
何度か追記した回答のマクロのうち、最後のコードの先頭部分を以下のように変更してください。
' データの切り出し方の定義 Dim def(6, 2) ' ★ 5 → 6 に増やす def(0, 0) = "0": def(0, 1) = "BI": def(0, 2) = "(.*)" def(1, 0) = "2": def(1, 1) = "BJ": def(1, 2) = "(.*)" def(2, 0) = "9": def(2, 1) = "L": def(2, 2) = "〒(\d{3}-\d{4})" def(3, 0) = "9": def(3, 1) = "M": def(3, 2) = "〒\d{3}-\d{4} ([^都道府県]+[都道府県])" def(4, 0) = "9": def(4, 1) = "N": def(4, 2) = "〒\d{3}-\d{4} [^都道府県]+[都道府県](.*)" def(5, 0) = "10": def(5, 1) = "F": def(5, 2) = "(.*)( 様$)" def(6, 0) = "3": def(6, 1) = "AI": def(6, 2) = "[¥\\](\d+)" ' ★ これを追加
一行を修正して、一行を追加です。
D列の四行目から、円マークに続く複数の数字を切り出して、AI 列に書き込みます。
コメントのやり取りを追っかけた感じでは、円マークが全角か半角かの区別がつかなかったので、どちらでも良いようにしてあります。