小编SWi*_*WiM的帖子

我希望我的代码通过一个包含名称的单元格列表,然后将它们拆分为原始单元格旁边的单元格.我有一些基本的代码来做第一位,但是我很难让它在我的列表的其余部分循环,并且还将它输出到原始而不是A1当前的A1.我认为这是代码中"Cell"部分的一个问题,但我无法解决它.

Sub NameSplit()

    Dim txt As String
    Dim i As Integer
    Dim FullName As Variant
    Dim x As String, cell As Range

    txt = ActiveCell.Value

    FullName = Split(txt, " ")

    For i = 0 To UBound(FullName)

        Cells(1, i + 1).Value = FullName(i)

    Next i


End Sub