excel表格镜像和排序

adminsong

步骤一：源数据的D列带有公式，将源数据的D列数值镜像（仅保留数值），（D列数值添加负号后复制整行数据，仅D列加负号，其他数值保持源数据复制），见步骤一表格，所有数据以D列单元格（D值为空则为空行）为基准复制整合。

步骤二：将源数据和镜像数据进行升序排列，删除空行（D值为空则为空行）整合
步骤三：将排序后的表格C列添加序号
步骤四：左表的最终表格是手工调整的，想实现在源数据的下方自动调整生成一个新的表格，源数据行数不确定，数值不连续，有空行，                                       原表格VBA有密码，新附件已删除密码
                                                        

shiruiqiang

冒泡排序，序号 if len（d）then k=k+1
vba加密码，没啥兴趣搞

adminsong

shiruiqiang 发表于 2024-11-17 09:19
冒泡排序，序号 if len（d）then k=k+1
vba加密码，没啥兴趣搞

代码是空的，忘记删除了，我改一下

shiruiqiang

adminsong

shiruiqiang 发表于 2024-11-17 13:29

感谢您回复，能不能发一下文件，我代码输入可能有问题，总是提示错误

shiruiqiang

基本的冒泡排序，按照流程再写

adminsong

shiruiqiang 发表于 2024-11-17 15:11
基本的冒泡排序，按照流程再写

感谢老师的代码，就是这个效果，现在镜像的数据可以正常生成，麻烦老师再给看一下把源数据一块复制过来后按照顺序放置

shiruiqiang

啥意思？写到同一张表？
如果是这样，最后改为sheets(1).cells(irow+5,1).resize(  )=brr

adminsong

shiruiqiang 发表于 2024-11-17 20:00
啥意思？写到同一张表？
如果是这样，最后改为sheets(1).cells(irow+5,1).resize(  )=brr

是，镜像后的数据和源数据合并，放在一个新的位置，源数据不动，将组合后拍的排序数据放在源数据表格下方就行