Отделение имен и процентов от ячейки с переменным количеством обоих

Question

Я ищу способ вырезать и вставить все имена и проценты из ячейки в пустую ячейку в строке ниже, прежде чем перейти к следующей ячейке.Количество имен и процентов будет отличаться для каждой строки, однако они всегда будут форматироваться одинаково.

Например, Том Уолтон (75%);Джош Харгривз (25%);Джеймс Смит (42%);Грэм Джонсон (56%)

Я хочу сделать это для каждой строки в столбце.

Снимок экрана до.

Требуемый выход.

Answer 1

Option Explicit

Sub Parse()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LR1 As Long, LR2 As Long, i As Long, x As Long, Arr

LR1 = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For i = 2 To LR1
    Arr = Split(ws.Range("B" & i), "; ")

    For x = LBound(Arr) To UBound(Arr)
        LR2 = ws.Range("E" & ws.Rows.Count).End(xlUp).Offset(1).Row
        ws.Range("E" & LR2) = Arr(x)
        ws.Range("D" & LR2).Value = ws.Range("A" & i).Value
    Next x
Next i

End Sub

---

Пример ввода / вывода произвольных рейтингов ниже