[發問] 關於搜尋/比對 的函數寫法，懇請前輩指點

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 17
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-7-21
最後登錄: 2019-12-16

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-1-7 14:28 | 只看該作者

[發問] 關於搜尋/比對的函數寫法，懇請前輩指點

各位前輩好，有一工作疑問懇請能協助給予建議，如圖片所示：

Ａ欄可以輸入12個號碼（號碼各自不重複），輸入資料後可以從D欄的現有資料中，來查詢C欄相對應的結果，例如：

※ Condition 1: A欄輸入5,10,15,20,25 ，函數會去搜尋、比對Ｄ欄後，代出C欄位資料並顯示於 I2、I3儲存格

　I2：得出結果 N01為號碼、次序皆同A欄輸入
　I3：得出結果 N02、N03　號碼皆吻合，僅次序不同

※ Condition 2: A欄輸入10,20,5,15,25 ，函數去搜尋、比對Ｄ欄後，代出C欄位資料並顯示於 I2、I3儲存格

　I2：得出結果查無完全符合,不顯示
　I3：得出結果 N02、N03　號碼皆吻合，僅次序不同

本人只懂非常基礎的函數用法，對於VBA並無琢磨，曾試想用Vlookup，但C、D欄為一個連續的資料庫且會一直新增，有可能此筆新增資料僅５個號碼、下一筆新增資料有12個號碼...
故不清楚該如何製作才能精準的搜尋，這樣的搜尋模式有可能單靠函數即可完成，還是要進階到VBA撰寫呢?懇請各位前輩指導，感謝

搜尋比對20190107.rar (284.38 KB)

樓主熱帖

准提部林

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

15^#

發表於 2019-1-11 14:10 | 只看該作者

Sub TEST()
Dim Arr, A, i&, xD, C%, V%, N%, T$(2), s%, ST$(2)
Set xD = CreateObject("Scripting.Dictionary")
For Each A In [A2:A13].Value
If A <> "" Then xD(A & "") = 1: T(0) = T(0) & A & "_": C = C + 1
Next

Arr = Range([C2], [D65536].End(xlUp)(2))
For i = 1 To UBound(Arr) - 1
If Arr(i, 1) <> "" Then T(1) = Arr(i, 1): T(2) = ""
T(2) = T(2) & Arr(i, 2) & "_"
V = V + xD(Arr(i, 2) & ""): N = N + 1
If Arr(i + 1, 1) <> "" Or i = UBound(Arr) Then
   If V = C Then s = 2
   If T(2) = T(0) Then s = 1
   If N <> C Then s = 0
   ST(s) = ST(s) & "、" & T(1): V = 0: N = 0
End If
101: Next i

[I2] = Mid(ST(1), 2)
[I3] = Mid(ST(2), 2)
End Sub

帖子: 17
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-7-21
最後登錄: 2019-12-16

14^#

發表於 2019-1-10 21:13 | 只看該作者

回復 13# handmuch

前輩　非常感謝您的公式，會花時間來了解，感謝您

handmuch

　暱稱: expresmile

中學生 Rank: 2

帖子: 43
主題: 1
精華: 0
積分: 74
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-17
最後登錄: 2020-8-24

13^#

發表於 2019-1-9 20:03 | 只看該作者

參考參考

E2: {=IF(C2<>"",AND(OFFSET(D2,,,COUNTA($A$2:$A$13),)=OFFSET($A$2,,,COUNTA($A$2:$A$13),)),"")}

F2: {=IF(C2<>"",SUM(COUNTIF(OFFSET(D2,,,COUNTA($A$2:$A$13),),OFFSET($A$2,,,COUNTA($A$2:$A$13),))),"")}

G2: =IF(C2<>"",AND(E2=FALSE,F2=COUNTA($A$2:$A$13)),"")

J2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($E$2:$E$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}

k2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($G$2:$G$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}

http://expresmile.teachable.com

帖子: 17
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-7-21
最後登錄: 2019-12-16

12^#

發表於 2019-1-9 12:00 | 只看該作者

回復 11# ML089

感謝前輩指導說明，我會再來研究學習，謝謝

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

11^#

發表於 2019-1-8 18:30 | 只看該作者

回復 9# chou1203

P6欄位公式:  [ =IF(AND(O6=O7,SUM((0&B6:M6)^7)=SUM((0&B$1:M$1)^7)),"、"&A6,)&P7  ]陣列

SUM((0&B6:M6)^7) 用0的意義是? ^7這個在公式裡的的意義為何呢？
-----------------------------------------------------------------------------------
0的意義?
當空格時無法計算 0&空格為 "0"可以計算，當有數字時  0&99 = "099" 可以計算也是為 99

^7這個在公式裡的的意義為何呢？
當儲存個內是不重複數字時，SUM( 5^7,10^7,15^7,20^7,25^7)  =  SUM( 5^7,20^7,25^7,10^7,15^7) 雖然掉換位置但加總後數字會一樣，^7是將數字膨脹拉大距離，避免組和數字加總有同數性。
例如
直接加總無法分辨不同數字
   1+3+5 = 1+2+6 都為9，但數字不同

若 ^7 加總後容易分辨不同數字
   1^7+3^7+5^7 = 80313
   1^7+2^7+6^7 = 280065

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 17
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-7-21
最後登錄: 2019-12-16

10^#

發表於 2019-1-8 17:57 | 只看該作者

回復 8# hcm19522

感謝前輩的資料，我會再花時間多研究　謝謝 :-)