Sorting 一次对工作簿中的所有工作表进行排序

我有一份包含4张工作表的工作簿（表1、表2等）。表格格式相同；这些列是相同的变量，但下面的值不同。因此，理论上，它们应该能够以相同的方式进行排序。我尝试按ctrl键选择所有选项卡，但此时排序选项不可用

---

有人知道有没有一种方法可以做到这一点，而不必为4张图纸中的每一张制作不同的宏？这似乎令人恼火地多余。非常感谢您的帮助。

我想您指的是菜单功能排序。 它不允许用户在不同的工作表中选择单元格并对其进行排序。 可以实现For each循环，以便在同一宏中对每个工作表中的数据进行排序。 类似于下面的内容

Sub SortingAllWorksheet()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Sheets
    'sort columns A to C based on data in column C
    wsh.Columns("A:C").Sort key1:=Range("C2"), order1:=xlAscending, Header:=xlYes
Next
End Sub

---

您可以录制一个宏，然后编辑该代码以在工作表中循环，也许？您只需要一位代码，而不是每一页一位。