http://q.hatena.ne.jp/1458532793
で質問して回答をいただいたものですが、追加のお願いができないため、再度質問します。
4行目の
商品代金 ¥2000(4)
をAI列に\マークをとった2000を数値のみで挿入できるようにしていただきたいのです。
なお、最後の(4)は便宜上つけたのみで、実際にはございません。
当時ベストアンサーいただいた方以外のご回答にも、【マクロ回答】であっている場合は金額を分配いたします。
なお、一度回答者を特定しての質問で取り消されてしまったので、そのときのコメントを確認
できておりません(申し訳ございません)
どうかよろしくお願いいたします。
何度か追記した回答のマクロのうち、最後のコードの先頭部分を以下のように変更してください。
' データの切り出し方の定義 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 列に書き込みます。
コメントのやり取りを追っかけた感じでは、円マークが全角か半角かの区別がつかなかったので、どちらでも良いようにしてあります。
ありがとうございます!その方法でいかせていただきます。いつも誠にありがとうございます。
2016/11/08 07:59:15何度も繰り返して使うのであれば、サブルーチンの最後に以下の処理を入れてください。
2016/11/08 08:39:50