-2

我一直在尝试使我的宏过滤器通过整个列,但无法进行循环等来执行任务

单元格中的文本会像

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

ETC

此代码完美运行,但显然仅适用于 A2

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

任何帮助/建议都会很棒

谢谢

4

1 回答 1

0

更新!

好的,修复问题中的格式已经完全改变了一切,试试这个

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)

于 2013-09-09T12:36:43.693 回答