VBA学习笔记之单元格查询系统制作

 1 Sub 自己写查询系统()
 2 end_num = Columns(1).Find("*", searchdirection:=xlPrevious).Row ‘动态找到A列的最后一个单元格
 3 k = 1
 4 m = 1
 5 Range(Cells(3, "h"), Cells(999, "l")).Clear
 6 For Each Rng In Range("a2:" & "a" & end_num)
 7     k = k + 1
 8     If Rng Like [i1] Then
 9     m = m + 1
10     Range(Cells(k, 1), Cells(k, 5)).Copy Range(Cells(m, "h"), Cells(m, "l"))
11     End If
12     Next
13 End Sub