Excel VBA技术求助：列数据变量赋值与计算代码报错排查

嘿，作为VBA新手踩这种坑太正常了！咱们先理清楚你要实现的需求：把几列20行的数据存进变量，计算出A、B、C、D四个逐行的结果，最后把每行的最大值写到H5:H25里。你的原代码之所以清空了所有列，还没实现功能，主要是几个关键逻辑搞反了，咱们一步步拆：

原代码的核心问题 #

• 赋值顺序完全搞反：你写的Range("C5:C25").Value = I0是把空变量I0（因为你没给它赋值过，Variant默认是空）写入单元格，这直接就把C列清空了！正确的应该是I0 = Range("C5:C25").Value——把单元格数据读进变量，而不是反过来。其他几个Range的赋值也都是同样的问题，这是最致命的错误。
• 数组运算逻辑不对：当你把整列区域赋值给Variant变量时，它会变成二维数组（哪怕是单列，Excel返回的也是行×列的二维结构）。直接用A = I2 - I0这种写法，VBA不会自动逐行做减法，得用循环处理每个元素。
• Max函数用错了：WorksheetFunction.Max(A,B,C,D)如果A是数组，它会取整个数组的最大值，然后把这个单一值填充到H列所有行，而不是逐行取最大值。

修复后的代码 #

Sub span()
    ' 定义存储各列数据的数组变量
    Dim I0 As Variant, T1 As Variant, I1 As Variant, T2 As Variant, I2 As Variant
    Dim A As Variant, B As Variant, C As Variant, D As Variant
    Dim G As Variant
    Dim i As Integer ' 循环处理每一行的索引
    
    ' 把单元格数据读取到变量里（重点：变量 = 区域.Value，反过来就会清空单元格！）
    I0 = Range("C5:C25").Value
    T1 = Range("D5:D25").Value
    I1 = Range("E5:E25").Value
    T2 = Range("F5:F25").Value
    I2 = Range("G5:G25").Value
    G = Range("G5").Value - Range("C5").Value ' 这里G是单一值，没问题
    
    ' 初始化结果数组，和源数据保持相同的维度（21行×1列，因为C5:C25是21行）
    ReDim A(1 To UBound(I0, 1), 1 To 1)
    ReDim B(1 To UBound(I0, 1), 1 To 1)
    ReDim C(1 To UBound(I0, 1), 1 To 1)
    ReDim D(1 To UBound(I0, 1), 1 To 1)
    
    ' 逐行计算A、B、C、D的数值
    For i = 1 To UBound(I0, 1)
        A(i, 1) = I2(i, 1) - I0(i, 1)
        B(i, 1) = T2(i, 1) - I0(i, 1)
        C(i, 1) = T2(i, 1) - I1(i, 1)
        D(i, 1) = T1(i, 1) - I1(i, 1) + G
    Next i
    
    ' 逐行取四个值的最大值，写入H列对应单元格
    For i = 1 To UBound(I0, 1)
        Range("H" & i + 4).Value = Application.Max(A(i, 1), B(i, 1), C(i, 1), D(i, 1))
    Next i
End Sub

修复点说明 #

1. 纠正赋值顺序：把数据从单元格读进变量，再也不会清空列了。
2. 逐行数组运算：用循环遍历每一行，确保每个位置的A/B/C/D都是对应行的计算结果。
3. 逐行取最大值：用Application.Max（比WorksheetFunction.Max容错性更好，遇到空值不会直接报错）逐行计算最大值，写入H列对应的行。
4. 数组维度匹配：用UBound(I0,1)获取源数据的行数，动态定义结果数组的维度，哪怕你以后改了行数，代码也不用手动改。

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