根据物料编码和仓库代码自动抓取库存，感谢！

一招秒杀

这么简单的需求，搞个透视表拖放几下就搞定了，哪里还需要手写代码？

洋务德雷

512008404 发表于 2023-11-9 10:31
调整列的位置，8楼的方案不受影响。它是按照字段名定位的

你的表格如果插入了表功能，那么就简单许多了。

洋务德雷

一招秒杀 发表于 2023-11-9 10:45
这么简单的需求，搞个透视表拖放几下就搞定了，哪里还需要手写代码？

的确是用数据透视表就可以搞定的。

wstwfs

leeson7502 发表于 2023-11-9 10:18
你这个问题好。恰好我以前做过例似的东西。做一个自定义函数来定位数组的字段位置。

收到，非常感谢，完美解决

spark999

feilanga 发表于 2023-11-8 16:18

谢谢大佬，非常明了！

我试了一下，这里要加多一句:Sum=0，否则‘合计库存’会将上一行的也计入到本行中。
For i = 2 To UBound(arr)
        Sum = 0
        For j = 4 To UBound(arr, 2)

spark999

gwjkkkkk 发表于 2023-11-8 18:30
参与一下。。。

谢谢大佬！

我试了一下，这里要改一下下，否则当同物料编号、同仓库名称的‘可用量(主单位)’有2个或以上的记录时，只取最后一个出现的值。
dic(strKey) = dic(strKey) + ar(i, 4)

a18b88

feilanga 发表于 2023-11-8 16:56
仓库有点儿多，自动输出表头和仓库

A表C列横向合计数有误

zhangcheng6688

看到一些例子学习一下
arr = Sheets("A表").[a2].CurrentRegion
r = Sheets("B表").Cells(Rows.Count, "d").End(xlUp).Row
brr = Sheets("B表").Range("a2:d" & r)
For i = 2 To UBound(arr)
     For j = 4 To UBound(arr, 2)
         For k = 1 To UBound(brr)
              If arr(i, 1) = brr(k, 1) And arr(1, j) = brr(k, 3) Then
                 arr(i, j) = arr(i, j) + brr(k, 4)
              End If
         Next
     Next
Next
Sheets("A表").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr

feilanga

a18b88 发表于 2023-11-9 17:50
A表C列横向合计数有误

加一句好了，忘了重置sum了

feilanga

spark999 发表于 2023-11-9 16:18
谢谢大佬，非常明了！

我试了一下，这里要加多一句:Sum=0，否则‘合计库存’会将上一行的也计入到本行 ...

对的，你说的对，我没测试