[已解决]两种计算方法结果为什么不相等

libenwen2011

用5月8日讲的数组计算金额和SUMIF计算的金额不等，哪位老师看一下，是什么原因？

Book1.rar (73.4 KB, 下载次数: 42)

2012-5-9 00:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

jxncfxsf

2012-5-9 15:03

错误有两个
  1、数据源不正确 单元格中    数量X单价<>金额。
  2、代码错误，你的代码只算出最后一个A 的金额，以下是修改后的代码。
   Sub 二维动态数组()
Dim arr(), k, x, j
k = Application.CountIf(Sheets("sheet2").[a:a], "A")
ReDim arr(1 To k, 1 To 4)
For x = 1 To 10000
   If Cells(x, 1) = "A" Then
     j = j + 1
     arr(j, 1) = "A"
     arr(j, 2) = Cells(x, 2)
     arr(j, 3) = Cells(x, 3)
     arr(j, 4) = arr(j, 2) * arr(j, 3)
   
   End If
Next x
  Range("H2").Value = Application.Sum(Application.Index(arr, , 4))
End Sub

跳转到最佳答案楼层

砂海

D15=72.2     <>11.2*12.4
..................................
D列 大概70-80% 都是这种情况.

砂海

楼主帖子版块 好像也不对.

从从容容

动态好像没有用到。还有D列的数据有错误。

libenwen2011

从从容容 发表于 2012-5-9 09:58
动态好像没有用到。还有D列的数据有错误。

运行出错。                              

jxncfxsf

错误有两个
  1、数据源不正确 单元格中    数量X单价<>金额。
  2、代码错误，你的代码只算出最后一个A 的金额，以下是修改后的代码。
   Sub 二维动态数组()
Dim arr(), k, x, j
k = Application.CountIf(Sheets("sheet2").[a:a], "A")
ReDim arr(1 To k, 1 To 4)
For x = 1 To 10000
   If Cells(x, 1) = "A" Then
     j = j + 1
     arr(j, 1) = "A"
     arr(j, 2) = Cells(x, 2)
     arr(j, 3) = Cells(x, 3)
     arr(j, 4) = arr(j, 2) * arr(j, 3)
   
   End If
Next x
  Range("H2").Value = Application.Sum(Application.Index(arr, , 4))
End Sub