可以通过以下代码来使用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筛选数据并复制到其他范围中。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读:利用SQL current_date进行数据筛选的技巧