返回列表 上一主題 發帖

VBA VLOOKUP疑問

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
1# 跳轉到 »
發表於 2020-11-25 17:06 | 顯示全部帖子
回復 1# lilizzzz

D2=IFERROR(VLOOKUP(B2,'3P-COPPPROD'!A,4,0),VLOOKUP(B2,'2P-COPPPROD'!A,4,0))

是這樣的需求嗎?

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
2#
發表於 2020-11-25 17:07 | 顯示全部帖子
回復 1# lilizzzz

=IFERROR(VLOOKUP(B2,'3P-COPPPROD'!A:D,4,0),VLOOKUP(B2,'2P-COPPPROD'!A:D,4,0))
    這是你的需求嗎?

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
3#
發表於 2020-11-25 17:55 | 顯示全部帖子
回復 1# lilizzzz


Sub TEST_Vlookup()
Dim Arr, Brr, xD, i&
Set xD = CreateObject("Scripting.Dictionary")
j = 2
For sh = 2 To 1 Step -1
    With Sheets(sh)
        j = j + 1
        Arr = .Range(.[A1], .[D65536].End(xlUp))
        For i = 1 To UBound(Arr)
            xD(Arr(i, 1)) = Arr(i, j)
        Next
    End With
Next
Brr = Range([工作表1!B2], [工作表1!C65536].End(xlUp))
For i = 1 To UBound(Brr)
    Brr(i, 1) = xD(Brr(i, 1))
Next
[工作表1!D2].Resize(UBound(Brr), 1) = Brr
End Sub

更新 D2 =IFERROR(VLOOKUP(B2,'3P-COPPPROD'!A:D,3,0),VLOOKUP(B2,'2P-COPPPROD'!A:D,4,0))

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題