Получить значение в скобках внутри одной ячейки

Question

У меня есть значения ниже в ячейке:

скажем, A5 - (например, 3 значения, это могут быть значения 'n')

         Hello Im (User1)
         Hello Im (User2)
         Hello Im (User3)

Я хочу получить значения в скобках т.е. User1, User2, User3 в отдельном листе для дальнейшей манипуляции.

Я пробовал несколько способов, но все это работает, если у него есть одно значение, а не несколько значений

Ниже методы, которые я пытался

cellValue = "Hello Im (User1)"
OP = instr(cellValue, "(")
CP = instr(cellValue, ")")
EV = mid(cellValue, OP+1, CP-OP-1)

Я даже пытался преобразовать текст в столбец, но это не сработало.

Answer 1

Попробуйте использовать Split

Sub SplitTest()
    Dim e, ws As Worksheet, sh As Worksheet, s As String, r As Long
    Set ws = ThisWorkbook.Worksheets("Input")
    Set sh = ThisWorkbook.Worksheets("Output")
    s = ws.Range("A5").Value
    For Each e In Split(s, vbLf)
        r = r + 1
        sh.Cells(r, 1).Value = Split(Split(e, "(")(1), ")")(0)
    Next e
End Sub