Sub 查詢系統() Range("h2:k999").ClearDim a%, m% m = 2 'a = Columns(1).Find("*", , , , , , , xlPrevious).Row For i = 1 To 10If Cells(i, 1) Like [h1] ThenRange("a" & i & ":d" & i).Copy Cells(m, 8)m = m + 1End If Next End Sub 《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的查询系统-vba的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。