VBA－合并单元格排序

hxw0204 · 发表于 2021-12-1 18:10

上周也求合并单元格排序的朋友，自己最近办公也遇到了对有合并单元格表格进行排序的需求，剪切插入的方法还是很慢很麻烦，用拆分后再排序再合并的方法对有多列合并单元格的表不太灵。最后决定自己做一个合并单元格排序的工具放在UI，随时可用。

分享下工具：合并单元格排序。

使用方法：1.选择要进行排序的数据区域（不含标题行）
            2.输入列号字母（按哪列的内容排）
            3.选择排序方式（升序/降序）
            4.选择存放位置（支持跨工作表/跨工作簿）
说明：
   1.工具是以每个合并单元格成块复制到另一边，能保留原单元格的所有格式
   2.支持排序列中有同内容的情况
不足：
   1.（强行排序）其他列如果合并的单元格范围大于排序列合并单元格范围，排序后其他列会有空值
   2.排序列中如果有空白值，无法将它排在最下方，目前只能被上一行有值的单元格一并复制走

各位如果有解决的思路或方法，请说一说

rrxfw · 发表于 2021-12-1 20:22

不错的思路，谢谢分享

f8b1987 · 发表于 2021-12-1 22:07

本帖最后由 f8b1987 于 2021-12-1 22:17 编辑

格式刷的合并单元格，这处理不了.合并单元格的多样化，想完全处理，挺难的，例如这种

按代码排序后，某个格子就变成空的了

hxw0204 · 发表于 2021-12-2 08:44

f8b1987 发表于 2021-12-1 22:07
格式刷的合并单元格，这处理不了.合并单元格的多样化，想完全处理，挺难的，例如这种

确实没法处理，我在说明中已经提到了这种情况。不是格式刷的合并单元格不能处理，是其他列的合并范围大于排序这列的合并范围。

hxw0204 · 发表于 2021-12-2 08:50

f8b1987 发表于 2021-12-1 22:07
格式刷的合并单元格，这处理不了.合并单元格的多样化，想完全处理，挺难的，例如这种

这种超出合并范围的想在排序前做一个提示，还没思路判断

feto · 发表于 2021-12-2 10:07

本帖最后由 feto 于 2021-12-2 10:15 编辑

上面仅为思路：
增加两个辅助列记录相关信息，
用稳定排序法对【辅1】进行数组排序，
取消合并单元格回填，
根据【辅2】处理合并单元格。

lizhipei78 · 发表于 2021-12-6 19:52

感谢分享，合并单元格真的让人头痛，但是领导喜欢

		自动登录	找回密码
密码			免费注册

[原创] VBA－合并单元格排序