ユーザー定義関数を使った一例です。 '========標準モジュールに記載========= 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
![エクセルでの括弧内データの抽出について - OKWAVE](https://cdn-ak-scissors.b.st-hatena.com/image/square/a3202632a5b19efa6d7dbcca644fc13bfa3453dc/height=288;version=1;width=512/https%3A%2F%2Fgazo.okwave.jp%2Fokwave%2Fspn%2Fimages%2Flogo%2Ffacebook_okwave.jpg)