VBA特定文字間を削除し一部を変換したいです。

質問

こんにちは。質問させて下さい。
エクセルVBAにてA1セルにある特定文字”（”から”）”までを削除し文字の区切りは”；”と”、”が混在しているのを全て”、”に変換しB1セルに表示させたいのですがご教授頂けませんでしょうか。下記例となります。

A1セル（あいうえお）AAAAA；（かきくけ）BBB、（さしす）CCCCCC；（たちつて）DDD
⇒　B1セル　AAAAA、BBB、CCCCCC、DDD

（）の数や文字数は様々となります。どうぞ宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

> （あああ）AAA、（いいいいい）BBBBB；（うう）CCCC　→あああ、いいいいい、うう
>
> 先の質問の逆で（）内の文字を抽出し”、”で区切る内容となります。

同じ考え方で以下で試してみてください。

Sub Test2()
Range("B1").Value = Range("A1").Value
Call Range("B1").Replace(")*(", "、", MatchByte:=False)
Call Range("B1").Replace("*(", "", MatchByte:=False)
Call Range("B1").Replace(")*", "", MatchByte:=False)
End Sub

お礼

度々のご対応ありがとうございます。思い通りでした！とても参考になりました。ありがとうございました。

回答No.1

kkkkkm

以下で試してみてください。

Sub Test()
Range("B1").Value = Range("A1").Value
Call Range("B1").Replace("(*)", "", MatchByte:=False)
Call Range("B1").Replace(";", "、", MatchByte:=False)
End Sub

お礼

kkkkkmさま。本当にありがとうございました。問題なく出来ました。1点すみません追加にて恐縮ではございますが下記の内容では可能でしょうか。

（あああ）AAA、（いいいいい）BBBBB；（うう）CCCC　→あああ、いいいいい、うう

先の質問の逆で（）内の文字を抽出し”、”で区切る内容となります。すみませんが宜しくお願い致します。