Excel -按其他列的值筛选列
提问于 2016-10-31 00:38:42
找不到这个简单的筛选选项:/我需要的是按列C值过滤列A，例如：
标头/头
戴尔·莫布
Dell = Web
戴尔·德斯
Cell \ Web
单元Des
Gell = Mob
如果我要按B列的值" Mob“过滤A列，我想得到：(B列中包含Mob的所有A列值)
标头/头
戴尔·莫布
Dell = Web
戴尔·德斯
Gell = Mob
非常感谢你的帮助！
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-10-31 09:57:09
使用VBA：
- 将筛选单元格的名称定义为filterBy (包含希望在col中搜索的文本的单元格)
- 将A列标题单元格的名称定义为colA
- 将此粘贴到工作表的VBA代码中 私有子Worksheet_Change(ByVal Target As Range)‘这将检查FilterBy是否被更改，如果(非相交(Target，FilterBy)为空)，然后调用DoTheFilterThing End Sub () Dim row_Offset作为字符串ReDim筛选器(0至0) row_Offset =1’扫描B列并创建允许的A值列表‘注意:这将填充列表，直到找到A列中的空值，而colA.Offset(row_Offset，<> "“如果colA.Offset( row_Offset，1) = FilterBy，那么过滤器(UBound(过滤器))= colA.Offset( row_Offset，0) ReDim保护滤波器(0 To UBound(过滤器)+ 1)结束，如果row_Offset=row_Offset+1循环‘现在应用滤波器范围(colA，colA.Offset(row_Offset - 1，1).AutoFilter 1，filters，xlFilterValues，True End Sub )
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/40338830
复制
腾讯云开发者
