根据单元格括号数字排序

D列内容复制,在下面跟帖粘贴.

按住alt依次按f11,i,m
粘贴下面代码后按f5
特别提醒:操作前注意备份原文件.
Sub test()
For r = 2 To Range("d65536").End(xlUp).Row
t = Split(Cells(r, 4), "；")
n = UBound(t)
ReDim arr(1, n)
For i = 0 To n
s = Split(t(i), "（")
arr(0, i) = s(0)
arr(1, i) = CInt(Replace(s(1), "）", ""))
Next
For i = 0 To n - 1
For j = i + 1 To n
If arr(1, j) > arr(1, i) Then
For k = 0 To 1
s = arr(k, i)
arr(k, i) = arr(k, j)
arr(k, j) = s
Next
End If
Next
Next
For i = 0 To n
t(i) = arr(0, i) & "（" & arr(1, i) & "）"
Next
Cells(r, 4) = Join(t, "；")
Next
End Sub