Question

使用VBA 代码使SUMIF引用的数值能够向表格的行与列进行循环。

如：SHEET1 A列是名称，B1、C1、D1、E1、F1、依此类推，是日期，B2、C2、D2、E2、F2依此类推是数值；我想将SHEET1数值使用VBA SUMIF函数引用到SHEET2中（例如：Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)")，但是这个不能全方面的循环数值，我想编入代码，使B2、C2、D2、E2、F2数值都能循环引用。谢谢！

Answer 1

既然使用 VBA 代码，其功能及运行效率都远远高于公式，直接使用代码解决问题即可。

追问

但是这样什占很多的内存，所以要把数据全部数值化。

追答

现在 PC 内存大多在 4 G 及以上，没什么问题，如 100 * 100 000 的 double 类型数组，占内存才不到 77 MB。为了提高效率，将单元格数据先保存在数组中。

追问

如何才能将单元格数据先保存在数组中呢？谢谢！

追答

试试以下代码：

Option Explicit
Option Base 1 '将数组下标设置成从 1 开始，以简化程序

Public Sub Sub_A()
Dim Arr As Variant, Arr2() As Double, R As Long, C As Long, RCnt As Long, CCnt As Long

'使用变体变量可以接受矩形区域数据
Arr = Range("A1:J20").Value

'过程在 sheet1 的类模块中，如果不是，上句要改成：
Arr = Sheet1.Range("A1:J20").Value

'或者
'Arr = Range(Cells(1, 1), Cells(20, 10)).Value
'Arr = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(20, 10)).Value

RCnt = UBound(Arr, 1)
CCnt = UBound(Arr, 2)

'处理数据，如：
ReDim Arr2(1 To RCnt, 1 To CCnt)
For R = 1 To RCnt
For C = 1 To CCnt
Arr2(R, C) = Arr(R, C) * Rnd
Next
Next

'将数组 Arr2 写入到 sheet2 中
With Sheet2
.Range(.Cells(1, 1), .Cells(RCnt, CCnt)).Value = Arr2
End With

End Sub