返回列表下一主題上一主題發帖

VBA VLOOKUP疑問

lilizzzz

小學生 Rank: 1

帖子: 17
主題: 4
精華: 0
積分: 22
點名: 0
作業系統: windows10
軟體版本: windows10
閱讀權限: 10
性別: 男
註冊時間: 2020-11-18
最後登錄: 2022-1-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-11-25 15:00 | 只看該作者

VBA VLOOKUP疑問

各位好，我需要利用vLOOK幫我判斷數量，

1工作表1 :.規格欄內含有H、86資料，讀取3P-COPPPROD 資料表，25、28、29則讀取2P-COPPPROD 資料表

2.並自動回傳相對應數量

可是在撰寫時候，都一直跳 #[]VALUE，懇請解惑

我利用了VLOOKUP包住 COUNTIF、IFO(OR()、SEARCH試過都沒辦法，

已經卡好幾天了qq
[attach]32712[/attach]

VLOOKUP.zip (15.29 KB)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

2^#

發表於 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

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

3^#

發表於 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

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

4^#

發表於 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

lilizzzz