遍历十万行数据修改遇性能问题，数组操作下标越界求助

一、先搞定你的下标越界错误 #

从Excel单元格区域读取到的数组是二维数组，默认行和列的下标都是从1开始的，你写的循环从0开始，自然会触发下标越界。修正后的代码如下：

Dim arr() As Variant, arrEmp() As Variant
arr = Range("A1:A" & tempRows).Value
arrEmp = Range("B1:B" & tempRows).Value
' 单列数组的结构是(arrI, 1)，行下标从1到tempRows
For arrI = 1 To tempRows
    If arr(arrI, 1) <> tempVal And arrEmp(arrI, 1) = 0 Then
        arrEmp(arrI, 1) = 1
    End If
Next
' 最后把修改后的数组一次性写回单元格，这步比逐行写快N倍
Range("B1:B" & tempRows).Value = arrEmp

二、十万行数据的数组优化方案 #

用数组循环已经比直接操作单元格快很多，但如果想尽量简化循环或者用更高效的方式，试试这两种方法：

方法1：用工作表函数直接生成结果数组 #

借助Excel工作表函数的数组运算能力，不用写For循环就能生成修改后的B列数据：

Dim arrA As Variant, arrB As Variant, resultArr As Variant
arrA = Range("A1:A" & tempRows).Value
arrB = Range("B1:B" & tempRows).Value

' 用IF+AND的数组逻辑直接生成结果
resultArr = Application.WorksheetFunction.If( _
    Application.WorksheetFunction.And(arrA <> tempVal, arrB = 0), _
    1, _
    arrB _
)
Range("B1:B" & tempRows).Value = resultArr

注意：十万行数据量下这个方法完全能扛，运算速度比循环还快。

方法2：快速获取符合条件的行索引 #

如果你需要单独拿到满足A列≠tempVal且B列=0的行号，不用全循环筛选，可以结合Filter函数实现：

Dim arrA As Variant, arrB As Variant
Dim indexArr() As String, i As Long
arrA = Range("A1:A" & tempRows).Value
arrB = Range("B1:B" & tempRows).Value

' 先构建一个存行号的数组，符合条件的存行号，否则存空字符串
ReDim indexArr(1 To tempRows)
For i = 1 To tempRows
    If arrA(i, 1) <> tempVal And arrB(i, 1) = 0 Then
        indexArr(i) = CStr(i)
    Else
        indexArr(i) = ""
    End If
Next

' 用Filter筛选出非空的行号，直接得到符合条件的索引数组
indexArr = Filter(indexArr, "", False)

' 后续可以用这个索引数组批量处理，比如修改对应单元格
For Each idx In indexArr
    Range("B" & idx).Value = 1
Next

这种方法适合需要单独处理符合条件行的场景，数组内的循环速度非常快，几乎不会有卡顿。

三、额外提速小技巧 #

• 操作前加上Application.ScreenUpdating = False，结束后再设为True，关掉屏幕刷新能大幅提速。
• 如果不需要保留B列原有的非0值，也可以直接用公式填充后转成值：Range("B1:B" & tempRows).Formula = "=IF(AND(A1<>" & Chr(34) & tempVal & Chr(34) & ",B1=0),1,B1)"，不过数组方法还是最快的。

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