各位大佬，能给看看吗？数据明明有，就是筛选不出来

dcy0405w8

Sub 筛选OLT影响用户()
Dim n%, c, ss As Variant

     c = Application.InputBox(Prompt:=" 请输入你要割接的IP地址？", Title:="提示", Default:="XX.XX.XX.XX", Left:=2, Top:=0)
'将在对话框中输入的数据保存在变量c中

    Worksheets("test1").Range("D1").AutoFilter Field:=4, Criteria1:="c", Operator:=xlFilterValues
'筛选变量为c的数据
    Worksheets.Add.Name = "影响用户清单"
'在活动簿中新建一个sheet，并命名为：影响用户清单；
Sheets("test1").Range("k:k").Copy ActiveWorkbook.Sheets("影响用户清单").Range("a1")

End Sub

dcy0405w8

我已经更新了附件中的文件，拜托您给看一下，祝工作顺利！！！ 需求如下： 1、通过界面形式输入IP地址，筛选D列IP地址（可筛选多个地址） 2、将对应IP地址筛选出的行复制粘贴到新sheet中，并命名新sheet为：影响用户清单；

dcy0405w8

我已经更新了附件中的文件，拜托您给看一下，祝工作顺利！！！
需求如下：
1、通过界面形式输入IP地址，筛选D列IP地址（可筛选多个地址）
2、将对应IP地址筛选出的行复制粘贴到新sheet中，并命名新sheet为：影响用户清单；

WANT-T

好像，变量与变量的值，有点傻傻分不清楚呢，祝工作顺利

ykcbf1100

没有附件不好说。

简七

Criteria1:="c"

D列数据有一个隐藏的制表符
把条件改成 "*" & c & "*"

半百

如4楼，c是变量，不应该加引号。

dcy0405w8

半百 发表于 2023-3-2 13:52
如4楼，c是变量，不应该加引号。

去了引号也不行

dcy0405w8

简七 发表于 2023-3-2 13:31
Criteria1:="c"

引号去了，还是不行，筛不出数据

半百

dcy0405w8 发表于 2023-3-2 14:20
去了引号也不行

那就得上附件了

dcy0405w8

半百 发表于 2023-3-2 14:32
那就得上附件了

附件已上传