跨工作表比對前20組

duck_simon

請教  跨工作表比對前20組
說明如附件內  感謝大大高明 前20比對(3).rar (14.88 KB)

下載次數: 1

2022-5-4 13:21

samwang

請教  跨工作表比對前20組
說明如附件內  感謝大大高明
duck_simon 發表於 2022-5-4 13:24

好深奧看不懂需求，方便再說明詳細一點吧?謝謝

duck_simon

回復 2# samwang

工作２　     9 16 17 35
比對　工作１　根據Ｅ欄的１　上推２０組＝Ｇ６：Ｊ２５
如有相同個數３個以上．＂Ｘ＂　否則　＂＂　否則　＂＂　

抱歉!表達能力不好..請原諒..
改了內文說明...如壓縮檔
前20比對(3).rar (14.92 KB)

下載次數: 2

2022-5-4 18:37

samwang

回復  samwang

工作２　     9 16 17 35
比對　工作１　根據Ｅ欄的１　上推２０組＝Ｇ６：Ｊ２５
如有 ...
duck_simon 發表於 2022-5-4 18:31

不好意思函數不會，VBA如下請測試看看，謝謝
Sub test()
Dim Arr, xD, T$, n%, n1%, i%, j%
Set xD = CreateObject("Scripting.Dictionary")
With Sheets(2)
    Arr = .[c27:f27]
    For j = 1 To 4: T = Arr(1, j): xD(T) = 1: Next
End With
With Sheets(1)
    Arr = .Range("g25").CurrentRegion
    For i = UBound(Arr) To 1 Step -1
        n = n + 1: If n > 20 Then GoTo 99
        For j = 1 To 4
            T = Arr(i, j): If xD(T) = 1 Then n1 = n1 + 1
            If n1 >= 3 Then Sheets(2).[g27] = "X": Exit Sub
        Next
        n1 = 0
99: Next
End With
End Sub

duck_simon

回復 4# samwang

謝謝大大關照..我測試看看..感激