作成したいマクロがあります。。。

質問

どなたか教えてください。

マクロで、ある作業を自動化したいです。

【内容】

ある文字列の括弧内のみを取り出したいです。

【パターン1】
　　列1　　　　　　　　　　　　　　　　　　列2　　　　　　　　　　　列3　　　　・・・
1　A123(D234,E567,・・・)

【パターン2】
　　列1　　　　　　　　　　　　　　　　　　列2　　　　　　　　　　　列3　　　　・・・
1　B456(G785,H652,

2　C789,i951,j753

3　F963,K852・・・)

上記のように1つのセル内に（　）が存在したり、また行をまたいで（　）が存在したりします。
※列は一定です。

その括弧内の文字のみをセルに分けて下記のように表示したいです。

　列1　　　　　　　　　　　　　　　　　　列2　　　　　　　　　　　　　　　列3　　　・・・
1　B456(G785,H652,　　　　　　　　　G785　　　　　　　　　　　　　　H652

2　C789,i951,j753　　　　　　　　　　　C789　　　　　　　　　　　　　　i951　　　　　　　　j753

3　F963,K852・・・)　　　　　　　　　　　F963　　　　　　　　　　　　　K852

抜き出したい文字列についてですが、1桁から10桁くらいまであります。
たとえば　U2,R965482　等

以上です。どなたか教えてください。

回答No.4

Wendy02

#3で、「こちらにとしては、そういう規則性は無視したほうが簡単かもしれません。」
としていたので、#3の結果は当然かもしれません。

こういう質問は、途中でどんでん返しの内容が出てくるので、まず、標準的な内容で書いてみました。実務では、そう簡単でないことも多いものですが、実際、コードを書いて、人の反応をみないと、分からないからです。

'現在、括弧は、全角はないものとして作られています。もし、入り込む要素がある場合は、「誤動作を避けるために空白値を抜く」の次に、同じようなコードで置換しなければなりません。
=====

Sub Test1R()
　Dim rng As Range
　Dim buf As String
　Dim Matches As Object
　Dim Match As Object
　Dim i As Long, j As Long
　Dim a As Variant
　Dim flg As Boolean
　With CreateObject("VBScript.RegExp")
　　Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp))
　　Application.ScreenUpdating = False
　　For i = 1 To rng.Rows.Count
　　　buf = rng.Cells(i, 1).Value
　　　buf = Replace(buf, Space(1), "", , , 1) '誤動作を避けるために空白値を抜く
　　　If InStr(1, buf, "(", 1) > 0 Then
　　　　flg = True
　　　　.Pattern = "\(([A-z\d,]+)"
　　　Else
　　　　.Pattern = "([A-z\d,]+)"
　　　End If
　　　.Global = True
　　　If flg Then
　　　　Set Matches = .Execute(StrConv(buf, vbNarrow))
　　　　If Matches.Count > 0 Then
　　　　　a = Matches(0).SubMatches(0)
　　　　　a = Split(a, ",")
　　　　　Cells(i, 2).Resize(, UBound(a) + 1).Value = a
　　　　End If
　　　　j = 0
　　　End If
　　 If InStr(1, buf, ")", 1) > 0 Then
　　　　flg = False
　　　End If
　　Next
　End With
　Application.ScreenUpdating = True
　Set rng = Nothing
End Sub