- Sub test()
- Dim arr, brr(), i%, j%, m%, n%, s&
- arr = Sheet6.UsedRange
- ReDim brr(6 To UBound(arr), 1 To 4)
- For i = 6 To UBound(arr)
- If Len(arr(i, 1)) = 0 Then Exit For
- s = Val(arr(i, 1))
- For m = 6 To i - 1
- If brr(m, 1) > s Then
- For n = i To m + 1 Step -1
- For j = 1 To 4
- brr(n, j) = brr(n - 1, j)
- Next
- Next
- Exit For
- End If
- Next
- brr(m, 1) = s
- For j = 2 To 4
- brr(m, j) = arr(i, j)
- Next
- Next
- [a6:d999] = ""
- [a6:d999].NumberFormat = "@"
- [a6].Resize(UBound(brr) - 6, 4) = brr
- End Sub
复制代码
工作簿4.rar
(10.09 KB, 下载次数: 9)
|