¤£¦n·N«ä¨ç¼Æ¤£·|¡AVBA¦p¤U½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
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 ®É¶¡: 2022-5-5 19:11