使用VBA Resize方法合并两个区域值时遇类型不匹配错误求解决

核心问题分析 #

1. 区域值本质是二维数组：Range.Value针对多单元格区域会返回二维数组（哪怕是单列/单行区域），VBA不支持直接用+运算符对两个数组做逐元素加法，这是「类型不匹配」错误的核心原因。
2. Resize方法完全冗余：range1（I3:I5）和range2（G3:G5）尺寸完全一致，Resize操作没有实际意义，反而容易造成逻辑混淆。
3. CInt无法批量转换数组：CInt(range1.Value)试图将整个数组转为整数，但CInt仅支持单个值转换，自然触发错误。

修复方案 #

方案1：数组逐元素运算（高效适配大区域） #

先把区域值读入数组，完成逐元素计算后写回，比循环单个单元格效率更高：

Sub Macro2()
    Dim arr1 As Variant, arr2 As Variant
    Dim i As Integer
    
    ' 读取区域值到数组（自动转为二维数组）
    arr1 = Range("I3:I5").Value
    arr2 = Range("G3:G5").Value
    
    ' 逐元素执行加法
    For i = LBound(arr1, 1) To UBound(arr1, 1)
        arr1(i, 1) = arr1(i, 1) + arr2(i, 1)
    Next i
    
    ' 将计算结果写回原区域
    Range("I3:I5").Value = arr1
End Sub

方案2：Excel数组公式直接赋值（最简洁） #

利用Excel自身的数组运算能力，通过Evaluate解析公式语法，一次性完成批量计算：

Sub Macro2()
    Range("I3:I5").Value = Evaluate("I3:I5+G3:G5")
End Sub

方案3：循环单元格操作（适合基础逻辑理解） #

如果需要保留直观的单元格操作逻辑，可以用循环逐个处理：

Sub Macro2()
    Dim cell As Range
    For Each cell In Range("I3:I5")
        ' Offset(0, -2)表示同单元格左移2列，对应G列位置
        cell.Value = cell.Value + cell.Offset(0, -2).Value
    Next cell
End Sub

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