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

Felsn

于 2022-03-29 22:14:51 发布

阅读量395

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA Excel达人养成计划文章标签：其他

本文链接：https://blog.csdn.net/Felsn/article/details/123833698

VBA 同时被 2 个专栏收录

2 篇文章

订阅专栏

Excel达人养成计划

1 篇文章

订阅专栏

这段VBA代码旨在通过Dictionary对象去重Range("b4:b37")中的值。当找到重复值时，代码会查找该值在Range中的位置，并删除相应行。但可能存在无法正确获取Row的问题，需要检查Find方法的使用和行删除的操作是否影响了循环过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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


地区
河南
重庆

浙江

浙江