如何在Excel中一次单独对多个行或列进行排序？

网友投稿 519 2024-01-18

如何在Excel中一次单独对多个行或列进行排序？

在Excel中，您可以应用“排序”功能对一系列列中的仅一行或一列进行排序，但是，如果您需要一次对多个行或列进行一次单独排序以显示以下屏幕截图，则可以。有什么快速方法可以解决Excel中的此任务？

使用VBA代码一次独立地对多列进行排序

使用VBA代码一次独立地对多行进行排序

使用VBA代码一次独立地对多列进行排序

要按升序独立地对多列进行排序，请执行以下VBA代码，以帮助您：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：一次独立地对多列进行排序：

Sub SortIndividualJR() Updateby Extendoffice Dim xRg As Range Dim yRg As Range Dim ws As Worksheet Set ws = ActiveSheet On Error Resume Next Set xRg = Application.InputBox(Prompt:="Range Selection:", _ Title:="Kutools for excel", Type:=8) Application.ScreenUpdating = False For Each yRg In xRg With ws.Sort .SortFields.Clear .SortFields.Add Key:=yRg, Order:=xlAscending .SetRange ws.Range(yRg, yRg.End(xlDown)) .Header = xlNo .MatchCase = False .Apply End With Next yRg Application.ScreenUpdating = True End Sub

Copy

3。然后按 F5 键以运行此代码，并弹出一个提示框，提醒您选择要基于每一列进行排序的数据范围，请参见屏幕截图：

4。然后点击 OK，每个列均一次进行了相关排序，请参见屏幕截图：

使用VBA代码一次独立地对多行进行排序

如果要独立对多行进行排序，这也是适合您的VBA代码。

1。选择要基于每行排序的数据。

2。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3。点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：一次独立地对多行进行排序：

Sub SortIndividualR() Updateby Extendoffice Dim xRg As Range, yRg As Range If TypeName(Selection) <> "Range" Then Exit Sub Set xRg = Selection If xRg.Count = 1 Then MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel" Exit Sub End If With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Application.ScreenUpdating = False For Each yRg In xRg.Rows yRg.Sort Key1:=yRg.Cells(1, 1), _ Order1:=xlAscending, _ Header:=xlNo, _ Orientation:=xlSortRows Next yRg With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With Application.ScreenUpdating = True End Sub

Copy

4。然后按 F5 运行此代码的关键，每行中的数据已被一次排序，请参见屏幕截图：

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。