VBA执行降序提取内容慢，有其它快速的方法否？

天地一相

感谢帮助！详见截图附件。
PS：可能的思路，逐个找到符合条件的行，剪切插入至第5行位置。不知道这样会不会比用排序方式更快。
PS:估计不行，测试剪切插入，速度很慢。看来此路不通。还是维持目前的降序汇集办法。

Jday1218

Sub SortByColumnE()
    Dim lastRow As Long
    Dim sortRange As Range
   
    ' 获取 E 列数据的最后一行
    lastRow = Range("E" & Rows.Count).End(xlUp).Row
   
    ' 将 E 列有内容的行向上移动，保持其它列不变
    Set sortRange = Range("A5:F" & lastRow)
    sortRange.Sort Key1:=Range("E5:E" & lastRow), Order1:=xlDescending, Header:=xlNo
   
End Sub
没有具体理解你的意思，你看看这个对不对，在保留其他列数据的前提下，把E列的数据前移

天地一相

Jday1218 发表于 2023-2-15 00:55
Sub SortByColumnE()
    Dim lastRow As Long
    Dim sortRange As Range

谢谢你。测试结果：速度太慢，比我直接用表格降序获得结果慢一半。

LIUZHU

附件中的数据不是原始数据吧？这个不能根据E列降序排序吗？一定要用到代码解决？建议把原始数据放上来。

天地一相

LIUZHU 发表于 2023-2-15 09:39
附件中的数据不是原始数据吧？这个不能根据E列降序排序吗？一定要用到代码解决？建议把原始数据放上来。

谢谢，能呀，看主贴我说了的。就是数据大了慢，执行需要80秒左右。传不了，35M，就想看看，能不能采用查找并剪切上去的方法提速，若这种方法也没法提速，我就还是使用目前的方法。

LIUZHU

天地一相 发表于 2023-2-15 10:16
谢谢，能呀，看主贴我说了的。就是数据大了慢，执行需要80秒左右。传不了，35M，就想看看，能不能采用查 ...

35M？那得多少行数据？

LIUZHU

天地一相 发表于 2023-2-15 10:16
谢谢，能呀，看主贴我说了的。就是数据大了慢，执行需要80秒左右。传不了，35M，就想看看，能不能采用查 ...

你上传一部分数据试试，不需要太多，用模拟数据不要解决问题

LIUZHU

3.4秒，够快了不？

LIUZHU

附件在此，用WPS测试

天地一相

LIUZHU 发表于 2023-2-15 14:16
附件在此，用WPS测试

谢谢。测不了，我不用WPS。