按金额大小排序（降序）

zllyyz

请教各位老师，使用那种方法较为方便（SQL?）能对下图信息按金额大小进行降序排列？

无关岁月

按金额大小排序（降序）.7z (15.75 KB, 下载次数: 7)

2024-3-5 22:28 上传

点击文件名下载附件

fzxba

1. Sub test0()
   
2.   With Range("A9").CurrentRegion
   
3.     Intersect(.Offset(0), .Offset(2)).Sort .Item(5), xlDescending, , , , , , xlNo
   
4.   End With
   
5. End Sub

复制代码

zllyyz

无关岁月 发表于 2024-3-5 22:29

小小的排序 在VBA里 要理解起来 真的不容易

zllyyz

无关岁月 发表于 2024-3-5 22:29

老师 再次请教下 我用在别的表上 为什么会 多出1行(“第二行标题”)？需要改代码的哪里呢？谢谢 详见下图：

无关岁月

zllyyz 发表于 2024-3-6 11:00
老师 再次请教下 我用在别的表上 为什么会 多出1行(“第二行标题”)？需要改代码的哪里呢？谢谢 详见下图 ...

上个附件呗，图片也看不出问题

zllyyz

无关岁月 发表于 2024-3-6 11:05
上个附件呗，图片也看不出问题

我把整表移出来 重新测试了下 就没此问题 应该是标题不小心关联了其他VBA语句
后面得再详细测试下 有问题的话再打扰老师，“花花”刷新了再奉上

zllyyz

fzxba 发表于 2024-3-6 08:08

"运行时 错误1004 诺要执行此操作 合并单元格大小须相同"
大大 再看看？

zllyyz

无关岁月 发表于 2024-3-5 22:29

大大 是否能再给个 升序的代码？或者针对负数金额的降序排列（负数金额 从大到小）？

zllyyz

无关岁月 发表于 2024-3-6 11:05
上个附件呗，图片也看不出问题

大大 昨天细测之后：问题已经找到了（第8行）  请问如何更改呢？