将文本+值拆分为两个单元格

Question

我一直试图让我的宏过滤整个列，但还没能做出循环等来执行任务

单元格中的文字就像

Name 12
(gap..)
(gap..)
Name 32
(gap..)
(gap..)
Name 2

等

这段代码很完美，但显然只适用于A2

Dim avarSplit As Variant
avarSplit = Split(Range("A2").Value, "Name")
Cells(2, 1) = "Name"
Cells(2, 2) = avarSplit(1)

任何帮助/建议都会很棒

由于

Answer 1

更新！

确定你问题中的格式已完全改变了一切，试试这个

Sub SplitTxt()
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Not IsEmpty(Cells(i, 1)) Then
            Cells(i, 2) = Split(Cells(i, 1), chr(32))(0)
        End If
    Next
End Sub

这将放置单元格字符串的第二部分。分隔符是 SPACE ， Chr（32）