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
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
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用
。你还可以使用@
来通知其他用户。