如何按两个不同的列对 Excel 工作表进行排序

os23

让我们假设一个图表在前两列 A 和 B 中只有这样的值

在此处输入图片说明

首先,我想按 A 列的字母顺序对图表进行排序,即顶部的 X,然后是 Y 和 Z。

第二个动作应该是考虑到A列对B列进行排序,即保留X的块并将它们的数字排序在B列中。与Y和Z的块相同。

第一步使用以下代码可以正常工作:

Sub sort()
Dim SortClmn As String
Dim Area As String
Area= "A1:B10"
SortClmn = "A"
ActiveSheet.Range(Area).Sort _
Key1:=Range(SortClmn & "1"), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

我需要如何更改此代码以应用第二步?

提前致谢

里卡兹·波林斯

最简单的方法是对B列进行排序,然后对A列进行排序,这样就可以达到你想要的效果。使用您使用的相同方法,但先对 b 列进行排序,然后对 a 列进行排序。

如果我修改您的代码,它将如下所示

Sub sort()
Dim SortClmn As String
Dim Area As String
Area = "A1:B10"
SortClmn = "B"
ActiveSheet.Range(Area).sort _
Key1:=Range(SortClmn & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
Area = "A1:B10"
SortClmn = "A"
ActiveSheet.Range(Area).sort _
Key1:=Range(SortClmn & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

Excel VBA:按字母数字顺序对工作表进行排序

使用Excel VBA按列值对工作表数据进行排序

如何使用openpyxl在工作簿中对Excel工作表/标签进行排序

使用VBA匹配excel中两个不同工作表的两列的值

在多个Excel工作表上对动态范围进行排序

如何使用Excel表格对Excel工作表中的行进行排序并打印到文件?

如何在两个不同的Excel工作表中比较两个单元格区域?

从两个不同的函数获取数据框并写入两个不同的Excel工作表

无法按两列或更多列对Excel数据透视表进行排序

如何使用Excel 2007和Excel 2010打印两个具有不同比例选项的不同工作表?

如何将两个表按不同的列分组?

如何比较两个不同的Excel工作簿中的列

Excel VBA在不同的工作簿中选择范围以进行排序

无法使用C#对excel工作表进行排序

如何从两个不同的表中按两个不同的类别有条件地排序

如何从两个具有相同格式的Excel工作表中找出不同的单元格

Excel:如何将两个工作表中的两列与条件匹配?

Excel:通过在两个不同的列中的更改进行小计

Excel 365:如何从一张工作表中提取数据并使用重复项自动对其进行排序

使用 Excel 2016 按第三个类别列表对两个费用列表进行排序和排序

通过动态确定关键列对 Excel 工作表进行排序

在 Excel 中,如何在两个单独的工作表中匹配两个不同的值后有条件地设置单元格格式?

比较两个不同 Excel 表中的两列

两个看似相同的数据库如何返回按不同列排序的结果?

如何按时间顺序对 Excel 数据透视表进行排序

SQL如何按包含相同数据的两个不同列进行分组

Scala - 如何按不同顺序按两个属性对元组进行排序?

比较excel中不同行的两个表

如何使用vba从word引用excel文件中的两个不同工作表?