VBA цикл сквозь листы в книге

Question

У меня есть следующий код, который зацикливается на листе, но я пытаюсь зациклить этот код на всех листах в моей книге, за исключением одного листа с пометкой «Сводка».Может кто-нибудь помочь написать этот код?Я попробовал несколько подходов, но мне не повезло.Вот код, который я пытаюсь зациклить в книге:

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