[發問] 關於VLOOKUP的用法.請幫忙

kan109

bookeasy_01.rar (164.11 KB)

bookeasy_01
下載次數: 28

2011-10-16 20:26

附件bookeasy_01.rar 內
以Sheet1 A欄 A1-A2000 產品編號
Sheet2 A1-H1589 為產品種類以A-H DPXXX/DP1XXX , DP2XXX,DP3XXX,DP4XXX,DP5XXX,DP6XXX,DP7XXXDPCXXXX 順序排列
以B5為例,小弟從以前的發問中,利用
=IF(ISNA(VLOOKUP($A5,Sheet2!$A$1:$H$1600,2,FALSE)=TRUE),"",VLOOKUP($A5,Sheet2!$A$1:$H$1600,2,FALSE))
順利排出
A5為DP1383 B5為DP21383 C5-H5 因沒有可用產品編號故出現0
問題
以Sheet1 A31   DP3753/2C, 於Sheet2 內 507列 ,除了C507 = DP3753/2C , 還有B 507 D507 可用
利用那種公式可以實現
Sheet1 B31 = Sheet2 A507
Sheet1 C31 = Sheet2 B507
Sheet1 D31 = Sheet2 C507
Sheet1 E31 = Sheet2 D507
Sheet1 F31 = Sheet2 F507
其餘的都跟這種排列??

onegirl0204

回復 1# kan109


不知為何你的SHEET1的A31的產品代號在SHEET2的A欄裡找不到？因此利用VLOOKUP公式當然就無效囉！
奇忸的是為何SHEET1的A31與其他不同，它卻是對應到SHEET2的B欄呢？或者你的公式應該是SHEET2的A欄找不到資料時，改為尋求SHEET2的B欄呢？

kan109

回復  kan109


不知為何你的SHEET1的A31的產品代號在SHEET2的A欄裡找不到？因此利用VLOOKUP公式當然就 ...
onegirl0204 發表於 2011-10-16 22:10

    因為Sheet1 A31 的產品代號在 Sheet2 C507. 我希望實現到Sheet1 B31-H31 =Sheet2 B507-H507
如此類推!!感謝你的幫忙!!

man65boy

回復 1# kan109

B5=IF(A5="","",INDEX(Sheet2!A:H,SUMPRODUCT((Sheet2!$A$1:$H$1600=Sheet1!$A5)*ROW(Sheet2!$A$1:$H$1600)),SUMPRODUCT((Sheet2!$A$1:$H$1600=Sheet1!$A5)*COLUMN($A:$H))-1))

参考用:因檔案資料較龐大，運算速度變慢，
待高手幫忙解題修正!!!

kan109

回復  kan109

B5=IF(A5="","",INDEX(Sheet2!A:H,SUMPRODUCT((Sheet2!$A$1H$1600=Sheet1!$A5)*ROW(She ...
man65boy 發表於 2011-10-16 23:21

好~!唔該~!謝謝!!請問可以解釋一下嗎~!?想了解更多~!!謝

chin15

這是用陣列公式求得Sheet2!$A$1:$H$1600中值與Sheet1!$A5相等的列號
sumproduct屬陣列公式，在大量儲存格使用時會要很長時間的重算。
最好在資料量很小或暫時性的工作時才用公式處理。

kan109

這是用陣列公式求得Sheet2!$A$1H$1600中值與Sheet1!$A5相等的列號
sumproduct屬陣列公式，在大量儲存格使 ...
chin15 發表於 2011-10-17 08:29

    請問如需要在大量儲備格中使用，應使用何種公式？20000 列的資料！

oobird

這樣的話還 bookeasy_01.rar (45.59 KB)

下載次數: 16

2011-10-17 14:03

是建議用VBA吧。

kan109

這樣的話還是建議用VBA吧。
oobird 發表於 2011-10-17 14:04

    Sub test()
    Set d = CreateObject("Scripting.Dictionary")
    rng = Sheet2.UsedRange
    For i = 1 To UBound(rng)
        For j = 1 To UBound(rng, 2)
            If rng(i, j) <> "" Then
                If Not d.exists(rng(i, j)) Then
                    d(rng(i, j)) = i
                End If
            End If
        Next
    Next
    With Sheet1
        For i = 1 To .[a65536].End(3).Row
            If d("" & .Cells(i, 1)) <> "" Then
                .Cells(i, 2).Resize(, 7) = Sheet2.Cells(d("" & .Cells(i, 1)), 2).Resize(, 7).Value
            End If
        Next
    End With
End Sub

請問可以向小弟解釋一下嗎??

oobird

http://forum.twbts.com/thread-20-1-1.html參考這一篇說明