VBA エクセル 文字列
A列に、【鈴木 太郎】、【佐藤 一郎】・・・・と続いていて、B列には鈴木、佐藤・・・と表示させたい場合は以下のソースに、
=LEFT(A1,FIND(" ",SUBSTITUTE(A1," "," "))-1)
と同じソースを書けばいいのはわかるのですが、勉強不足でわかりません。教えていただけませんでしょうか。下記のソースも教えていただきました。すごく助かります。
Sub PickupWords()
Dim Matches As Object
Dim Match As Object
Dim buf As String
Dim c As Variant
With CreateObject("VBScript.RegExp")
.Pattern = "【(.+)】"
.Global = False
Application.ScreenUpdating = False
For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
If .Test(c.Value) Then
buf = c.Value
Set Matches = .Execute(buf)
c.Offset(, 1).Value = Matches.Item(0).SubMatches(0) '括弧の中を取り出す
End If
Next c
Application.ScreenUpdating = True
End With
End Sub
お礼
有り難うございました。 助かりました。