sumifs在vba中使用出现的问题，求解

6739912

如题，求高手解决
自我觉得公式没有写错，但计算不出结果

abc123281

这个要用到字典
代码仅供参考


abc123.rar (18.21 KB, 下载次数: 22)

2018-9-5 21:41 上传

点击文件名下载附件

6739912

abc123281 发表于 2018-9-5 21:41
这个要用到字典
代码仅供参考

我刚刚接触字典没几天，我还看不懂你写的代码
我想问一下，如果Y工作表中的型号及单价已经固定（不是所有X工作表型号及单价要求和，只求和Y工作表中已有的型号），这段代码如何写
附件有所更改，重传

abc123281

明天吧  太晚了

abc123281

Sub 汇总123()
Dim arr, brr(1 To 10000, 1 To 3)
Set d = CreateObject("scripting.dictionary")
With Worksheets("X")
  rw = .[a65536].End(xlUp).Row
  arr = .Range("a2:c" & rw)
  For i = 1 To UBound(arr)
     mx = arr(i, 1) & arr(i, 2)
     d(mx) = d(mx) + arr(i, 3)
  Next
End With
With Worksheets("Y")
  rw = .[a65536].End(xlUp).Row
  arr = .Range("a1:c" & rw)
  For i = 2 To UBound(arr)
     mx = arr(i, 1) & arr(i, 2)
     If d.exists(mx) Then
       .Cells(i, 3) = d(mx)
     End If
  Next
End With
End Sub

WYS67

abc123281 发表于 2018-9-6 07:48
Sub 汇总123()
Dim arr, brr(1 To 10000, 1 To 3)
Set d = CreateObject("scripting.dictionary")

老师：麻烦您给 http://club.excelhome.net/thread-1434343-1-1.html  写个代码。sub过程也可以的，只是需要在数据源所在的《总表》和《统计》里加上最大行号【用于限制数据输入和结果显示的范围】就行！

iwangyi

Sub CC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
N = [A65536].End(3).Row
For I = 2 To N
XH = Cells(I, 1): DJ = Cells(I, 2)
Sql = "SELECT SUM(数量) FROM [X$] WHERE 型号='" & XH & "' AND 单价=" & DJ & ""
Sheets("Y").Range("C" & I).CopyFromRecordset CN.Execute(Sql)
Next
End Sub

iwangyi

附件请参考************

youknow

http://club.excelhome.net/forum. ... p;page=1#pid9651427
老师，能帮忙一下，完成最终汇总求和；谢谢老师！