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

三票 · 发表于 2022-12-18 22:21

风中的我脸 · 发表于 2022-12-18 23:41

练习一下筛选方法

风中的我脸 · 发表于 2022-12-18 23:42

参考附件....

gwjkkkkk · 发表于 2022-12-19 17:55

Sub TEST()
Dim arr, i&, j&, strFind$, R&
arr = Split([V2], "~")
For i = Val(arr(0)) To Val(arr(UBound(arr)))
      strFind = strFind & i
Next i
arr = Range([B4], Cells(Rows.Count, "V").End(3))
For i = 1 To UBound(arr)
      If InStr(strFind, arr(i, UBound(arr, 2))) Then
         R = R + 1
         For j = 1 To UBound(arr, 2)
            arr(R, j) = arr(i, j)
         Next j
      End If
Next i
Columns("X:AJ").Clear
[X4].Resize(R, 13) = arr
Beep
End Sub

gwjkkkkk · 发表于 2022-12-19 17:56

参与一下，请楼主参考附件。。。

		自动登录	找回密码
密码			免费注册

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

评分

评分