各位老师给帮忙看下这个公式怎么用VBA实现啊

qaz10121

各位老师给帮忙看下这个公式怎么用VBA实现啊

一把小刀闯天下

'就是M列同编号累加，然后与C列相同编号进行对比计算的吧，，，

Option Explicit

Sub test()
  Dim arr, i, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = [m2].CurrentRegion
  For i = 2 To UBound(arr, 1)
    dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
  Next
  arr = [c2].CurrentRegion.Offset(1)
  For i = 1 To UBound(arr, 1)
    If dic.exists(arr(i, 1)) Then
      arr(i, 1) = dic(arr(i, 1)): arr(i, 2) = arr(i, 2) - arr(i, 1)
    Else
      arr(i, 1) = 0
    End If
  Next
  [i3].Resize(UBound(arr, 1) - 1, 2) = arr
End Sub

qaz10121

一把小刀闯天下 发表于 2020-1-12 12:57
'就是M列同编号累加，然后与C列相同编号进行对比计算的吧，，，

Option Explicit

不好意思，没有看明白。

一把小刀闯天下

qaz10121 发表于 2020-1-12 15:56
不好意思，没有看明白。

结果对了没有。我不会公式，按我的理解给你敲得，如果有问题可以用文字来说明，，，

qaz10121

一把小刀闯天下 发表于 2020-1-12 16:12
结果对了没有。我不会公式，按我的理解给你敲得，如果有问题可以用文字来说明，，，

换了个表运行就总是出错，显示类型不匹配，没有看明白代码，也找不到问题

qaz10121

还有老师有别的法子吗？
数组我弄不了。

iwangyi

Sub C()
Set CN = CreateObject("ADODB.CONNECTION")
CN.Open "PROVIDER = MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "SELECT  B.完成数量统计,A.数量-B.完成数量统计 FROM [SHEET1$C2:D]A LEFT JOIN (SELECT 完成编号 AS WCBH,SUM(完成数量) AS 完成数量统计 FROM [SHEET1$M2:N] GROUP BY 完成编号)B ON A.编号=B.WCBH"
[I3].CopyFromRecordset CN.Execute(Sql)
End Sub

iwangyi

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