Rng1不包含Rng2的内容跟，只能用GOTO

ning84

试了几种方法， GOTO成立。

1. Sub LL()
   
2.     Dim Rng1 As Range, Rng2 As Range
   
3.         With Sheet1
   
4.              Set Rng1 = .Range(.Cells(1, 1).Formula)
   
5.              Set Rng2 = .Range(.Cells(1, 3).Formula)
   
6.              For ii = 1 To Rng1.Rows.Count
   
7.                  For jj = 1 To Rng2.Rows.Count
   
8.                        If Rng1(ii, 1) = Rng2(jj, 1) Then
   
9.                            GoTo 100
   
10.                        End If
    
11.                  Next jj
    
12.                  Rng1(ii, 1).Interior.ColorIndex = 3
    
13. 100:
    
14.              Next ii
    
15.         End With
    
16. End Sub
    
17. 
    
18. 
    
19. 
    
20. 
    
21. 安全有效的win10永久激活码|w10专业版激活密钥神key大全－win7之家  https://www.win7zhijia.cn/win10jc/win10_24794.html

复制代码

ning84

采用嵌套for next 效率太低。
目标查找的数据是否在数据集

蓝桥玄霜

比较的例子：

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, isFlag As Boolean
   
    br = [C3].CurrentRegion.Value
    With [A3].CurrentRegion
        ar = .Value
        .Interior.Color = xlNone
        For i = 1 To UBound(ar)
            isFlag = False
            For j = 1 To UBound(br)
                If br(j, 1) = ar(i, 1) Then
                    isFlag = True: Exit For
                End If
            Next j
            If isFlag = False Then .Cells(i, 1).Interior.Color = vbRed
        Next i
    End With

    Beep
End Sub

gwjkkkkk

代码审核中，请参考图片。。。

wanao2008

其实你应该最想知道的是自己的代码要如何优化吧？
希望能够帮助到你！

ning84

蓝桥玄霜 发表于 2024-2-18 14:54
比较的例子：

谢谢版主的字典方法。效率高。

1.     Dim Sld As Slide
   
2. 
   
3.             For Each Sld In Slds
   
4.                SldDic(Sld.Name) = ""                   ''
   
5.             Next Sld
   
6.             
   
7.         For ii = 1 To Rng.Rows.Count
   
8.              Str = Rng(ii, 2)
   
9.             
   
10.              Debug.Print ii, SldDic.Exists(Str), Str
    
11.             
    
12.              If Not SldDic.Exists(Str) Then
    
13.                   Rng(ii, 1).Resize(, 26).Interior.Color = vbRed
    
14.              End If
    
15.         Next ii

复制代码

ning84

wanao2008 发表于 2024-2-18 18:17
其实你应该最想知道的是自己的代码要如何优化吧？
希望能够帮助到你！

谢谢高手的回复。比较字典方法，嵌套for next效率不高。

1.     Dim Sld As Slide
   
2.         For ii = 1 To Rng.Rows.Count
   
3.             jj = 1
   
4.             For Each Sld In Slds
   
5.                    ''
   
6.                    jj = jj + 1
   
7.                    If Rng(ii, 2) = Sld.Name Then
   
8.                        Exit For                     
   
9.                    End If
   
10.             Next Sld
    
11.             If jj > Slds.Count Then
    
12.                    Rng(ii, 1).Resize(, 26).Interior.ColorIndex = 3
    
13.                    ''
    
14.                    Rng(ii, 1).Resize(, 26).Delete
    
15.             End If
    
16.         Next ii

复制代码