数据中的锯齿状数组| 文本到列

Question

是)我有的

让我们举一个有效的代码示例.

Sub Sample()
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Columns(1).TextToColumns _
        Destination:=Range("A1"), _
        DataType:=xlFixedWidth, _
        FieldInfo:=Array( _
                        Array(0, 1), Array(60, 1), Array(120, 1), Array(180, 1), _
                        Array(240, 1), Array(300, 1), Array(360, 1), Array(420, 1) _
                         ), _
        TrailingMinusNumbers:=True
End Sub

我想要的是

在一小组数据中,上述代码有效.但是,如果我想说出来Array(2700,1)怎么办？这意味着我必须写46时间Array(0, 1), Array(60, 1)...Array(1080, 1)....Array(2700, 1)

我试过了什么

我试过用这种方法

Sub Sample()
    Dim ws As Worksheet
    Dim MyArray
    Dim MyStr As String
    Dim i As Long

    For i = 0 To 2700 Step 60
        MyStr = MyStr & "#" & "Array(" & i & ",1)"
    Next i

    MyStr = Mid(MyStr, 2)

    MyArray = Split(MyStr, "#")

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Columns(1).TextToColumns _
        Destination:=Range("A1"), _
        DataType:=xlFixedWidth, _
        FieldInfo:=MyArray, _
        TrailingMinusNumbers:=True
End Sub

显然,它不会像Array(i,1)存储为字符串一样工作MyArray.

我的问题

我们有什么方法可以在循环中创建这种锯齿状数组,这样我所要做的就是说 FieldInfo:=MyArray

Answer 1

您可以将数组分配给数组项,如下所示:

Dim n As Long
n = 0
ReDim MyArray(2700 \ 60)
For i = 0 To 2700 Step 60
    MyArray(n) = Array(i, 1)
    n = n + 1
Next i