Excel VBA按固定宽度拆分一维数组元素的实现问询

你的问题主要出在VBA数组的索引规则、Mid函数的参数逻辑以及新数组未初始化这几个点上，我来一步步帮你修正并实现需求：

问题根源拆解 #

1. 原数组的维度特性：从Range("A1:A100").Value赋值得到的myArray是二维数组，格式为myArray(行号, 列号)，而且VBA数组默认索引从1开始（不是0），所以每行的内容必须用myArray(i, 1)来获取，而非myArray(i)。
2. Mid函数的起始位置：VBA里Mid函数的第二个参数是起始字符位置，从1开始计数。比如取前10个字符应该用Mid(内容, 1, 10)，而不是你写的Mid(内容, 0, 10)。
3. 新数组未提前定义维度：直接给myNewArray赋值会触发运行时错误，必须先明确它的行/列数，或者动态重定义。

正确的实现代码 #

Sub SplitFixedWidthToArray()
    Dim myArray As Variant
    Dim rowCount As Integer
    Dim myNewArray() As String
    Dim i As Integer
    
    ' 将A1:A100的数据存入二维数组
    myArray = Range("A1:A100").Value
    ' 动态获取数据行数，避免固定100行的局限
    rowCount = UBound(myArray, 1)
    ' 初始化新数组：行数与原数据一致，3列对应三个宽度区间
    ReDim myNewArray(1 To rowCount, 1 To 3)
    
    ' 循环拆分每行数据到新数组
    For i = 1 To rowCount
        ' 第一列：0-10宽度（取前10个字符）
        myNewArray(i, 1) = Left(myArray(i, 1), 10)
        ' 第二列：10-15宽度（从第11位开始取5个字符）
        myNewArray(i, 2) = Mid(myArray(i, 1), 11, 5)
        ' 第三列：15-37宽度（从第16位开始取剩余所有字符，无需固定长度）
        myNewArray(i, 3) = Mid(myArray(i, 1), 16)
    Next i
    
    ' 可选：将拆分后的数组写入工作表B1:D区域验证结果
    Range("B1").Resize(rowCount, 3).Value = myNewArray
End Sub

额外优化提示 #

• 用Left替代Mid处理前N位字符更简洁，还能避免原字符串长度不足时的空值问题；
• 通过UBound(myArray, 1)动态获取行数，让代码适配任意行数的数据源，不用硬写100；
• 如果需要严格限制第三列的长度为22位，可以把第三行代码改成myNewArray(i, 3) = Left(Mid(myArray(i, 1), 16), 22)。

内容的提问来源于stack exchange，提问作者jblack