Excel数值筛选与文本筛选的不同VBA

动鱼教学

如下图 数字合同

，如果用Excel自带的筛选，
输入2728，得到的是大量包含2728文字的单元格

但是如果选择“包含”，再输入2728，
得到的就只有 这一个单元格了


我的VBA代码
If 筛选内容 <> " " And InStr(筛选内容, "/") = 0 Then ActiveSheet.Range("$A$" & 表头行 & ":$" & Split(Columns(变动格.Column).Address, "$")(2) & "$9999").AutoFilter Field:=变动格.Column, Criteria1:="=*" & 筛选内容 & "*", Operator:=xlAnd
得到的就是上面那个2728366233这一个单元格

另一个代码

If 筛选内容 <> " " And InStr(筛选内容, "/") = 0 Then ActiveSheet.Range("$A$" & 表头行 & ":$" & Split(Columns(变动格.Column).Address, "$")(2) & "$9999").AutoFilter Field:=变动格.Column, Criteria1:=筛选内容, Operator:=xlAnd


筛选出的结果就是空

请问怎么样设置代码才能实现Excel自带的那种 只要一串数字中出现某几个数字就符合的筛选（本帖开头说的那种情况）

向各路大神请教，万分感谢！

xlj310

你的文件附件呢？ 这种最好是上传附件和你的代码，方便场景还原~

ykcbf1100

求助应该带上附件，便于快速解决问题。

大灰狼1976

数字是这样的，把PO那列改成文本格式就行了，注意只改单元格格式不行的，还要每个单元格再编辑一下才会正式转换成文本

动鱼教学

大灰狼1976 发表于 2024-11-6 15:42
数字是这样的，把PO那列改成文本格式就行了，注意只改单元格格式不行的，还要每个单元格再编辑一下才会正式 ...

谢谢指点，好像就是这个的原因，另外我想问一下，如果用For 语句一个格子一个格子更改单元格格式可以吗？还是只能每个格子按一次F2才行

大灰狼1976

动鱼教学 发表于 2024-11-18 14:04
谢谢指点，好像就是这个的原因，另外我想问一下，如果用For 语句一个格子一个格子更改单元格格式可以吗？ ...

单元格格式可以区域一起设置，但每个单元格必须编辑一次。
或者直接如Cells(i, 1) = "'" & Cells(i, 1)，在内容前加上一个单引号。

动鱼教学

大灰狼1976 发表于 2024-11-18 14:16
单元格格式可以区域一起设置，但每个单元格必须编辑一次。
或者直接如Cells(i, 1) = "'" & Cells(i, 1) ...

解决了，感谢！