相同帐号的正负值抵消，如何提高VBA执行速度？

ghq200101

原先用判断循环的语句对附表中相同帐号的正负值进行抵消，由于数据量大，运行特别慢，请各位大师帮我重新编一段抵消VBA代码，谢谢先！

ghq200101

不好意思，忘了发附件，请帮忙！

LIUZHU

ghq200101 发表于 2014-2-10 09:47
不好意思，忘了发附件，请帮忙！

你这问题的要求是什么啊，没说清楚啊，楼主

yaozong

如果是同账号数据合并(含抵销)
Private Sub CommandButton1_Click()
  Dim d, arr, i&
  Set d = CreateObject("Scripting.Dictionary")
  arr = [a1].CurrentRegion.Value
  For i = 1 To UBound(arr)
    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
  Next
  [d1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

AVEL

数据透视表即可。。。

ghq200101

yaozong 发表于 2014-2-10 10:19
如果是同账号数据合并(含抵销)
Private Sub CommandButton1_Click()
  Dim d, arr, i&

你筛选出来的数据是总和值，不是原有数据，还有其他办法吗？

ghq200101

AVEL 发表于 2014-2-10 10:22
数据透视表即可。。。

能否用VBA代码？

yaozong

ghq200101 发表于 2014-2-10 10:49
你筛选出来的数据是总和值，不是原有数据，还有其他办法吗？

你这问题的要求是什么啊，没说清楚啊

AVEL

ghq200101 发表于 2014-2-10 10:50
能否用VBA代码？

4楼代码不可以么？

ghq200101

yaozong 发表于 2014-2-10 10:51
你这问题的要求是什么啊，没说清楚啊

不好意思，我有可能没讲清楚，就是我在2楼发的附表中，我想要根据相同帐号提取抵消正负金额后的记录，不是合计值，谢谢！