質問: excel vbaの作成方法をご教示ください。 こんにちは。excel vbaの作成方法をご教示ください。 添付ファイルをご参照下さい。現行の品番の体系を変更するマクロを組みたいのですが、どのようにすればよいかをご教示ください。 a列には、以下2ケースの品番が混在しております。マクロボタン押下することで、下矢印の処理が回り、ケース1,2ともに同時に品番体系の変更ができないでしょうか。(具体的な変更例は添付ファイルをご参照ください) ケース1.xxxxx-xxx -xxxx-xx →ハイフンとスペースを除去し統合 ケース2.xxxxx-xxx -xxxx-xx-0x →1ハイフンとスペースを除去 2末尾2桁目の0を除外 3統合 お知恵お貸し頂きたく、お願いいたします。
回答: こんにちは 例示のケースの内容と、添付の図では桁数が異なっているように見えますけれど・・・ >excel vbaの作成方法をご教示ください。 あまりにも漠としているので、なんとも言えませんが、vbaエディタにご提示の順で処理を記入すればよいでしょう。 細かな点で不明はありますが、ひとまずのサンプルとして... ※ 隣のb列に結果を入力すようにしてあります。 sub sample_12310268() dim c, i, s for each c in range(cells(2, 1), cells(rows.count, 1).end(xlup)) s = split(c.text, "-") for i = lbound(s) to ubound(s) s(i) = trim(s(i)) if i = 4 then if left(s(4), 1) = "0" then s(4) = mid(s(4), 2, len(s(4))) next i c.offset(, 1).numberformatlocal = "@" c.offset(, 1).value = join(s, "") next c end sub