ExcelVBA编程典型实例——设置自动筛选器.docxVIP

ExcelVBA编程典型实例——设置自动筛选器

使用说明：

此代码首先检查是否已开启筛选。然后，通过`SpecialCells(xlCellTypeVisible)`方法获取筛选后可见的单元格区域。需要注意的是，`rngData.Offset(1).Resize(rngData.Rows.Count-1)`的作用是排除表头行。由于当所有数据行都被筛选掉时，`SpecialCells`会返回错误，因此使用`OnErrorResumeNext`进行错误处理。获取到可见区域`rngVisible`后，我们就可以对其进行各种后续操作，如复制到其他位置、汇总计算等。

三、注意事项与进阶技巧

1.数据区域的准确定位：使用`CurrentRegion`是一种便捷的方法，但它依赖于数据区域的连续性（即中间没有完全空白的行或列）。如果数据区域结构复杂，可能需要更精确的方式定义，例如`Range(A1:DLastRow)`，其中`LastRow`可以通过`Cells(Rows.Count,A).End(xlUp).Row`等方式获取。

2.筛选字段的动态指定：在实际应用中，筛选的列号或列标题可能不是固定的。可以通过查找表头行中特定标题所在的列号，来动态确定`Field`参数的值。

3.处理合并单元格：自动筛选区域的表头行应避免使用合并单元格，这可能导致筛选功能异常。

4.