VBA set去重中，range对象无法获取row的问题

Sub 选项按钮1_Click()
Dim dict3 As Object
Set dict3 = CreateObject("scripting.dictionary")

Set arr1 = Range("b4:b37")

For Each i In arr1.Value
    If Not dict3.exists(i) Then
       dict3.Add i, ""
       'Debug.Print i
       'I.Offset(0, 1).Value = I.Value
       
    Else
        Debug.Print i
        
        Set rang = ActiveSheet.Range("b4:b37").Find(i)
        Debug.Print rang.Address; rang.Row; rang.Value;
        Rows(rang.Row).Delete
        
        Debug.Print 111111111
        
        Exit Sub
    End If
Next
End Sub
 

地区
河南
重庆
浙江
浙江