求C列如何从小到大排序

wzd028 · 发表于 2021-8-27 10:52

不知怎么回事，C列不能按从小到大排序，具体见附件，谢谢！

02.rar (25.09 KB, 下载次数: 11)

A1233515 · 发表于 2021-8-27 10:56

C列是文本，要按照文本排序的规则进行排序，和数值排序规则是不同的

jians0529 · 发表于 2021-8-27 11:11

用自定义序列！

wzd028 · 发表于 2021-8-27 11:27

jians0529 发表于 2021-8-27 11:11
用自定义序列！

现在不知道怎么操作，能具体点吗

jians0529 · 发表于 2021-8-27 11:52

=CEILING(ROW(A1)/10,1)&"-"&MOD(ROW(A10),10)+1 用这个生成序列。。然后再添加到自定义序列里面按动画进行排即可。。。

chxw68 · 发表于 2021-8-27 16:32

Sub test()
Dim r%, i%
Dim arr, brr()
With Worksheets(1)
.AutoFilterMode = False
r = .Cells(.Rows.Count, 1).End(xlUp).Row
c = .Cells(1, .Columns.Count).End(xlToLeft).Column
arr = .Range("c2:c" & r)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
If InStr(arr(i, 1), "-") = 0 Then
brr(i, 1) = 10 ^ 6
Else
xm = Split(arr(i, 1), "-")
brr(i, 1) = Val(xm(0)) * 10 ^ 3 + Val(xm(1))
End If
Next
.Cells(2, c + 1).Resize(UBound(brr), UBound(brr, 2)) = brr
.Range("a2").Resize(r - 1, c + 1).Sort key1:=.Cells(2, c + 1), order1:=xlAscending, Header:=xlNo
.Columns(c + 1).Clear
End With
End Sub

复制代码

chxw68 · 发表于 2021-8-27 16:33

列用辅助列排序。

		自动登录	找回密码
密码			免费注册

[求助] 求C列如何从小到大排序