查询系统-vba
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
关键字:vba
版权声明
本文来自互联网用户投稿,文章观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符,请点击 举报 进行投诉反馈!