Excel：取回选定的行

Excel：取回选定的行

vba
Sub FilterRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim criteria As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '设置工作表
    Set rng = ws.Range("A1:C10") '设置数据区域
    Set criteria = ws.Range("E1") '设置筛选条件
    
    rng.AutoFilter Field:=1, Criteria1:=criteria.Value '根据条件筛选
    
    '获取筛选结果
    Dim filteredRange As Range
    Set filteredRange = rng.SpecialCells(xlCellTypeVisible)
    
    '复制筛选结果到新的工作表
    Dim newWs As Worksheet
    Set newWs = ThisWorkbook.Worksheets.Add
    filteredRange.Copy newWs.Range("A1")
    
    '取消筛选
    ws.AutoFilterMode = False
    
    MsgBox "已取回选定的行。"
End Sub