[已解决]排序代码求助

531tommy

我需要对D列的数据由大到小进行排序，但不知为何会把数量较小的删了
Sub 排序()
On Error Resume Next
    Dim arr, ar, temp, x, y
    ar = Sheet1.Range("b65536").End(xlUp).Row
With Sheet1
    For x = 3 To ar
     arr = .Range(Cells(x, 2), Cells(x, 11))
      For y = x - 1 To 1 Step -1
       If .Cells(y, 4) >= .Cells(x, 4) Then Exit For
           .Range(Cells(y + 1, 2), Cells(y + 1, 11)) = .Range(Cells(y, 2), Cells(y, 11))
    Next y
         .Range(Cells(y + 1, 2), Cells(y + 1, 11)) = arr
    Next x
End With
End Sub


排序求助.zip (16.64 KB, 下载次数: 7)

2022-6-15 13:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-6-15 14:39

按D列数据由大到小进行排序
>>請測試看看，謝謝

Sub test()
With Range([A1], [I65536].End(3))
      .Sort Key1:=.Item(4), Order1:=2, Header:=1
End With
End Sub

跳转到最佳答案楼层

sam-wang

按D列数据由大到小进行排序
>>請測試看看，謝謝

Sub test()
With Range([A1], [I65536].End(3))
      .Sort Key1:=.Item(4), Order1:=2, Header:=1
End With
End Sub

531tommy

sam-wang 发表于 2022-6-15 14:39
按D列数据由大到小进行排序
>>請測試看看，謝謝

十分感谢，涨知识了