[[20141021112436]]　『「文字の取り出し」と「挿入」について』（さやお）　ページの最後に飛ぶ

『「文字の取り出し」と「挿入」について』（さやお）

お世話になっております。

質問は

セル文中にある【太括弧】で囲まれた文字を取り出し、その文書の最後にもっていく方法

についてアドバイスを頂きたく書き込み致しました。

シート構成

1行目は、項目行です。
A列の2行目以降に行単位でデータが記載されています。

例えば・・・と記載がある場合にマクロ処理にて

A2=【田中・近藤】新人研修会参加10：00～　

結果・・・と太括弧に囲まれた文字を取り出し名前を挿入する。

A2=新人研修会参加10：00～田中・近藤

すみませんよろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 いろいろやり方有ると思いますが、正規表現の例です。
    Sub すみかっこ()
        Dim 範囲 As Range
        Dim a, n As Long, Exc

        Set 範囲 = Range("A2", Cells(Rows.Count, "A").End(xlUp))
        a = Application.Transpose(範囲.Value)

        With CreateObject("VBScript.RegEXP")
            .Pattern = "(^【)(.+?)(】)(.*)"
            For n = 1 To UBound(a)
                If .test(a(n)) Then
                    Set Exc = .Execute(a(n))(0).submatches
                    a(n) = Exc(3) & Exc(1)
                End If
            Next n
        End With
        範囲.Value = Application.Transpose(a)
    End Sub
 13:14チョット修正
（稲葉） 2014/10/21(火) 12:46

稲葉さん

ありがとうございます(^^)

動作確認したところ、バッチリ動作しました。
アドバイス頂いたコードを元に、試行錯誤したいと思います。

解決です(^^)v
（さやお） 2014/10/21(火) 14:26

コメント返信：

[ 一覧(最新更新順) ]

[[20141021112436]] 『「文字の取り出し」と「挿入」について』（さやお） ページの最後に飛ぶ

[[20141021112436]]　『「文字の取り出し」と「挿入」について』（さやお）　ページの最後に飛ぶ