错误原因分析 #

兄弟，你碰到的这个报错「This operation requires a merged cell of the same size」其实很好懂：你的数据区域里存在大小不一致的合并单元格，Excel排序对合并单元格有硬性要求——要么整个区域完全没有合并单元格，要么同一列的合并单元格必须是相同行数/列数的，不然就会触发这个提示。另外看你的代码还有个逻辑小问题：你选中了Q列范围来排序，但排序关键字却写的是A列，这不对啊，你要按Q列日期排序，关键字得指向Q列，而且排序得针对整个数据行区域，不能只选单独一列，不然数据会直接乱套。

解决方案 #

给你两种方案，根据你的需求选：

方案1：取消合并单元格（推荐，后续少踩坑）

合并单元格在数据处理里本来就是麻烦制造者，能取消就取消。先把合并单元格拆开，把原来合并的内容填充到每个单元格里，再排序：

' 第一步：取消数据区域的合并单元格并填充内容
Sheet4.Range("A5:Q" & lastrow).UnMerge
Dim cell As Range
For Each cell In Sheet4.Range("A5:Q" & lastrow)
    ' 把上方单元格的内容填充到空单元格里
    If cell.Value = "" Then
        cell.Value = cell.Offset(-1, 0).Value
    End If
Next cell

' 第二步：对整个数据区域按Q列升序排序
Sheet4.Range("A5:Q" & lastrow).Sort Key1:=Sheet4.Range("Q5"), Order1:=xlAscending, Header:=xlNo

方案2：保留合并单元格（需确保合并单元格大小一致）

如果你必须保留合并单元格，那先检查A-Q列里的合并单元格，确保同一列的合并单元格都是相同行数的（比如都是合并2行，或者都是合并1行），然后修改排序代码，针对整个数据区域，并且正确指定排序关键字：

' 直接对整个数据区域按Q列升序排序
Sheet4.Range("A5:Q" & lastrow).Sort Key1:=Sheet4.Range("Q5"), Order1:=xlAscending, Header:=xlNo

这里要注意：一定要用Sheet4.Range("Q5")而不是直接Range("Q5")，避免当前激活其他工作表时出错。

额外提醒 #

• 排序时必须选中完整的数据行区域，不能只选单列，不然会导致行数据错位，变成“张冠李戴”的情况。
• 能不用合并单元格就不用，后续做筛选、公式计算、VBA处理都会省心很多。

内容的提问来源于stack exchange，提问作者user9663005