セルの内容を変換 【置換】

質問

エクセルでセルの内容を自動的に変換する方法をお聞きしたいです．

いま、Ｄ列にデータとして

22(5) 1986.5
p.588-590

という文字列データがあります。
これを

vol.22, NO.5
p.588-590 (1986.5)

という風に書き換えをしたいのですが、
自動的にこれを行うマクロを作りたいです。

どのようにすればよいかお知恵を貸してください。

vol.の数字は２桁とは限りません。
NO.の数字も１桁とは限りません。
p.も同様です。

よろしくお願いします。

回答No.2

BLUEPIXY · ベストアンサー

'変換する範囲を指定してマクロ呼出
Public Sub conv()
Dim r As Range
Dim regex, matches, match
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "(\d+)\((\d+)\)\s+(\d{4}\.\d+)(\r|\n)+(.*)"
For Each r In Selection
Set matches = regex.Execute(r.Value)
Set match = matches(0)
With match
r.value = "vol." & .SubMatches(0) & ", NO." & .SubMatches(1) & vbLf _
& .SubMatches(4) & " (" & .SubMatches(2) & ")"
End With
Next
End Sub

お礼

御回答ありがとうございました。

お示しいただきましたマクロ、正常に動作いたしました！これで単純作業から開放されました。大感謝です！

ソースも分かりやすいですし、私もこれを参考に勉強しないといけないと感じます^^;

ありがとうございました！