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

Posted 2020-10-04

 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

值得注意的是columns(1).Find(~)的用法，searchdirection:=xlPrevious（从下往上开始找），这里直接找到A列最后一个单元格，用.Row返回其行号，这样不论有多少条记录（只要少于999（当然也可以改））都能自动查询

效果图