按规则判断内容并返回结果

grf1973

BCD三列连起来，判断其中是否元素成对，全部成对为0，否则为1

saghj

唉 搞复杂了

grf1973

..。。。。。。。

grf1973

还可以用1-9替换空值的方法，如果n替换后，替换前长度-替换后长度为单数，则表示没有成对。

grf1973

可以用大量数据测试一下速度，不一定会比上面的慢。

准提部林

自訂函數//
Function Chk_Num(X1$, X2$, X3$)
Dim A(9), B(9), i%, V%
For i = 1 To Len(X1):  A(Mid(X1, i, 1)) = 1: Next
For i = 1 To Len(X2)
    V = Mid(X2, i, 1)
    If A(V) = 1 Then A(V) = "" Else A(V) = 1
Next i
For i = 1 To Len(X3): B(Mid(X3, i, 1)) = 1: Next
Chk_Num = -(Join(A, "\") <> Join(B, "\"))
End Function

公式//
=chk_num(B1,C1,D1)

也可在代碼中的循環中引用\\

usedrange

1. Sub t()
   
2.     Dim arr, br, m%, i%, wb, sh, s, k, dic, f, st, num_st, num_d
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     With Sheet1
   
5.         m = .[b1].End(4).Row
   
6.         arr = .Range("b1:d" & m)
   
7.         ReDim br(1 To m)
   
8.         For j = 1 To UBound(arr)
   
9.             s = arr(j, 1) & arr(j, 2)
   
10.             For i = 1 To Len(s)
    
11.                 k = Mid(s, i, 1)
    
12.                 If dic(k) = "" Then
    
13.                     dic(k) = 1
    
14.                 Else
    
15.                     dic.Remove (k)
    
16.                 End If
    
17.             Next i
    
18.             num_st = 0: num_d = 0
    
19.             For Each f In dic.keys
    
20.                 st = st & f
    
21.                 num_st = num_st + Asc(f)
    
22.             Next f
    
23.             For i = 1 To Len(arr(j, 3))
    
24.                 num_d = num_d + Asc(Mid(arr(j, 3), i, 1))
    
25.             Next i
    
26.             If num_d = num_st Then
    
27.                 br(j) = 0
    
28.             Else
    
29.                 br(j) = 1
    
30.             End If
    
31.             dic.RemoveAll
    
32.         Next j
    
33.         .[e1].Resize(UBound(br)) = Application.Transpose(br)
    
34.     End With
    
35.     Set dic = Nothing
    
36. End Sub
    

复制代码

天地一相

准提部林 发表于 2024-7-24 15:36
自訂函數//
Function Chk_Num(X1$, X2$, X3$)
Dim A(9), B(9), i%, V%

谢谢,没看懂，花了点时间评测了下，和我目前使用的，看结果是对的。速度和我现在使用的几乎一样，但你的代码量少。

gwjkkkkk

grf1973 发表于 2024-7-24 14:50
BCD三列连起来，判断其中是否元素成对，全部成对为0，否则为1

这个思路不错，不写了。。。

天地一相

grf1973 发表于 2024-7-24 15:05
..。。。。。。。

看你11楼的说法，我还觉得你想错了，测试后发现结果是对的。后来再去想你说的成对，，，，还是没想透。