需要在可编辑单元格中拆分一行文本,并用 + 号分隔

需要在可编辑单元格中拆分一行文本,并用 + 号分隔

我需要一个 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

Public Sub NameTest1()

   Dim v As Variant

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

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

End Sub

相关内容