用UsedRange筛选数据的技巧

可以通过以下代码来使用UsedRange筛选数据：

1. 首先，使用UsedRange属性获取当前工作表的已使用范围：

Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") Dim rng As Range Set rng = ws.UsedRange 

2. 然后，使用AutoFilter方法筛选数据：

rng.AutoFilter Field:=1, Criteria1:="Criteria" 

这里Field表示筛选的列索引，Criteria1表示筛选的条件。

3. 最后，可以将筛选后的数据复制到另一个范围：

Dim filteredRange As Range Set filteredRange = rng.SpecialCells(xlCellTypeVisible) filteredRange.Copy Destination:=ws.Range("A1") 

这里将筛选后的可见单元格复制到工作表的A1单元格。

通过以上代码，就可以使用UsedRange筛选数据并复制到其他范围中。