VBA一对多查找并合并

wang-way

店铺，采购，排列

wang-way

limonet 发表于 2024-6-25 10:36
之后可以更改标题，不影响执行效果
让数组等来吧，SQL靠边。

用无标题模式 f1  动态构建字段行不？

ykcbf1100

Lisianthus1 发表于 2024-6-25 11:14
是店铺sku销量*采购sku数量噢

简单合并，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.25
   
2.     arr = Sheets("原始数据").UsedRange
   
3.     zrr = Sheets("关联数据").UsedRange
   
4.     ReDim brr(1 To 10000, 1 To 100)
   
5.     For i = 2 To UBound(arr)
   
6.         For x = 2 To UBound(zrr)
   
7.             m = m + 1
   
8.             For j = 1 To UBound(arr, 2)
   
9.                 brr(m, j) = arr(i, j)
   
10.             Next
    
11.             brr(m, 9) = zrr(x, 7)
    
12.             brr(m, 10) = zrr(x, 8)
    
13.             brr(m, 11) = arr(i, 5) * zrr(x, 8)
    
14.         Next
    
15.     Next
    
16.     With Sheets("合并数据")
    
17.         .UsedRange.Offset(1) = ""
    
18.         .[a2].Resize(m, 11) = brr
    
19.     End With
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

Lisianthus1

ykcbf1100 发表于 2024-6-25 11:22
简单合并，附件供参考。。。

万分感谢！努力学习！

limonet

wang-way 发表于 2024-6-25 11:19
用无标题模式 f1  动态构建字段行不？

hdr=no就是无标题。

Lisianthus1

ykcbf1100 发表于 2024-6-25 11:23
参与一下。。。

老师 我在后面增加了多行 提示”下标越界“ 要怎么调整呀

ykcbf1100

Lisianthus1 发表于 2024-6-25 13:48
老师 我在后面增加了多行 提示”下标越界“ 要怎么调整呀

多行是多少行啊？
改一下数组容量吧，redim brr(1 to 100000,1 to 100)

Lisianthus1

ykcbf1100 发表于 2024-6-25 15:24
多行是多少行啊？
改一下数组容量吧，redim brr(1 to 100000,1 to 100)

估计每个表的内容都要加到10000行左右
改了数组还是这样提示哎

ykcbf1100

Lisianthus1 发表于 2024-6-25 15:29
估计每个表的内容都要加到10000行左右
改了数组还是这样提示哎

上传附件看一下吧。