请看看这里的数据不能正常排序是什么原因

gzminge

想对黄色区域的数据进行降序排序，有办法可以让每列最大的数值从上往下进行排吗？



新建 XLSX 工作表.rar (109.48 KB, 下载次数: 6)

2024-8-8 22:14 上传

点击文件名下载附件

沈默00

1. Sub smt()
   
2.     With Sheet1
   
3.         ar = .[a1].CurrentRegion
   
4.         For j = 1 To UBound(ar, 2)
   
5.             .Cells(1, j).Resize(UBound(ar)).Sort .Cells(1, j), xlDescending
   
6.         Next
   
7.     End With
   
8. End Sub

复制代码

沈默00

正常的数据是没问题的，，有许多空格和错误值

沈默00

看表2.........

gzminge

沈默00 发表于 2024-8-9 08:42
看表2.........

谢谢老师，今晚下班回家再试用。

gzminge

沈默00 发表于 2024-8-9 08:36

有办法把错误的格子和空白的格子搞到最下面去吗？