エクセルでの括弧内データの抽出について - OKWAVE

ユーザー定義関数を使った一例です。 '========標準モジュールに記載========= Function PickUp(ByVal argRng As Range) As String Dim i As Integer Dim myData As String Dim DeleteOK As Boolean Application.Volatile DeleteOK = True For i = Len(argRng.Value) To 1 Step -1 myData = Mid(argRng.Value, i, 1) If myData = "(" Or myData = ")" Then DeleteOK = Not DeleteOK Else If DeleteOK = False Then PickUp = myData & PickUp End If Next i End