查询系统-vba
Sub 查詢系統(tǒng)()
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
《新程序員》：云原生和全面數(shù)字化實(shí)踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀
總結(jié)
- 上一篇： vmware虚拟机移植带来的问题
- 下一篇： 自定义获取html元素对象的7种方法。