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

Question

我有一个包含 4 个工作表（Sheet1、Sheet2、...）的工作簿。表格格式相同；这些列是相同的变量，但它们在下面具有不同的值。所以理论上，它们应该能够以相同的方式排序。我尝试按 ctrl 选择所有选项卡，但此时“排序”选项变得不可用。

有谁知道是否有办法做到这一点，而无需为 4 张纸中的每一张制作不同的宏？这似乎是多余的烦人。任何帮助表示赞赏。

Answer 1

我假设您指的是菜单功能排序。它不允许用户选择不同工作表中的单元格并对它们进行排序。您可以实现 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