可以通過以下代碼來使用UsedRange篩選數據：
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim rng As Range
Set rng = ws.UsedRange
rng.AutoFilter Field:=1, Criteria1:="Criteria"
這里Field表示篩選的列索引，Criteria1表示篩選的條件。
Dim filteredRange As Range
Set filteredRange = rng.SpecialCells(xlCellTypeVisible)
filteredRange.Copy Destination:=ws.Range("A1")
這里將篩選后的可見單元格復制到工作表的A1單元格。
通過以上代碼，就可以使用UsedRange篩選數據并復制到其他范圍中。
