查询系统VBA

nnsea

'
Sub 查询系统()
ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Range("g3:l999").Clear '清除之前所有的筛选结果
For Each Rng In Range("a2:a" & ends)
    m = m + 1
    If Rng Like Range("h1") Then  '如果条件成立，那么
        k = k + 1
        Range("a" & m + 1 & ":e" & m + 1).Copy Range("g" & k + 2) '将记录复制到另一个区域
    End If
Next
End Sub