求解：VBA求列的平均值？

czr0373

有4列数，A,B,C,D
求平均值，即：
(A+B)/2,置于E
(C+D)/2,置于F
除了用公式之外，有几种最快的求解方法？
因为行数比较大，数千以上

lsc900707

数据少的话用函数公式，数据大的话用vba.

czr0373

lsc900707 发表于 2018-8-13 22:34
数据少的话用函数公式，数据大的话用vba.

就是数据大，而且不定数，有时四五千，有时七八千

zxl729129

文件呢？把文件发出来看看，这样不清楚具体的数据是怎样的

lsc900707

czr0373 发表于 2018-8-13 22:36
就是数据大，而且不定数，有时四五千，有时七八千

那就上传附件吧。

czr0373

zxl729129 发表于 2018-8-13 22:36
文件呢？把文件发出来看看，这样不清楚具体的数据是怎样的

文件已上传，保留了少部分数据，太多传不上去

czr0373

lsc900707 发表于 2018-8-13 22:38
那就上传附件吧。

文件已上传，保留了少部分数据，太多传不上去

zxl729129

Sub 求平均值()
t = Timer
Dim arr(1 To 10000, 1 To 2)
  arr1 = Range("a2:d" & Cells(Rows.Count, 1).End(xlUp).Row)
  For i = 1 To UBound(arr1)
    arr(i, 1) = (arr1(i, 1) + arr1(i, 2)) / 2
    arr(i, 2) = (arr1(i, 3) + arr1(i, 4)) / 2
  Next
    [g2].Resize(UBound(arr1), 2) = arr
MsgBox Timer - t
End Sub

zxl729129

czr0373 发表于 2018-8-13 22:48
文件已上传，保留了少部分数据，太多传不上去

数据多用数组快些，我写了代码在审核

xiangbaoan

……………………