筛选的公式有吗？或VBA 的筛选亦可

1234vba

A列为待筛选的数据，A1-A4，

C1=5，

1，第一个要求：
意思是把A列的数据包含有C1=5，提取出来；

E列为结果，
03 04 05 09 10
05 06 07 09
03 05 08 10 11


2，第二个要求：

意思是把A列的数据不包含C1=5的值提取出来；
04 06 08 11
03 04 07 08 09

附件：：
help2.rar (3.19 KB, 下载次数: 5)

2018-10-5 22:22 上传

点击文件名下载附件

yaozong

Sub yy()
  Dim arr, i&, j&, m&, n&, y&, s$
  arr = [a1].CurrentRegion.Value
  y = UBound(arr)
  s = Application.Text([c1].Value, "00")
  ReDim ar(1 To y, 1 To 1)
  ReDim br(1 To y, 1 To 1)
  For i = 1 To y
    If InStr(arr(i, 1), s) > 0 Then
      m = m + 1
      ar(m, 1) = arr(i, 1)
    Else
      n = n + 1
      br(n, 1) = arr(i, 1)
    End If
  Next
  [e1].Resize(m, 1) = ar
  [g1].Resize(n, 1) = br
End Sub

1234vba

yaozong 发表于 2018-10-6 10:09
Sub yy()
  Dim arr, i&, j&, m&, n&, y&, s$
  arr = [a1].CurrentRegion.Value

谢谢老师的帮忙