Мне нужен код 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

1 ответ1

0
Public Sub NameTest1()

   Dim v As Variant

   v = Split(ActiveCell.Value2, "+")

   ActiveCell.Offset(0, 1).Resize(1, UBound(v) + 1) = v

End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .