我需要对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)
|