标红色部分，后面一种情况提示我ELSE 没有IF，不知道为什么

看飞鸟的金鱼

Sub smt()
Dim d As Object, rng As Range            
Dim ar, i&
Set d = CreateObject("scripting.dictionary")
Set rng = Nothing
ar = Sheet5.[a1].CurrentRegion
    For i = 1 To UBound(ar)
        s = ar(i, 4) & ar(i, 17) & ar(i, 18)
        If d.exists(s) Then
           If rng Is Nothing Then
              Set rng = Cells(i, 4)
           Else
              Set rng = Union(rng, Cells(i, 4))
           End If
        Else
           d(s) = ""
        End If
    Next
    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

Sub smt()
Dim d As Object, rng As Range
Dim ar, i&
Set d = CreateObject("scripting.dictionary")
Set rng = Nothing
ar = Sheet5.[a1].CurrentRegion
    For i = 1 To UBound(ar)
        s = ar(i, 4) & ar(i, 17) & ar(i, 18)
        If d.exists(s) Then
           If rng Is Nothing Then Set rng = Cells(i, 4)
           Else
              Set rng = Union(rng, Cells(i, 4))
           End If
        Else
           d(s) = ""
        End If
    Next
    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

Peny2020

If d.exists(s) Then
           If rng Is Nothing Then
              Set rng = Cells(i, 4)
           Else
              Set rng = Union(rng, Cells(i, 4))
           End If
Else
d(s) = ""
End If

看飞鸟的金鱼

Peny2020 发表于 2023-12-11 10:08
If d.exists(s) Then
           If rng Is Nothing Then
              Set rng = Cells(i, 4)

Dim ar, i&   这个帮我解释一下可以吗？

Peny2020

看飞鸟的金鱼 发表于 2023-12-11 22:21
Dim ar, i&   这个帮我解释一下可以吗？

就是Dim ar as Variant, Dim i as Long　简写

看飞鸟的金鱼

Peny2020 发表于 2023-12-19 13:40
就是Dim ar as Variant, Dim i as Long　简写

感谢老师的回复，谢谢！