Мне нужен код VBA, чтобы разбить строку текста в редактируемой ячейке, помеченной знаком +, а затем поместить раздельный текст в столбец отдельно, оставив исходную ячейку без изменений. Также мне нужно, чтобы это обновлялось автоматически при изменении ячейки. Я просмотрел много постов и не могу найти ни одного ответа на этот вопрос.
Ниже приведен код, который я пробовал до сих пор:
Sub NameTest()
Dim txt As String
Dim i As Integer
Dim FullName As Variant
txt = ActiveCell.Value
FullName = Split(txt, " ")
For i = 0 To UBound(FullName)
Cells(1, i + 1).Value = FullName(i)
Next i
End Sub