|
カンマで区切られているということなら、 対象セル範囲をループして
Split関数でカンマ区切りの配列を作ってから、先頭の文字が A-Z に該当するか判定して
処理する、というようなロジックも考えられますが、あえて何もマーキングできる文字
が無い、という前提でやるなら・・
Sub Get_MyString()
Dim objRE As Object, Match As Object, Matches As Object
Dim C As Range
Dim CkSt As String, NewSt As String
Set objRE = CreateObject("VBScript.RegExp")
With objRE
.Pattern = "\w"
.Global = True
End With
For Each C In Range("A:A").SpecialCells(2)
CkSt = C.Text
If objRE.test(CkSt) Then
Set Matches = objRE.Execute(CkSt)
NewSt = ""
For Each Match In Matches
NewSt = NewSt & Match.Value
Next
Set Matches = Nothing
C.Offset(, 1).Value = NewSt
End If
Next
Set objRE = Nothing
End Sub
正規表現を使っています。
|
|