- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2025-8-22
|
4#
發表於 2022-5-5 08:35
| 只看該作者
回復 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 |
|
