Excel 文本到列的行数可变

下面附加的代码用于将文本拆分为列。我运行此代码时出错。 要拆分的数据如下所示：

NAME,1244
  NAME,4356
  NAME,5678

具有名称的行数是可变的。我得到运行时错误1004，没有选择要分析的数据。如何解决这个问题

Sub SplitNameToColumns()
Dim rowCount As Long
rowCount = Cells(Rows.Count, "F").End(xlUp).Row

    Range("F2").Select
    For Counter = 1 To rowCount Step 1

        Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
            Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
            Other:=False, _
            FieldInfo:=Array(Array(1, 1)), _
            TrailingMinusNumbers:=True

        ActiveCell.Offset(1, 0).Select
    Next Counter
End Sub

试试这个：

Sub SplitAndScatter()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "F").End(xlUp).Row
    With Range("F2:F" & LastRow)
        .TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, Comma:=True
    End With
End Sub

这是根据我回答的另一个问题改编的

让我们知道这是否有帮助