改进版查询系统VBA

nnsea

Sub 查询系统123()
ends = Worksheets("登记表").Columns(6).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Worksheets("明细查找").Rows("8:12000").Select
Selection.Delete Shift:=xlUp '清除之前所有的筛选结果
Range("C7:G7").Select
    Selection.ClearContents
    Range("C7").Select
For Each Rng In Worksheets("登记表").Range("f7:f" & ends)
    m = m + 1
    If Rng Like Worksheets("明细查找").Range("g4") Then  '如果条件成立，那么
        k = k + 1
        Worksheets("登记表").Range("c" & m + 6 & ":g" & m + 6).Copy Worksheets("明细查找").Range("c" & k + 6) '将记录复制到另一个区域
    End If
Next
End Sub