Excel VBA操作数组报“Subscript out of range”错误求助

两段代码的错误集中在VBA数组特性不熟悉、语法细节错误两个方向：

• 二维数组访问方式错误：直接从单元格Range对象赋值生成的VBA数组是固定的二维结构，索引格式为(行序号, 列序号)，哪怕是单列/单行区域也不例外。第一版代码直接用dt_array(1)单下标访问，直接触发下标越界错误。
• 数组维度不匹配：第二版代码中声明的dt_date、dt_time是一维数组，VBA中一维数组默认按横向排列，直接赋值给纵向的单列单元格区域时，会出现值错位、空值、全量重复首个元素的问题，这就是无报错但输出结果完全错误的核心原因。
• 变量声明语法错误：VBA中多变量同行声明时，仅最后一个带As 类型后缀的变量会被指定为对应类型，其余未标注类型的变量默认是变体型，不会继承最后一个变量的类型，容易引发隐式类型转换问题。
• 逻辑边界错误：A2:A290区域共289行数据，第二版代码循环终止值设为288，最后一行数据未被处理；第一版代码中截取时间误用Left函数，取到的是日期字符串前8位，和预期的时间值完全不符；第一版代码用+做字符串拼接，遇到数值类型时会触发隐式类型转换报错。

直接使用和源数据、目标区域维度匹配的二维数组存储结果，避免转置兼容问题，批量读写效率更高，代码如下：

Sub Data()
    Dim i As Long
    Dim dt_array As Variant, dt_date As Variant, dt_time As Variant
    Dim sourceSht As Worksheet, targetSht As Worksheet
    Const dataRowCount As Long = 289 ' A2:A290共289行数据
    
    ' 绑定工作表，减少重复长路径引用
    Set sourceSht = Workbooks("Smacro.xlsm").Worksheets("Sheet1")
    Set targetSht = Workbooks("Smacro.xlsm").Worksheets("Sheet2")
    
    ' 读取源数据到二维数组，单元格区域返回的数组默认下标下限为1
    dt_array = sourceSht.Range("A2:A290").Value
    ' 初始化结果数组，和源数组维度保持一致（同行数、1列），可直接写回工作表
    ReDim dt_date(1 To dataRowCount, 1 To 1)
    ReDim dt_time(1 To dataRowCount, 1 To 1)
    
    ' 遍历处理每一行数据
    For i = 1 To dataRowCount
        dt_date(i, 1) = Left(dt_array(i, 1), 10) ' 取前10位为日期
        dt_time(i, 1) = Right(dt_array(i, 1), 8) ' 取后8位为时间
    Next i
    
    ' 结果批量写回工作表
    targetSht.Range("A2").Resize(dataRowCount, 1).Value = dt_date
    targetSht.Range("B2").Resize(dataRowCount, 1).Value = dt_time
End Sub

• 所有从Excel单元格区域直接赋值生成的数组，永远是二维数组，第一维对应行、第二维对应列，哪怕区域只有单行/单列，也必须写两个下标访问，否则触发下标越界错误。
• VBA中声明多变量时，必须为每个变量单独指定类型，例如Dim a As String, b As Long, c As Variant，不要写Dim a,b,c As Variant的格式，避免出现非预期的类型声明。
• 一维数组默认是横向排列的，如果要把一维数组写入纵向的列区域，必须用WorksheetFunction.Transpose()转置，但Transpose支持的数组长度上限为65536，数据量大时建议直接使用和目标区域维度一致的二维数组存储结果，兼容性更好。
• VBA中字符串拼接统一用&运算符，不要用+，+仅用于数值计算，用于字符串拼接时如果两侧类型不匹配会触发运行时错误。
• 逐单元格循环写入的效率远低于数组一次性写回，数据量超过100行时优先用数组批量读写的方式。

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