VBA中如何通过表中的数据对比数组中是否存在该元素

wuchengde

VBA中如何通过表中某列的数据去对比数组中是否存在该元素，如果存在就跳过，数组中不存在该值就将表中的数据删除。

ww87725244

删除工作表？

ww87725244

猜一个

1. Sub aa()
   
2. Dim ar, i&, d As Object
   
3. Dim sh As Worksheet
   
4. Set d = CreateObject("scripting.dictionary")
   
5. Application.DisplayAlerts = False
   
6. With Sheet1
   
7.     ar = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1))
   
8.     For i = 1 To UBound(ar)
   
9.         If Not d.exists(ar(i, 1)) Then
   
10.             d(ar(i, 1)) = ""
    
11.         End If
    
12.     Next
    
13. End With
    
14. For Each sh In Worksheets
    
15.     If Not d.exists(sh.Name) And sh.Name <> "信息" Then
    
16.         sh.Delete
    
17.     End If
    
18. Next
    
19. Application.DisplayAlerts = True
    
20. Set d = Nothing
    
21. End Sub

复制代码

wuchengde

ww87725244 发表于 2018-7-17 21:51
删除工作表？

不是删除工作表，是删除工作表名为[信息]里的地名，如果工作表名不存在[信息]工作表A列的地名，就删除A列中的地名

不知道为什么

供参考

不知道为什么

wuchengde 发表于 2018-7-17 22:15
不是删除工作表，是删除工作表名为[信息]里的地名，如果工作表名不存在[信息]工作表A列的地名，就删除A列 ...

好吧，刚才还是理解错你的意思了，重新上代码

wuchengde

不知道为什么 发表于 2018-7-17 22:23
供参考

大师，你这个是删除工作表，我要的是删除工作表名为【信息】里A列里的地名，如果工作簿中没有对应地点的工作表名，就删除A列中的地名，如果有就不删除

不知道为什么

wuchengde 发表于 2018-7-17 22:34
大师，你这个是删除工作表，我要的是删除工作表名为【信息】里A列里的地名，如果工作簿中没有对应地点的 ...

请见5楼代码

wuchengde

不知道为什么 发表于 2018-7-17 22:35
请见5楼代码

大师，能解释一下这几行代码的意思吗？我没太明白！

wuchengde

ww87725244 发表于 2018-7-17 22:04
猜一个

实在抱歉，我描述不清楚，导致你猜错了！不是删除工作表