- Sub 按钮1_Click()
- Application.ScreenUpdating = False
- arr = [a1].CurrentRegion
- brr = [a1].CurrentRegion
- For j = 1 To 3
- For i = 1 To UBound(brr)
- If Len(brr(i, j)) = 0 Then Exit For
- brr(i, j) = Val(Split(brr(i, j), "(")(1))
- Next i
- For x = 1 To i - 1
- For y = x + 1 To i - 1
- If brr(x, j) < brr(y, j) Then
- tm = brr(x, j)
- brr(x, j) = brr(y, j)
- brr(y, j) = tm
-
- tm = arr(x, j)
- arr(x, j) = arr(y, j)
- arr(y, j) = tm
- End If
- Next y
- Next x
- Next j
- [i1].Resize(UBound(arr), UBound(arr, 2)) = arr
- Application.ScreenUpdating = True
- End Sub
复制代码 |