Sub 查询系统()Range("h2:k999").ClearDim a%, m%m = 2'a = Columns(1).Find("*", , , , , , , xlPrevious).RowFor i = 1 To 10 If Cells(i, 1) Like [h1] Then Range("a" & i & ":d" & i).Copy Cells(m, 8) m = m + 1 End IfNextEnd Sub 本文共 236 字，大约阅读时间需要 1 分钟。
Sub 查询系统()Range("h2:k999").ClearDim a%, m%m = 2'a = Columns(1).Find("*", , , , , , , xlPrevious).RowFor i = 1 To 10 If Cells(i, 1) Like [h1] Then Range("a" & i & ":d" & i).Copy Cells(m, 8) m = m + 1 End IfNextEnd Sub 转载地址：http://hxnlx.baihongyu.com/