用UsedRange筛选数据的技巧

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

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

Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1")Dim rng As RangeSet rng = ws.UsedRange

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

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

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

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

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

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

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