VBA改写数组并且不用find

laoau138

VBA改写数组并且不用find

lmze2000

1. Sub Cx()
   
2.     Dim Rng As Range, Ls, Js
   
3.     Ls = Cells(Rows.Count, 1).End(3).Row
   
4.     [g3].Resize(1000, 5).Clear
   
5.     For Each Rng In [a1].Resize(Ls)
   
6.         If Rng Like [h1] Then
   
7.             Js = Js + 1
   
8.             Rng.Resize(, 5).Copy [g2].Offset(Js)
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码

看一下是这样的效果吗

laoau138

lmze2000 发表于 2017-1-30 16:21
看一下是这样的效果吗

高手了