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

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-10-16 20:42 | 顯示全部帖子

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

bookeasy_01.rar (164.11 KB)
附件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
其餘的都跟這種排列??

樓主熱帖

excel~ 學好他吧

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

2^#

發表於 2011-10-16 22:22 | 顯示全部帖子

回復 kan109

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

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

excel~ 學好他吧

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

3^#

發表於 2011-10-16 23:52 | 顯示全部帖子

回復 kan109

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

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

excel~ 學好他吧

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

4^#

發表於 2011-10-17 11:05 | 顯示全部帖子

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

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

excel~ 學好他吧

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

5^#

發表於 2011-10-17 19:55 | 顯示全部帖子

這樣的話還是建議用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

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

excel~ 學好他吧