需要在以+号分隔的可编辑单元格中分割一行文本

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

microsoft-excel vba

— 戴维·迪斯洪（David Dishongh）
source

欢迎来到超级用户。我们不是脚本编写服务。我们希望用户告诉我们他们到目前为止已经尝试了什么（包括他们正在使用的代码）以及被困在哪里，以便我们可以帮助解决特定问题。仅要求代码的问题范围太广，很可能被搁置或关闭。请阅读我如何问一个好问题？。

— DavidPostill

抱歉，我已经相应地编辑了我的帖子。感谢您的注意。

— David Dishongh 2015年

Public Sub NameTest1()

   Dim v As Variant

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

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

End Sub

— 保罗·比卡
source

第二个不起作用，而第一个不起作用（Excel 2013）

— nixda