yuras

帖子: 16
主題: 10
精華: 0
積分: 41
點名: 0
作業系統: WINDWOS 7
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
來自: 台灣
註冊時間: 2010-10-12
最後登錄: 2014-7-7

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-13 18:04 | 只看該作者

[發問] 重複比對

Book1.rar (2.01 KB)

小妹我只會比對單一值 (vlookup)，若需要重複比對真的用到昏倒 :L
我有一份資料(sheet1) 需要比對王小明+購買日期帶出發票號碼 (sheet2資料)
麻煩各位高手了謝謝 :P

樓主熱帖

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

2^#

發表於 2011-2-13 18:54 | 只看該作者

2!插入一欄
A1=B1&C1下拉
1!D2=VLOOKUP(B2&A2,2!A:D,4,0)

知之為知之，不知為不知，誠實也！

TOP

yuras

小學生 Rank: 1

帖子: 16
主題: 10
精華: 0
積分: 41
點名: 0
作業系統: WINDWOS 7
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 女
來自: 台灣
註冊時間: 2010-10-12
最後登錄: 2014-7-7

論壇贊助勳章

3^#

發表於 2011-2-13 19:32 | 只看該作者

2!插入一欄
A1=B1&C1下拉
1!D2=VLOOKUP(B2&A2,2!A,4,0)
gong 發表於 2011-2-13 18:54

謝謝 :)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-2-13 20:28 | 只看該作者

D2陣列公式
{=INDIRECT("'2'!C"&SMALL(IF((('2'!$B$2:$B$25=A2)*('2'!$A$2:$A$25=B2)),ROW($C$2:$C$25),""),1))}

學海無涯_不恥下問

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

5^#

發表於 2011-3-8 08:36 | 只看該作者

=LOOKUP(2,1/('2'!$A$1:$A$25='1'!B2)*('2'!$B$1:$B$25='1'!A2),'2'!$C$1:$C$25)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

6^#

發表於 2023-3-15 10:32 | 只看該作者

本帖最後由 Andy2483 於 2023-3-15 10:34 編輯

回復 1# yuras
回復 4# Hsieh

謝謝論壇,謝謝前輩
藉這帖今天後學再練習陣列與字典,請各位前輩指教
1.兩欄關鍵字以"|"符號組合成key
2.Item以列號在前,核複欄在後,中間以"|"符號組合
3.需讀取item中的列號時,以VAL(item)方法便可取得

資料表:

結果表執行前:

執行結果:

Option Explicit
Sub Test()
Dim Brr, Crr, Y, i&, T$
'↑宣告變數:(Brr,Crr,Y)是通用型變數,i是長整數,T是字串變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y這通用型變數是字典
Brr = Sheets("1").UsedRange
'↑令Brr這通用型變數是二維陣列,以表1有使用儲存格值帶入
Crr = Sheets("2").UsedRange
'↑令Crr這通用型變數是二維陣列,以表2有使用儲存格值帶入
For i = 2 To UBound(Crr)
'↑設順迴圈!i從2到 Crr縱向最大索引列號
T = Crr(i, 1) & "|" & Trim(Crr(i, 2))
'↑令T這字串變數是 i迴圈列第1欄Crr陣列值連接"|"再連接
'i迴圈列第2欄Crr陣列值去除頭尾空白字元後的新字串
If Y.Exists(T) Then
'↑如果查Y字典裡有 T變數這key?
   If Split(Y(T), "|")(1) <> Trim(Crr(i, 3)) Then
   '↑如果以T變數查Y字典回傳item值用"|"分割後的一維陣列1索引號
   '陣列子不同於 i迴圈數第3欄Crr陣列值去除頭尾空白字元的新字串?
      MsgBox T & " 資料有複選,請確認": Exit Sub
      '↑跳出提示窗~~  :按確認後結束程式執行
   End If
   Else
      Y(T) = i & "|" & Trim(Crr(i, 3))
      '↑否則就以T變數為key,item是 i迴圈數連接"|"再連接
      'i迴圈數第3欄Crr列值去除頭尾空白字元的新字串後的新字串,
      '納入Y字典
End If
Next
For i = 2 To UBound(Brr)
'↑設順迴圈!i從2到 Brr縱向最大索引列號
T = Trim(Brr(i, 2)) & "|" & Brr(i, 1)
'↑令T這字串變數是 i迴圈列第2欄Brr陣列值去除頭尾空白字元後的新字串
'連接"|"再連接 i迴圈列第1欄Brr陣列值
Brr(i, 4) = Crr(Val((Y(T))), 3)
'↑令i迴圈列第4欄Brr陣列值是 Val((Y(T)))列第3欄Crr陣列值,
'Val((Y(T)))列:以T變數查Y字典回傳的item值轉化為數值列
Next
[1!G1].Resize(UBound(Brr), 4) = Brr
'↑令名1的工作表從 [G1]開始擴展向下 Brr陣列縱向最大索引列號數列,
'向右擴展 4欄,這擴展範圍的儲存格以Brr陣列值帶入
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522