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