各位大神路过请帮一把小弟！

身体被掏空

是这样的，因为工作原因会进行这类数据的汇总（如下）；小弟的方法工作量比较大步骤如下：
1.物料号是有一个会有一个现成的表，通常情况下小弟用CTRL+F查询目标物料号2.再根据物料号找到生产订单，生产订单又不在一个单元格，还需要将不同的生产订单复制到txt文本文件；
3.再复制txt生产订单号内容到物料号对应的单个单元格；
希望有更简单的方法完成这项工作，多余的话不多BB，小弟在此拜谢！

身体被掏空

表达的不怎么好，想取消重新发表，奈何没找到方法，不懂得先问我，谢谢啦！

准提部林

VBA
字典檔+ARRAY
將結果放到Sheet2

准提部林

草寫個vba, 能用則用:
Sub TEST()
Dim Arr, xD, i&, T1$, T2$, R&, N&
Sheets("Sheet2").UsedRange.Offset(1, 0).EntireRow.Delete
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([B1], Cells(Rows.Count, 5).End(3))
For i = 2 To UBound(Arr)
    T1 = Arr(i, 1): T2 = Arr(i, 4)
    If T1 = "" Or T2 = "" Then GoTo 101
    If Val(xD(T1 & T2)) = 1 Then GoTo 101
    R = xD(T2):  xD(T1 & T2) = 1
    If R = 0 Then
       N = N + 1: xD(T2) = N
       Arr(N, 1) = N: Arr(N, 2) = T2: Arr(N, 3) = T1: GoTo 101
    End If
    Arr(R, 3) = Arr(R, 3) & Chr(10) & T1
101: Next i
With [Sheet2!A2:C2].Resize(N): .Value = Arr: Application.Goto .Item(1): End With
End Sub

Xl0000148.rar (11.23 KB, 下载次数: 2)

2019-2-16 16:59 上传

点击文件名下载附件

zyhqzn

excel2016pq结果在sheet2中

micch

没有合并也就罢了，还要合并就比较麻烦，尤其数据如果很多，数组公式太卡。用代码可以，如果不想代码就分步完成

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion.Offset(1)
   
4.     For i = 1 To UBound(arr)
   
5.         If InStr(d(arr(i, 5)), arr(i, 2)) = 0 Then
   
6.             d(arr(i, 5)) = d(arr(i, 5)) & Chr(10) & arr(i, 2)
   
7.         End If
   
8.     Next
   
9.     [c27].Resize(d.Count) = Application.Transpose(d.keys)
   
10.     [d27].Resize(d.Count) = Application.Transpose(d.items)
    
11. End Sub

复制代码

得到不重复物料清单，搜索高级筛选，筛选不重复数据。

得到订单号的合并，用辅助完成。应该用vlookup做个辅助来着，一开始没想好用了lookup了，懒得改了。

1. =IF(MATCH(B2&E2,B$1:B2&E$1:E2,)=ROW(),B2&CHAR(10),"")&IFERROR(LOOKUP(1,0/(E$1:E1=E2),N$1:N1),"")

复制代码

N2，数组下拉

1. =LOOKUP(1,0/(E$2:E$22=C27),N$2:N$22)

复制代码

身体被掏空

炒鸡感谢，我先看一下这个方法看能不能看懂，哈哈！

身体被掏空

zyhqzn 发表于 2019-2-16 18:00
excel2016pq结果在sheet2中

大神你好，小弟弱弱的问下，能讲解下思路吗，学会了不会忘，也能活学活用，授人以鱼不如授人以渔！

zyhqzn

我用的是excel2019，截图给你看看

zyhqzn

打开pq编辑器后，步骤在右边的步骤中，如果对pq有基础的话，很容易看懂！