vba excel 筛选
时间: 2023-07-28 11:09:25 浏览: 266
VBA Excel中的筛选功能可以通过使用AutoFilter方法来实现。引用\[2\]和引用\[3\]中的代码示例展示了如何使用AutoFilter方法进行筛选。
在VBA中,可以使用以下代码来开启自动筛选并筛选指定的数据:
```
If Sheet1.AutoFilterMode = False Then '检查是否开启自动筛选
lastrow = Sheet1.Range("A1040000").End(xlUp).Row
Range("A:DZ").AutoFilter '没有开启的话则开启自动筛选
Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
Else
Sheet1.AutoFilterMode = False
lastrow = Sheet1.Range("A1040000").End(xlUp).Row
Range("A:DZ").AutoFilter '没有开启的话则开启自动筛选
Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
End If
```
这段代码首先检查是否已经开启了自动筛选。如果没有开启,则使用`Range("A:DZ").AutoFilter`方法开启自动筛选。然后,使用`Sheet1.Range("CG:CG").AutoFilter`方法指定要筛选的列和筛选条件。在这个例子中,我们筛选了第85列中值为"处方"的数据。
如果已经开启了自动筛选,则使用`Sheet1.AutoFilterMode = False`来关闭自动筛选,然后再次开启并进行筛选。
请注意,这只是一个示例代码,具体的筛选条件和列数需要根据实际情况进行调整。
#### 引用[.reference_title]
- *1* [VBA横向筛选](https://blog.csdn.net/qq_38356680/article/details/128435352)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* *3* [陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能](https://blog.csdn.net/weixin_44681501/article/details/125083664)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]
阅读全文