循環通過所有床單

Question

我試圖遍歷工作簿中的所有工作表。 我有以下代碼，它完全正常; 唯一的問題是它只有在我在第一張紙上啟動宏時才有效; 如果我在任何其他它做它只是在第一個循環后停止。

 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

我不確定這個問題是否是因為宏應該始終在第一張表上啟動或者代碼中有錯誤。 謝謝你的幫助

編輯在'做某事我實際上是創建隱藏的工作表（我活躍的那個的隱藏副本）; 可以讓計數陷入困境嗎？ 因此只能在第一張紙上工作

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