对包含合并单元格的数据进行排序（Microsoft Excel）
Excel长期以来一直具有将相邻单元合并为更大的单个单元的功能。许多工作表设计人员已使用此功能为工作表赋予抛光的专业外观。
但是，使用合并的单元格存在一个巨大的缺点：您不能对包含它们的表进行排序。如果您尝试这样做，则会收到一条消息，指出：“该操作要求合并的单元格具有相同的大小。”
解决此问题的最明显方法是不使用合并的单元格。
例如，假设您有一个工作表，其中每个“记录”实际上都由两行组成，并且工作表的第一列包含合并的单元格。 （每个两行记录都从跨越两行的两个合并单元格开始。此合并单元格包含一个项目名称。）
最好不要合并第一列中的单元格，但是您可能想知道如何使记录在工作表中正确排序。如何在排序期间将行对保持在一起。您可以通过在第一行中输入项目名称，在第二行中添加项目名称并附加“ zz”来实现。例如，如果第一行包含“ Wilburn Chemicalzz”（项目名称），则第二行可以包含“ Wilburn Chemicalzz”。格式化第二行的单元格，使其名称不显示（例如白色背景上的白色文本），然后您就可以根据需要成功进行排序。
另一个解决方案是使用宏来处理您的工作表并完成排序。假设合并的单元格在A列中（如前所述），则可以使用以下宏按A列的内容对数据进行排序：
Sub SortList()
Dim sAddStart As String Dim rng As Range Dim rng2 As Range Dim lRows As Long
Application.ScreenUpdating = False sAddStart = Selection.Address Set rng = Range("A1").CurrentRegion
With rng lRows = .Rows.Count - 1 .Cells(1).EntireColumn.Insert .Cells(1).Offset(0, -1) = "Temp"
.Cells(1).Offset(1, -1).FormulaR1C1 = _ "=+RC[1]&"" ""&ROW()"
.Cells(1).Offset(2, -1).FormulaR1C1 = _ "=+R[-1]C[1]&"" ""&ROW()"
Set rng2 = .Cells(1).Offset(1, -1).Resize(lRows, 1)
Range(.Cells(2, 0), .Cells(3, 0)).AutoFill _ Destination:=rng2 rng2.Copy rng2.PasteSpecial Paste:=xlValues
.Columns(1).MergeCells = False
.CurrentRegion.Sort _ Key1:=Range("A2"), Order1:=xlAscending, _ Header:=xlYes, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom
rng2.EntireColumn.Delete
With Range(.Cells(2, 1), .Cells(3, 1))
.Merge .Copy .Cells(3, 1).Resize(lRows - 2, 1). _ PasteSpecial Paste:=xlFormats End With End With Application.CutCopyMode = False Range(sAddStart).Select Application.ScreenUpdating = True End Sub
宏插入一个临时列，从列表的第一列中读取项目，追加行号，将其复制到该临时列下，对单元格进行合并，对该列表进行排序，删除该临时列，然后重新合并A列。 （仅是对带有合并单元格的表进行排序就需要大量工作！）
此宏非常特定于您的数据的特定布局，因此需要对其进行测试，并可能需要对其进行修改，以确保它可以与以任何其他方式格式化的数据一起使用。
注意：
如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。
_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。
本技巧（761）适用于Office 365中的Microsoft Excel 2007、2010、2013、2016、2019和Excel。您可以在此处找到适用于Excel的较旧菜单界面的本技巧的版本：