Excel宏VBA搜索某些字符串

Question

嘿专家在那里，

我需要你的帮助。我有一个excel工作簿，从主列表开始，然后列出A，列表B，依此类推。 主列表包含所有信息，而列表A，B等是过滤后的Excel文件（从主列表中过滤的数据）。

现在，我想做的如下： 查找每个列表的第I列是否有＆＃34; ABC＆＃34;例如，如果没有，则弹出msg框。如果是，请继续搜索其他字符串。

问题：列表A不以第1项开头（因为它是过滤版本）。

有什么办法吗？我希望可以在Macro VBA中编写它。

请帮忙，给我一些想法或给我任何示例链接以供参考。

感谢您的帮助。

Answer 1

我对你的问题感到困惑。

1. 搜索全文＆＃34; ABC＆＃34;在第一栏。

   Dim curCell as range
   Dim curSheet as worksheet
   For curSheet in WorkBook.Sheets
       For curCell in RANGE("I:I")
           If curCell.Text="ABC" Then
               MsgBox "hooo!"
           Endif
       Next
   Next    
   

2. 搜索子字符串＆＃34; ABC＆＃34;在第I栏中的任何一个单元格。

   Dim curCell as range
   Dim curSheet as worksheet
   For curSheet in WorkBook.Sheets
       For curCell in RANGE("I:I")
           If InStr(curCell.Text,"ABC")>0 Then
               MsgBox "hooo!"
           Endif
       Next
   Next