循环遍历工作簿中的每个工作表

Question

我试图循环遍历工作簿中的每个工作表，但它不工作。我认为这是ActiveWorkbook.Worksheets不能识别每个工作表，只能在Active工作表上运行。任何建议都会很棒！我相信这是一个基本的修复，但似乎无法弄清楚。谢谢！

Sub LoopThroughWorksheets() 
    Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 
     If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") And (ws.Name <> "Sheet8") And (ws.Name <> "Sheet42") Then 

      With ws 
       'code 
       'Sheets("Formula").Select 
       Range("FormulaRow").Copy 
       'Selection.Copy 
       ActiveSheet.Select 
       ActiveSheet.Range("A1").Select 
       ActiveSheet.Paste 
       Calculate 
       Range("Q1:X1").Select 
       Selection.Copy 
       Range("Q3:X3000").Select 
       Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
        SkipBlanks:=False, Transpose:=False 
       Application.CutCopyMode = False 
       Calculate 
       Selection.Copy 
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 

      End With 
     End If 
    Next ws 

End Sub 

Answer 1

对于With声明，你需要将每个你想引用对象与.使用它你打算的方式同步进行。 但是，如果我理解你的intnent，我认为最简单的解决办法是在这行代码添加：

ws.Select 

如下：

For Each ws In ActiveWorkbook.Worksheets 
    If (ws.Name <> "Sheet1") And (ws.Name <> "Sheet2") And (ws.Name <> "Sheet8") And (ws.Name <> "Sheet42") Then 

     ws.Select 

     With ws 
      'code 
      'Sheets("Formula").Select 
      Range("FormulaRow").Copy 

     ... 

，然后你也应该改变工作的事情例如从Range("FormulaRow").Copy到.Range("FormulaRow").Copy，因此您一定要正确使用With声明。

希望是有道理的......