按条件再按日期匹配数量

Peny2020 · 发表于 2024-4-4 15:52

本帖最后由 Peny2020 于 2024-4-5 19:01 编辑

在Sheet(查找）里有条件数据A-D, E-F列为结果列，需到sheet(数据源)根据A-D的条件找到与之相匹配的清单编号，
在匹配清单编号前的条件是
1.日期要先找最近的。
2。然后看SHEET(1)的所需数量是会大过此清单编号对应的数量，如没有超过，则把此清单编号放回sheet(1)里。
如果超过了，如下图黄色例子，在sheet(1)里把原数据向下复制多一列，然后在sheet(2)里按日期再往上找，找到另一个清单编号直到数量满足sheet(1)里的数量。
这个拆数量的和判断数量是否够用，我不会写进代码，想麻烦各位高手帮帮，谢谢了。

Peny2020 · 发表于 2024-4-4 15:55

因数据源有上10万条，如果用sumifs函数，运转不了

dragonthree · 发表于 2024-4-4 16:20

可以把数据源的数据按日期降序排个序，然后d(arr(i, 4) & arr(i, 5) & arr(i, 3)) = 行数1, 行数2，行数3

dragonthree · 发表于 2024-4-4 16:23

For i = 1 To UBound(arr)
      s = arr(i, 4) & arr(i, 5) & arr(i, 3)
      If Not d.exists(s) Then
         d(s) = i
      Else
         d(s) = d(s) & "," & i
      End If
Next

Peny2020 · 发表于 2024-4-4 16:26

dragonthree 发表于 2024-4-4 16:20
可以把数据源的数据按日期降序排个序，然后d(arr(i, 4) & arr(i, 5) & arr(i, 3)) = 行数1, 行数2，行数3

不好意思，行数1, 行数2，行数3 这个我不太懂什么意思，把这个写入字典，那数量怎么判断？如果少了怎么让代码继续往下再去找？谢谢

Peny2020 · 发表于 2024-4-4 16:34

dragonthree 发表于 2024-4-4 16:23
For i = 1 To UBound(arr)
s = arr(i, 4) & arr(i, 5) & arr(i, 3)
If Not d.exists(s) ...

对不起，我太笨了，不会往下写了，可以帮帮我写全吗？谢谢了。

shiruiqiang · 发表于 2024-4-4 17:05

各位老师问一下，此贴计划用sql语句，怎么部分列是空白？

Peny2020 · 发表于 2024-4-4 17:07

shiruiqiang 发表于 2024-4-4 17:05
各位老师问一下，此贴计划用sql语句，怎么部分列是空白？

应该是文本格式问题吧

ykcbf1100 · 发表于 2024-4-4 18:21

没有完全看明白，先不下手了。

Peny2020 · 发表于 2024-4-4 19:15

ykcbf1100 发表于 2024-4-4 18:21
没有完全看明白，先不下手了。

就是表1的ABC列与表2的DEC列一致的前提下提取表2的B列日期为最近今天的A列数据，并把同一行里对应的数量与表1的数量做个判断，大于等于表1的就直接取表1的数量，如果小于表1的先把对应的A列数据放回表1，并向下复制一行并返回去表2找下一个日期，直到找出来的数量大于或等于表1的停止查找，不知道能不能说得明白，谢谢了

		自动登录	找回密码
密码			免费注册

[已解决] 按条件再按日期匹配数量

评分