查询系统-vba

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,

业界 2016年08月05日