合并单元格降序排序 求助

976190982

duquancai 发表于 2020-6-20 19:19
我的意思，没啥难度！呵呵

谢谢你的帮助   正因为有你们无私的帮助   我才会有更多的提升    谢谢

976190982

sheffield 发表于 2020-6-21 11:50
用了ExcelSpice，只需3行代码：
Sub Sort1()
    Dim sp As New ExcelSpice

我的大哥哎   腻害了   这是什么原理     佩服

976190982

chxw68 发表于 2020-6-21 10:50
详见附件。

谢谢帮助   太给力了  这个困扰了我很就的事情   终于解决了  谢谢

976190982

larer 发表于 2020-6-20 22:04
原始数据不要这样设计,这是报表形式,在报表中进行排序,无疑是自讨苦吃,给自己找麻烦.

是的      这个是最终报表    要做数据透视表   尤其一天的工作量很大   莫法    技术不够又想偷懒   就发帖问坛子里的大神们了

976190982

chxw68 发表于 2020-6-21 10:50
详见附件。

老师    我一天要处理这样的数据很多中   都不是一个表的      但是类型都是一样的     能否帮我写一个可以自由选择依据排序的    可以自由选择排序列的

duquancai

一行代码就够了！呵呵

976190982

一把小刀闯天下 发表于 2020-6-20 15:56
Option Explicit

Sub test()

老师     我一天要处理这样的数据  很多    不知道  能否帮我写一个  可以自由选择排序区域   跟排序依据列的  可以自由选择的   就是弹出一个输入框自由选择的那种   我准备修改您的代码  奈何功底不够   压根看不懂

976190982

duquancai 发表于 2020-6-21 19:21
一行代码就够了！呵呵

老师    在下实属佩服的   我一天要处理这样的数据很多表     我想实现可以自由选择  排序区域   跟排序依据的  如果  老师们不愿意麻烦   哪我就只能都搞成一个这样模板的了    谢谢老师们  帮了我大忙了

976190982

duquancai 发表于 2020-6-21 19:21
一行代码就够了！呵呵

谢谢老师    我想要一个自由选择排序区域跟  排序依据列的      工作量太大了   全部弄成这样一个模板   有不现实

duquancai

976190982 发表于 2020-6-21 19:34
谢谢老师    我想要一个自由选择排序区域跟  排序依据列的      工作量太大了   全部弄成这样一个模板    ...

得靠自己，靠别人那是没完没了的沟通！