遍历所有表单

我试图循环遍历工作簿中的所有工作表。 我有下面的代码，它工作得很好， 唯一的问题是它只有在第一张纸上启动macros时才起作用; 如果我在其他任何情况下执行，则只会在第一个循环之后停止。

WS_Count = ActiveWorkbook.Worksheets.Count For i = 1 To WS_Count Dim ws1 As Worksheet Set ws1 = ThisWorkbook.ActiveSheet 'if sheet contains evdre Set c = ws1.Cells.Find("blabla") If Not c Is Nothing Then 'do things End If Next i 

我不确定这个问题是由于macros应该始终在第一张纸上运行还是在代码中出现错误。 谢谢你的帮助

编辑在做的部分我实际上是创造隐藏的床单（我活跃在一个隐藏的副本）; 可以让这个计数搞砸了吗？ 因此只能在第一张纸上工作

Answer 1

  Dim ws As Worksheet, c as range for each ws in ThisWorkbook.WorkSheets Set c = ws.Cells.Find("blabla") If Not c Is Nothing Then 'do things End If