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