求教一个能代替sum(sumifs())的过程

lncyczy

用VBA多条件求和的问题,我会用函数公式做出来,但是用VBA代码做的话,就不会了,因为也是学习VBA 1个多月,也就是会一些基础的东西,但是思想什么的都还没有得到实际锻炼,现在突然遇到这个问题有点措手不及,麻烦各位老师帮帮忙,真的特别感谢,谢谢,谢谢

X2030

Sub 求和()
    Dim arr, arr1
    Dim x&, i&, j&
    With Sheet2
        Range("b2:b" & .[a1].End(4).Row) = ""
        arr = Sheet1.Range("a1").CurrentRegion.Value
        arr1 = Sheet2.Range("a1").CurrentRegion.Value
            For x = 2 To UBound(arr)
                For i = 2 To UBound(arr1)
                    If arr(x, 1) = arr1(i, 1) And InStr("现金-银联卡-微信支付", arr(x, 2)) Then
                        arr1(i, 2) = arr1(i, 2) + arr(x, 3)
                    End If
                Next i
            Next x
        Sheet2.Range("A1").Resize(x - 2, 2) = arr1
    End With
End Sub

X2030

1. Sub 求和()
   
2.     Dim arr, arr1
   
3.     Dim x&, i&, j&
   
4.     With Sheet2
   
5.         Range("b2:b" & .[a1].End(4).Row) = ""
   
6.         arr = Sheet1.Range("a1").CurrentRegion.Value
   
7.         arr1 = Sheet2.Range("a1").CurrentRegion.Value
   
8.             For x = 2 To UBound(arr)
   
9.                 For i = 2 To UBound(arr1)
   
10.                     If arr(x, 1) = arr1(i, 1) And InStr("现金-银联卡-微信支付", arr(x, 2)) Then
    
11.                         arr1(i, 2) = arr1(i, 2) + arr(x, 3)
    
12.                     End If
    
13.                 Next i
    
14.             Next x
    
15.         Sheet2.Range("A1").Resize(x - 2, 2) = arr1
    
16.     End With
    
17. End Sub
    

复制代码

wdx223

1. Sub test()
   
2. Dim cnn
   
3. 
   
4. Set cnn = CreateObject("ADODB.Connection")
   
5. 
   
6. cnn.Open "Provider=Microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" & ThisWorkbook.FullName
   
7. 
   
8. With Worksheets("基础数据")
   
9.     .[h2].CopyFromRecordset cnn.Execute("Select 小票号, sum(金额) from [小票数据$] where 结算名称 in ('现金','银联卡','微信支付') group by 小票号")
   
10.     .[h1:i1] = Array("小票号", "现金部分")
    
11. End With
    
12. 
    
13. End Sub

复制代码

lncyczy

X2030 发表于 2019-3-22 16:38
Sub 求和()
    Dim arr, arr1
    Dim x&, i&, j&

谢谢老师,解决了 燃眉之急   我还需要努力继续学习  谢谢~~

lncyczy

wdx223 发表于 2019-3-22 16:59

谢谢 谢谢, 麻烦了  嘿嘿

Peter.Cheong

老师们，我也遇到了一样的问题，研究了好久还是实现不了，老师们可以指导一下吗，不胜感激。如附件。

lncyczy

Peter.Cheong 发表于 2019-4-25 22:50
老师们，我也遇到了一样的问题，研究了好久还是实现不了，老师们可以指导一下吗，不胜感激。如附件。

兄弟  你这个公式运用的方式  我已经用字典法做出来了 速度还是很乐观的,但是你这一列里面有不是公式的  好像是备注是取消的行就变成0不使用SUMIFS公式,我把你这一列都复制上公式了 为了能跟VBA做出来的结果做一下对比,你看一下吧    我也是刚学习,做的东西不太好,二楼老师给的方式很适合咱们这样的新手,但是运算速度不如字典来的快,我也是刚学会字典,互相加油吧