|
本帖最后由 hasyh2008 于 2022-6-10 14:26 编辑
直接赋值最好:
Sub 按问题查询()
ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Sheet2.Range("A5:E1048576").Clear '清除之前所有的筛选结果
For Each Rng In Sheet1.Range("C2:C" & ends)
m = m + 1
If Rng Like Sheet2.Range("B3") Then '如果条件成立,那么
k = k + 1
Sheet2.Range("a" & k + 4).resize(1,5).value=Sheet1.Range("a" & m + 1).resize(1,5).value
End If
Next
End Sub |
|