vba怎么获取AutoFilter筛选框中的列表值数组

yesoft

如图，怎么遍历筛选框里的数据数组，是AutoFilter哪个属性或方法？


如：如博罗县、潮州市。。。。。

E风卍行H

1. Sub 去重()
   
2.     Dim rngs As Range, rng As Range
   
3.     Dim dic As Object
   
4.    
   
5.     Set rngs = Columns("B")
   
6.     Set rngs = Intersect(rngs, ActiveSheet.UsedRange)
   
7.    
   
8.     Set dic = CreateObject("Scripting.Dictionary")
   
9.     For Each rng In rngs
   
10.         dic(rng.Value) = "" '字典去重
    
11.     Next
    
12.    

复制代码

海滨驿站（滨）

能再说明白一些吗？
Sub 数组()
    Dim i, n
   
    n = Sheet1.Cells(65536, 2).End(xlUp).Row
   
    ReDim arr(1 To 261)
    arr = Sheet1.Range("b2:b" & n)

End Sub

这样？

zpy2

select 地区,count(地区) from 正则表达式数据清洗后获取数值后分类合计 group by 地区 order by rowid;

yesoft

zpy2 发表于 2022-11-19 12:27
select 地区,count(地区) from 正则表达式数据清洗后获取数值后分类合计 group by 地区 order by rowid;

谢谢，没有sql组件的情况下呢?

yesoft

海滨驿站（滨） 发表于 2022-11-19 09:52
能再说明白一些吗？
Sub 数组()
    Dim i, n

是的，以第二列作为数组，然后数组唯一，最好能利用AutoFilter的属性什么的。

捞屎人

E风卍行H 发表于 2022-11-19 09:41

所见略同 不过楼主是做作业的

yesoft

E风卍行H 发表于 2022-11-19 09:41

字典去重我也知道，但有没有更直接的方法？AutoFilter里面有没有属性或方法是直接输出这样的数组的？

zpy2

yesoft 发表于 2022-11-19 18:27
谢谢，没有sql组件的情况下呢?

https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&page=2&mobile=
12楼在线工具

yesoft

zpy2 发表于 2022-11-20 06:10
https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&page=2&mobile=
12楼在线工具

谢谢，但答应仍未找到