对除一张以外的所有工作表运行的 Excel 宏

Question

下面的 Excel 宏在几个预先确定的工作表上运行并设置它们的格式。我正在寻找对其进行修改以使其格式化工作簿中的所有工作表，但一张除外。

所有工作表，无论名称如何，都应格式化，查找工作表除外。

下面列出的代码被缩短为只显示一张纸，它对其他 10 张纸做完全相同的事情，但我不想把所有的都放在这里。谢谢。

Sub Formatting()


Application.ScreenUpdating = False


Sheets("Products").Select
Columns("F:W").Select
Selection.EntireColumn.Hidden = True
Range("X1").Select
Selection = "Product #"
Range("X1").Font.Bold = True


With Sheets("Products")
    .Range("X2:X" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(ISNA(VLOOKUP(S2,Lookup!C:D,2,FALSE)),"""",VLOOKUP(S2,Lookup!C:D,2,FALSE))"
    .Range("Z2:Z" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(ISNA(VLOOKUP(S2,Lookup!C:D,2,FALSE)),"""",VLOOKUP(S2,Lookup!C:D,2,FALSE))"
    .Range("AC2:AC" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(Z2="""","""",E2)"
End With


Range("A1:X50").Select
ActiveWorkbook.Worksheets("Products").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Products").Sort.SortFields.Add _
    Key:=Range("X2:X50"), SortOn:=xlSortOnValues, Order:=xlDescending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Products").Sort
    .SetRange Range("A1:X50")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Columns("X:X").ColumnWidth = 9

Application.ScreenUpdating = True

End Sub

Answer 1

遍历工作表是关键：

Option Explicit
Sub Formatting()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If Not ws.Name = "LookUp" Then 'the sheet with the lookup name
            'your formatting code
        End If
    Next ws    

End Sub