VBA循环遍历工作簿中的工作表

Question

我有以下代码在工作表中循环，但我试图在我的工作簿中的所有工作表中循环此代码，除了一张标有＆＃34;摘要＆＃34;的工作表。有人可以帮助编写这段代码吗？我尝试了一些方法，但没有运气。这是我尝试在整个工作簿中循环的代码：

For i = 2 To LR

    If Abs(Range("J" & i)) > 0 Then
        Range("A" & i & ":J" & i).Copy
        Sheets("Sheet1").Range("A" & k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

    k = k + 1

    Else

    End If

Next i

Answer 1

请尝试这样的事情

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Summary" Then
    'Your code here
    End If
Next