函数公式搞不定了，工作表包含的引用另一个工作表的数组公式不能超过65472个

yancjm

工作表包含的引用另一个工作表的数组公式不能超过65472个，函数公式搞不定了，大家帮忙看看能否将附件中的函数公式转成VBA ?

yancjm

可以换成sumifs,但是资料一多，速度就慢了，函数真难搞

一把小刀闯天下

消息收到，不会公式，可以用文字和图示表达

上个问题因为规律非常明显都不用猜的，，，

yancjm

一把小刀闯天下 发表于 2019-6-18 20:24
消息收到，不会公式，可以用文字和图示表达

上个问题因为规律非常明显都不用猜的，，，

公式的用途是取SYS工作表中品号与统计表中品号相同并且需求日相同的出库存数量之合，例如A料号在6/19日 SYS工作表中出库存数量为10PCS,6/19日对应的数量就是10，如果同一天A料号下面还有一笔10，结果就是20

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, t, dic, mark
  Set dic = CreateObject("scripting.dictionary")
  arr = Sheets("sys").[a2].CurrentRegion
  For i = 3 To UBound(arr, 1)
    t = arr(i, 1) & arr(i, 4)
    dic(t) = dic(t) + Val(arr(i, 8))
  Next
  Sheets("统计").Activate
  j = Cells(4, Columns.Count).End(xlToLeft).Column
  mark = [a4].Resize(, j)
  arr = Range("a8:a" & Cells(Rows.Count, "a").End(xlUp).Row).Resize(, j)
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 1)) Then
      For j = 21 To UBound(arr, 2)
        t = mark(1, j) & arr(i, 1)
        arr(i, j) = IIf(dic.exists(t), dic(t), vbNullString)
      Next
    End If
  Next
  [a8].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

yancjm

一把小刀闯天下 发表于 2019-6-18 21:36
Option Explicit

Sub test()

抱歉，我没有说清楚，6/18缺料列里的数量是结余-需求，6/19缺料列里的数量是6/18的缺料-6/19的需求，依此类推，上述代码把缺料清掉了

一把小刀闯天下

yancjm 发表于 2019-6-18 21:48
抱歉，我没有说清楚，6/18缺料列里的数量是结余-需求，6/19缺料列里的数量是6/18的缺料-6/19的需求，依此 ...

For j = 21 To UBound(arr, 2)   改成

----------------
For j = 21 To UBound(arr, 2) step 2

yancjm

一把小刀闯天下 发表于 2019-6-18 21:54
For j = 21 To UBound(arr, 2)   改成

----------------

非常感谢！

yancjm

一把小刀闯天下 发表于 2019-6-18 21:36
Option Explicit

Sub test()

朋友，有时间帮忙再看看，因为这个表前半部份是用数据透视表做出来的，现在运行时出现图片中的错误，另外帮忙看看统计表中黄色标示的减法，VBA怎么写，是否可以在原代码基础上稍作改动，我在网上找了一段代码，改了半天也没有弄好，刚开始写VBA，还没有入门，先谢谢了！

一把小刀闯天下

yancjm 发表于 2019-6-22 21:03
朋友，有时间帮忙再看看，因为这个表前半部份是用数据透视表做出来的，现在运行时出现图片中的错误，另外 ...

  j = Cells(5, Columns.Count).End(xlToLeft).Column
  [a16].Resize(UBound(arr, 1), UBound(arr, 2)) = arr

---------------
对应行修改一下，因为行位置变了。不会用数据透视表，输出位置改变了一下就不出错了，，，