想要每次筛选的内容是包含剪切板里的内容

dbh120520782 · 发表于 2024-2-23 00:12

Sheets("1").Select
Range("H2").Select
Selection.AutoFilter
Selection.Copy
ActiveSheet.Range("$A$2:$H$10002").AutoFilter Field:=8, Criteria1:="=*14*" _
, Operator:=xlAnd

这是录制的宏，想要每次筛选内容是剪切板里的内容（每次复制的内容不一样），也就是红色字体的内容需要变换为剪切板的内容，请问各位老师应该怎么改？

quqiyuan · 发表于 2024-2-23 08:19

把红色的改成 "=" & ActiveSheet.Paste
试试

山菊花 · 发表于 2024-2-23 09:27

改为这样试试：

   With Sheets("1")
      .Select
      .Range("$A$2:$H$10002").AutoFilter Field:=8, Criteria1:=.Range("H2").Value, Operator:=xlAnd
End With

dbh120520782 · 发表于 2024-2-23 21:03

quqiyuan 发表于 2024-2-23 08:19
把红色的改成 "=" & ActiveSheet.Paste
试试

这个方法试了不行，谢谢老师的解答

dbh120520782 · 发表于 2024-2-23 21:09

山菊花发表于 2024-2-23 09:27
改为这样试试：

With Sheets("1")

这个方法最接近想要的结果了，运行的结果是等于，我是想要包含。谢谢山菊花老师的解答

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

[求助] 想要每次筛选的内容是包含剪切板里的内容

评分

最新热点 /1