excel vba筛选

excel 中有两个筛选

1、筛选，vba 代码为

set rg=range("a1:a100")

rg.AutoFilter Field:=1, Criteria1:="内容"

rg 为筛选区域， Criteria1为筛选的值，比如在A1列内筛选内容为北京区的，则 Criteria1="北京区"

2、高级筛选

Rg.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

同理rg 为rang 区，action 有两个值，一个是不改变，一个是复制，copytoRange 就是结果复制内容到

这里主要说复制结果，这个结果是不重复的，比如有1000行数据，里面有10个北京区，20个上海区，四川区等，他会吧内容不重复的列出了

这两个结合起来使用就可以达到自定义筛选了

Rg.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
x = Range("A60000").End(xlUp).Row
ReDim filterArray(0 To x - 1)
For i = 0 To x - 2
filterArray(i) = Range("A" & i + 2)
Rg.AutoFilter Field:=1, Criteria1:=filterArray(i)

这样就可以实现筛选自动选择内容

excel vba筛选相关推荐

Excel VBA 多条件筛选及汇总统计
Excel VBA 多条件筛选 AdvancedFilter 汇总统计 sumproduct Range与Array交换在日常工作中,面对Excel表格数据,为了分类进行统计,通过对表格数据筛选获取 ...
Excel·VBA多条件筛选组合结果
Function strTOF(str$) As Boolean'用于计算字符串判断True/False,默认返回False'适用vba比较运算符:速度比较慢,但通用Dim i&, j& ...
陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能
Excel VBA 编程,在表格做自动筛选的功能下面的例子是自动筛选85列的内容,筛选内容为处方 Private Sub CommandButton11_Click() '筛选处方 ...
Excel VBA 多重筛选
Excel VBA 多重筛选 Sub FilterOnValues() 'PURPOSE: Filter on specific valuesDim rng As RangeSet rng = Act ...
Excel·VBA自定义函数筛选单元格区域重复值
贴吧提问<哪位大神知道要怎么实现?>,Excel内置函数使用比较麻烦,VBA字典实现比较直观自定义函数UNIQUE_IF筛选单元格区域中的值,可以选择返回其中的唯一值或重复值,并用分隔符 ...
利用Excel VBA SQL做特殊文件浏览器
1.利用JamShellBrowser for ActiveX '转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考:http://www.excelba.com/A ...
excel vba 如何将日期周几转换成文字_Excel 从精通到入门
Excel 从精通到入门引子 Excel? 这么简单的东西有学的必要吗?公式加减乘除,诶等等这个日期怎么变成 #### 了,虽然文本数字搞不清楚,但也算熟练使用 Excel 啦. WOW, Awso ...
详解xlwings包，用Python代替Excel VBA
详解xlwings包,用Python代替Excel VBA <代替VBA! 用Python轻松实现Excel编程>demo 主要内容 Python语法基础 Excel对象模型:OpenPy ...
来吧！带你玩转 Excel VBA
来吧!带你玩转 Excel VBA(含CD光盘1张)(双色)(附带近500个VBA思考练习题,Exceltip.net出品) 罗刚君杨嘉恺编著 ISBN 978-7-121-20627-6 201 ...

excel vba筛选

excel vba筛选相关推荐

最新文章

热门文章