[[20120520112940]]　『()内の文字のみを抽出して分割したい』（kk）　ページの最後に飛ぶ

『()内の文字のみを抽出して分割したい』（kk）

こんにちは。　どなたかおわかりになる方いらっしゃいましたら教えて下さい。

１つのセルに　Ａ（a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,)ＦＦ
と全角・半角・数字・文字問わずあるのですが、これをカッコの中のみ取り出して、さらに、セルごとに分割したいと思っております。
カッコは全角の場合と半角の場合があります。
詳しく教えて頂けると助かります。
宜しくお願い致します。

Excel2007

 どのように分割したいのでしょう？
 (seiya)

１つのセルに　Ａ（a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,)Ｆとあるものを
a B Ｃ d Ｅ Fとそれぞれ分割したいのです。

宜しくお願い致します。 (KK)

 とりあえず、A列の文字列を分割

 Sub test()
    Dim r As Range, txt
    With CreateObject("VBScript.RegExp")
        .Global = True
        For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
            txt = r.Value
            .Pattern = "[\(（](.*)[\)）]"
            If .test(txt) Then
                txt = .Execute(txt)(0).submatches(0)
                .Pattern = "([～\.~]|[，,\.、](?!.))"
                txt = .Replace(txt, "")
                .Pattern = "[:：，、]"
                txt = Split(.Replace(txt, ","), ",")
                r(, 2).Resize(, UBound(txt) + 1).Value = txt
            End If
        Next
    End With
End Sub
(seiya)

 自分の投稿だとしても勝手に削除は無いんじゃないの？
 Moook

削除ですか…。
初めて利用させて頂いたので利用の仕方もわからず、投稿してしまいました。
削除していたという事もどうやったのかよく分かりませんが
不愉快にさせてしまったようで、本当に申し訳ございませんでした。
回答、参考にさせて下さい。申し訳ございません。(kk)

 kk さんのことじゃないですよ!
 Moooook

それは本当に良かったです。ただ、こちらも利用方法把握していなくて申し訳ございません。

先程ご指導頂きありがとうございました。　

私の質問が至らず申し訳ございませんが、質問を追加させて下さい。

Ａ（a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,)Ｆ　の()の中の区切りとして考えられるものが
（、,（半角・全角含）　セミコロン　コロン　～　~ ドット　- ハイフン　
とございます。　　
これを一度に区切れればと思っております。
失礼ながらご指導よろしくお願い致します。
(KK)

 Ａ（a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,)Ｆ

 コードは
 1) ()内の文字列を抽出
    a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,
 2) 1) で抽出した文字列中の　～ ~. と 文末の,，、を削除
    a,Ｂ、Ｃ，d:Ｅ,Ｆ
 3) 2) の処理後の文字列の ，.、:：を半角カンマに置き換えて、Split関数で分割
    a,Ｂ,Ｃ,d,Ｅ,Ｆ
 4) B列から分割した文字列を表示

 >Ａ（a,Ｂ、Ｃ，d:Ｅ,～.Ｆ~,)Ｆ　の()の中の区切りとして考えられるものが 
 >（、,（半角・全角含）　セミコロン　コロン　～　~ ドット　- ハイフン　 
 >とございます。　　 
 >これを一度に区切れればと思っております。

 よく意味が解りません。
 (seiya)

ありがとうございます。

試してみます。

ご指導頂きありがとうございました。
(KK)

何度も申し訳ございません。

カッコ内に数字もありますので、数字も含め取り出したいです。

尚、　ハイフン　があるとセルの分割ができないので、困っております。

素人なので何度も申し訳ございませんが宜しくお願いいたします。
(KK)

何度もありがとうございました。
解決致しました。
(KK)

コメント返信：

[ 一覧(最新更新順) ]

[[20120520112940]] 『()内の文字のみを抽出して分割したい』（kk） ページの最後に飛ぶ

[[20120520112940]]　『()内の文字のみを抽出して分割したい』（kk）　ページの最後に飛ぶ