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

天地一相

感谢帮助，详见截图附件。

ykcbf1100

感觉并不那么简单，字典+数组

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.24
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 2).End(3).Row
   
4.     arr = [a1].Resize(r, 5)
   
5.     For i = 1 To UBound(arr)
   
6.         st = arr(i, 2) & arr(i, 3)
   
7.         d.RemoveAll
   
8.         For x = 1 To Len(Trim(st))
   
9.             s = Mid(st, x, 1)
   
10.             d(s) = d(s) + 1
    
11.         Next
    
12.         st1 = ""
    
13.         For Each k In d.keys
    
14.             If d(k) = 1 Then
    
15.                 st1 = st1 & k
    
16.             End If
    
17.         Next
    
18.         If Len(st1) = Len(arr(i, 4)) Then
    
19.             ft = 0
    
20.             For x = 1 To Len(st1)
    
21.                 s = Mid(st1, x, 1)
    
22.                 If InStr(CStr(arr(i, 4)), s) Then
    
23.                     ft = ft + 1
    
24.                 End If
    
25.             Next
    
26.             If ft = Len(st1) Then
    
27.                 arr(i, 5) = 0
    
28.             Else
    
29.                 arr(i, 5) = 1
    
30.             End If
    
31.         Else
    
32.             arr(i, 5) = 1
    
33.         End If
    
34.     Next
    
35.     [e1].Resize(r, 1) = Application.Index(arr, 0, 5)
    
36.     Set d = Nothing
    
37.     MsgBox "OK！"
    
38. End Sub
    
39. 
    

复制代码

longwin

请看附件。。。。

笨鸟飞不高

天地一相

ykcbf1100 发表于 2024-7-24 12:35
感觉并不那么简单，字典+数组

以前这3列的内容在1列里，用2个短横隔开的。是用自定义公式处理的，你看下里面的逻辑。

limonet

公式：=IF(SUM(--ISERROR(FIND(UNIQUE(MID(CONCAT(B1:C1),ROW(INDIRECT("1:"&LEN(CONCAT(B1:C1)))),1),,1),D1))),1,0)

天地一相

limonet 发表于 2024-7-24 13:31
公式：=IF(SUM(--ISERROR(FIND(UNIQUE(MID(CONCAT(B1:C1),ROW(INDIRECT("1:"&LEN(CONCAT(B1:C1)))),1),,1), ...

谢谢，不能用公式，我得在VBA循环里的一个环节处理。我现在是最后一次性处理，就使用的公式。想着是不是可以在环节中处理，想着尝试下。

limonet

天地一相 发表于 2024-7-24 13:36
谢谢，不能用公式，我得在VBA循环里的一个环节处理。我现在是最后一次性处理，就使用的公式。想着是不是 ...

好的，用楼上几位老师的。

天地一相

limonet 发表于 2024-7-24 13:48
好的，用楼上几位老师的。

也不行，嵌套进去耗时严重！不如现在在结尾一次性使用公式处理。我等下测试你写的公式会不会比我现在的速度更快。