获取单个单元格内括号内的数值

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

试着使用拆分

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