- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
這公式無法做, 只能用VBA- Sub Test()
- Dim R&, i&, Arr, Brr, Crr, Drr, xD, T$, U
- R = [訂單!D1].Cells(Rows.Count, 1).End(xlUp).Row
- Arr = [訂單!A1:AA1].Resize(R)
- ReDim Brr(1 To R - 1, 0)
- Set xD = CreateObject("Scripting.Dictionary")
- For i = 2 To R
- T = Arr(i, [D1].Column) & Arr(i, [AA1].Column)
- xD(T) = i - 1
- Next i
- R = [領料!E1].Cells(Rows.Count, 1).End(xlUp).Row
- Arr = [領料!A1:BB1].Resize(R)
- For i = 2 To R
- If Val(Arr(i, [BB1].Column)) <> 1 Then GoTo 101
- T = Arr(i, [E1].Column) & Arr(i, [Q1].Column)
- U = xD(T): If U = 0 Then GoTo 101
- Brr(U, 0) = Trim(Brr(U, 0) & " " & Arr(i, [AB1].Column))
- 101: Next i
- [訂單!BQ2].Resize(UBound(Brr)) = Brr
- End Sub
 Xl0000397.rar (105.13 KB)
|
|
發表於 2018-4-28 10:09
| 
