用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筛选数据并复制到其他范围中。