返回列表 上一主題 發帖

[發問] excel 中文+數字的排序

回復 1# e86137

建議可以甲、乙資料分開各別排序後再結合一起,謝謝

TOP

回復 1# e86137

資料A欄(A1是項目,從A2開始是資料甲或乙),請測試看看,謝謝

Sub test()
Dim Arr, i&
Arr = Range([c1], [a65536].End(3))
For i = 2 To UBound(Arr)
    Arr(i, 2) = Left(Arr(i, 1), 1)
    Arr(i, 3) = Mid(Arr(i, 1), 2)
Next
[a1].Resize(UBound(Arr), 3) = Arr
With [a1].Resize(UBound(Arr), 3)
    .Sort Key1:=.Item(2), Order1:=2, _
    Key2:=.Item(3), Order2:=1, Header:=xlYes
End With
Range("B2:C" & UBound(Arr)) = ""
End Sub

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題