Question

怎样用VBA将excel中两个数组的类型统一，并求这两个数住的和？

我初学VBA，用VBA写了一段程序，其中
With Sheets("Sheet1")
.Range("A34:AD41").Value = .Range("A34:AD41").Value + .Range("A44:AD51").Value
End With
在调试时，对于.Range("A34:AD41").Value = .Range("A34:AD41").Value + .Range("A44:AD51").Value，显示“类型不匹配”。其中A34:AD41内是原始数据，A44:AD51内是A34:AD41内的原始数据和其它数据经过一系列计算得到数值。对于这个语句应该怎样修改？谢谢帮助。

Answer 1

For i = 34 To 41
For j = 1 To 30
Sheets("Sheet1").Cells(i, j) = Sheets("Sheet1").Cells(i, j) _
+ Sheets("Sheet1").Cells(i + 10, j)
Next
Next

或者这样：
Set Rng1 = Sheets("Sheet1").Range("A34:AD41")
Set Rng2 = Sheets("Sheet1").Range("A44:AD51")
For i = 1 To Rng1.Count
Rng1.Cells(i) = Rng1.Cells(i) + Rng2.Cells(i)
Next

Answer 2

我没学过VB，但认为你不能对单元格进行循环计算
因为单元格不是变量
试试将结果统计到另一个SHEET中
GOOD LUCK