求助，利用VBA多条件及包含文字筛选。

aoxue651 · 发表于 2020-2-21 00:45

通过VBA筛选出【类型为“数学”，日期为“2017年1月至2018年1月”，金额为“250-350”，且单元格中包含“你”】的行，并在sheet2中显示。

aoxue651 · 发表于 2020-2-21 07:19

感觉是不是"高级筛选"就能解决了。上班了试下

aoxue651 · 发表于 2020-2-21 07:30

如果只有两列需要模糊搜索，还可以用高级筛选，如果需要模糊筛选的列很多的话，有啥简便的方法吗？

liulang0808 · 发表于 2020-2-21 08:37

aoxue651 发表于 2020-2-21 07:30
如果只有两列需要模糊搜索，还可以用高级筛选，如果需要模糊筛选的列很多的话，有啥简便的方法吗？

楼主先录制一段筛选的宏，对比下具体条件变化内容，然后根据实际修改就可以了

aoxue651 · 发表于 2020-2-21 08:47

liulang0808 发表于 2020-2-21 08:37
楼主先录制一段筛选的宏，对比下具体条件变化内容，然后根据实际修改就可以了

全文10列，几百行，含有的关键词并不是在同一列。需要把含有关键字的行都提取出来。

能帮忙提供下思路吗？谢谢

liulang0808 · 发表于 2020-2-21 09:09

aoxue651 发表于 2020-2-21 08:47
全文10列，几百行，含有的关键词并不是在同一列。需要把含有关键字的行都提取出来。

能帮忙提供下思路 ...

还是那句话，楼主先录制一段筛选的宏，对比看看各个列的差别

3190496160 · 发表于 2020-2-21 10:08

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) = "数学" And Format(ar(i, 2), "yyyy/m") >= "2017/1" And Format(ar(i, 2), "yyyy/m") <= "2018/1" And ar(i, 3) >= 250 And ar(i, 3) <= 350 And (InStr(ar(i, 4), "你") > 0 Or InStr(ar(i, 5), "你") > 0) Then
      s = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2)) & "|" & Trim(ar(i, 3)) & "|" & Trim(ar(i, 4)) & "|" & Trim(ar(i, 5))
      t = d(s)
      If t = "" Then
         k = k + 1
         d(s) = k
         t = k
         For j = 1 To UBound(ar, 2)
            br(k, j) = ar(i, j)
         Next j
      End If
End If
Next i
With Sheet2
.UsedRange.Offset(1) = Empty
.[a2].Resize(k, UBound(br, 2)) = br
End With
End Sub

3190496160 · 发表于 2020-2-21 10:09

工作簿1.rar (22.03 KB, 下载次数: 34)

3190496160 · 发表于 2020-2-21 10:10

一个数组+字典的问题，首先数组多条件判断获取符合条件的数据，同时，字典去重复即可得到结果

zzj198237 · 发表于 2020-2-21 10:30

我用的SQL 办法如果你的系统是win7 告诉我，我修改一下

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

[求助] 求助，利用VBA多条件及包含文字筛选。

最新热点 /1