[發問] Index and Match VBA

各位大大

如果我"庫存"里在A欄和AG欄兩個合符的條件的情況下在尋找"WORKING" 找回相對應的資料,

我應點寫VBA CODE 呢???

謝謝

活頁簿1.rar (129.99 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

2^#

發表於 2020-6-25 11:37 | 只看該作者

雙條件--用index+match--行不通:
Sub 載入庫存()
Dim R&, C&, i&, j%, Arr, Brr, Crr, xD, U&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([working!AF1], [working!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 2 To UBound(Arr)
xD(Arr(i, 1) & Arr(i, UBound(Arr, 2))) = i
Next i
'----------------------------------
Brr = Range([庫存!AG1], [庫存!B1].Cells(Rows.Count, 1).End(xlUp))
ReDim Crr(1 To UBound(Brr), 1 To UBound(Brr, 2) - 2)
For i = 5 To UBound(Brr)
U = Val(xD(Brr(i, 1) & Brr(i, UBound(Brr, 2))))
If U = 0 Then GoTo 101
For j = 1 To UBound(Crr, 2)
Crr(i - 4, j) = Arr(U, j + 1)
Next j
101: Next i
'----------------------------------
[庫存!C5:AF5].Resize(UBound(Crr)) = Crr
End Sub

Xl0000210(庫存表更新).rar (85.48 KB)

========================

TOP

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

3^#

發表於 2020-6-25 21:38 | 只看該作者

本帖最後由 mdr0465 於 2020-6-25 21:39 編輯

回復 2# 准提部林

版主:准提部林, 真的好多謝你的幫忙,你實在太犀利了:handshake

我有嘗試了解當中的寫法,但因為我只是複制一部份給你, 但因為運程式時會有一些資料會刪除了,

小弟不才,不能自行修改,令程式運行順利...

我還遇到的問題有2點

1. 如何解決不刪除每一個產品的預設加總
2. 如何解決AH:AO欄位的複制

謝謝

SAMPLE.rar (307.04 KB)