求助：将两列12k+数据导入数组及排查VBA循环无输出问题

1. 循环无输出的问题排查与修复 #

你的代码出现循环无输出，主要是两个核心问题：

（1）二维数组的下标访问错误 #

当你直接把单列Range赋值给变量时，VBA会自动生成二维数组（格式为Arr(行号, 列号)，下标从1开始），而非一维数组。比如cBIN = Range(Cells(2,26), Cells(eLastRow,26))生成的数组是cBIN(1 To eLastRow-1, 1 To 1)，你的代码里用cBIN(aRow - 2)这种一维下标访问，要么触发下标越界错误（导致代码中断），要么返回无效值，自然无法生成正确的拼接结果。

（2）工作表引用不明确 #

你开头用了With ActiveSheet，但后续的Range和Cells没有加上.前缀，这会导致代码引用的是当前活动工作表的单元格，而非你指定的ActiveSheet（如果中途工作表切换，就会读取错误区域的数据），最终数组可能为空。

修复后的循环代码 #

Sub FixLoopVersion()
    Dim eLastRow As Long, aRow As Long
    Dim cBIN As Variant, dDealer As Variant
    
    With ActiveSheet
        eLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 加上.前缀，明确引用With块的工作表，同时接收二维数组
        cBIN = .Range(.Cells(2, 26), .Cells(eLastRow, 26)).Value
        dDealer = .Range(.Cells(2, 4), .Cells(eLastRow, 4)).Value
        
        aRow = 2
        While aRow <= eLastRow
            ' 用二维数组的下标访问：行号是aRow-1（因为数组从1开始，对应工作表第2行），列号固定为1
            .Cells(aRow, 35).Value = cBIN(aRow - 1, 1) & " - " & dDealer(aRow - 1, 1)
            aRow = aRow + 1
        Wend
    End With
End Sub

2. 无需逐个循环的高效数组处理方法 #

对于12k+条数据，循环逐个写入单元格效率很低。推荐用数组批量处理：先把数据读取到数组，在内存中完成拼接，最后一次性写入工作表，速度会提升数倍。

高效实现代码 #

Sub EfficientArrayVersion()
    Dim eLastRow As Long, i As Long
    Dim cBIN As Variant, dDealer As Variant
    Dim resultArr As Variant ' 存储拼接后的结果
    
    With ActiveSheet
        eLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 读取两列数据到二维数组
        cBIN = .Range(.Cells(2, 26), .Cells(eLastRow, 26)).Value
        dDealer = .Range(.Cells(2, 4), .Cells(eLastRow, 4)).Value
        
        ' 初始化结果数组，行数和源数组一致，列数为1
        ReDim resultArr(1 To UBound(cBIN, 1), 1 To 1)
        
        ' 在内存中完成拼接（比写入单元格快得多）
        For i = 1 To UBound(cBIN, 1)
            resultArr(i, 1) = cBIN(i, 1) & " - " & dDealer(i, 1)
        Next i
        
        ' 一次性写入结果到目标列（第35列）
        .Range(.Cells(2, 35), .Cells(eLastRow, 35)).Value = resultArr
    End With
End Sub

额外优化：直接用公式批量生成（无需数组） #

如果不需要VBA数组操作，还可以直接用公式批量填充，效率同样很高：

Sub FormulaFillVersion()
    Dim eLastRow As Long
    
    With ActiveSheet
        eLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 在第35列第2行写入公式，然后批量填充到最后一行
        .Cells(2, 35).Formula = "=Z2 & "" - "" & D2"
        .Range(.Cells(2, 35), .Cells(eLastRow, 35)).FillDown
        ' 可选：把公式转为值
        .Range(.Cells(2, 35), .Cells(eLastRow, 35)).Value = .Range(.Cells(2, 35), .Cells(eLastRow, 35)).Value
    End With
End Sub

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