作成方法についての質問です。

質問

下記のマクロで実行すると添付画像[現状]のようになってしまいます。
私としては[こうなってほしい]の形にしたいのですが、どこに何を組み込めばよいかわかりません。
誰か教えてください。

Dim Matches As Object
Dim Match As Object
Dim i As Long, j As Long
Dim a As Variant

With CreateObject("VBScript.RegExp")
Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp))

Application.ScreenUpdating = False

For i = 1 To rng.Rows.Count

If InStr(1, rng.Cells(i, 1).Value, "(", 1) > 0 Then
.Pattern = "\(([A-z\d,]+)"
Else
.Pattern = "([A-z\d,]+)"

End If

.Global = True

Set Matches = .Execute(StrConv(rng.Cells(i, 1).Value, 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

Next
End With

Application.ScreenUpdating = True
Set rng = Nothing

End Sub

回答No.2

mariko_k_heart

補足が分かりにくいです。。
私なりに整理してみましたがこんな感じでしょうか？

お礼

ありがとうございました。

補足

その通りです。
補足がわかりづらくてすいません。

どうすればいいのでしょうか。

回答No.1

mariko_k_heart

よくわかりません。
補足してください。
また添付画像はどれでしょうか。

補足

補足します。
下記の[現状]のように必要ない箇所まで表示されてしまいます。
わたしとしては[こうしたいです]のように括弧内のみを表示させたいです。

【現状】
R6001,R6003,R6004,R6009,R6011, R6001 R6003 R6004 R6009 R6011
R6027,R6029,R6030,R6032,R6033, R6027 R6029 R6030 R6032 R6033
R6044,R7001,R7025(R13,R15,R802, R13 R15 R802
R827,R1002,R1106,R1107,R1108, 　　　　　　R827 R1002 R1106 R1107 R1108
R1109,R1110,R1111,R1123,R4001,　　　　　 R1109 R1110 R1111 R1123 R4001
R5109,R5110,R5111,R5112,R5113, 　　　　　　R5109 R5110 R5111 R5112 R5113
R6007,R6016,R6031,R7003,R7014,　　　　 R6007 R6016 R6031 R7003 R7014
は実行)
R5105,R5106,R5107,R5108 　　　　　　　　　　　　R5105 R5106 R5107 R5108
R5015,R5016 　　　　　　　　　　　　　　　　　　R5015 R5016
R503,R504,R505,R601,R602,　 　　　　　　R503 R504 R505 R601 R602
R6035,R6036 　　　　　　　　　　　　　　　　　　R6035 R6036

【こうしたいです】
R6001,R6003,R6004,R6009,R6011,R6026,
R6027,R6029,R6030,R6032,R6033,R6034,
R6044,R7001,R7008,R7025(R13,R15,R802, R13 R15 R802
R811,R827,R1002,R1106,R1107, 　　 R811 R827 R1002 R1106 R1107
R1109,R1110,R1111,R1123,R4001, R1109 R1110 R1111 R1123 R4001
R5109,R5110,R5111,R5112,R5113, R5109 R5110 R5111 R5112 R5113
R6007,R6016,R6031,R7003,R7014, R6007 R6016 R6031 R7003 R7014
は実行)
R5105,R5106,R5107,R5108
R5015,R5016
R503,R504,R505,R601,R602,R603
R6035,R6036

以上です。