在 Excel 中，我们可以快速轻松地根据指定列对单个工作表中的数据进行排序，但您是否尝试过跨多个工作表对数据进行排序？逐个操作不仅繁琐，还相当耗时。本文将为您介绍一种简便高效的解决方法。

要基于某一列对工作簿中所有工作表的数据进行排序，以下 VBA 代码可助您轻松实现。

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入 > 模块，然后将以下代码粘贴到模块窗口中。

VBA 代码：一次性对多个工作表中的数据进行排序：

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. 然后按 F5 键运行此代码，所有格式相同的工作表将立即根据各自 E 列数据按降序完成排序。

注意：在上述代码中，A:F 是您要排序的数据区域，E 是您要依据其进行排序的列字母。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。

• 自定义公式：生成量身定制的公式，助您优化工作流程！

• VBA 编码：轻松编写并运行 VBA 代码。

• 公式解析：轻松掌握复杂公式，一目了然！

• 文本翻译：轻松打破电子表格中的语言障碍！

借助 AI 驱动的工具提升您的 Excel 能力。立即下载，体验前所未有的高效！