将V3：V符合V2范围,对应的B4：N的数提取出来

sanpiao

将V3：V符合V2范围,对应的B4：N的数提取出来

cutecpu

Sub demo()
   s = Split([v2], "~")
   a = Range([b4], [v4].End(4))
   For i = 1 To UBound(a)
      If a(i, 21) >= s(0) * 1 And a(i, 21) <= s(1) * 1 Then
         r = r + 1
         For k = 1 To 13
            a(r, k) = a(i, k)
         Next
      End If
   Next
   [x4:aj5000].ClearContents
   [x4].Resize(r, 13) = a
End Sub

okjok

1. Sub demoII()
   
2.     [x4:aj1000].Clear
   
3.     Range("B3:v3").AutoFilter Field:=21, Criteria1:=Array("4", "5", "6"), Operator:=xlFilterValues
   
4.     Range("b4:n103").SpecialCells(xlCellTypeVisible).Copy [x4]
   
5.     Range("B3:v3").AutoFilter Field:=21
   
6. End Sub
   

复制代码