查询系统-vba

最新推荐文章于 2025-05-21 11:06:05 发布

weixin_33766805

最新推荐文章于 2025-05-21 11:06:05 发布

阅读量309

点赞数

CC 4.0 BY-SA版权

原文链接：https://segmentfault.com/a/1190000006184718

Sub 查询系统()
Range("h2:k999").Clear

Dim a%, m%
m = 2
'a = Columns(1).Find("*", , , , , , , xlPrevious).Row
For i = 1 To 10
    If Cells(i, 1) Like [h1] Then
        Range("a" & i & ":d" & i).Copy Cells(m, 8)
        m = m + 1
    End If
Next
End Sub