一组数据怎么分别快速排序？

mzlyh · 发表于 2020-1-10 08:32

请教大师一组数据怎么分别快速排序？就是把数据分别按每一横按大小排序，并保留背景颜色。
[tr] [td=39]

[/tr]

yes363001640 · 发表于 2020-1-10 10:29

可以用转置，然后用excel自带的排序，排好再转置回来就行了。

mzlyh · 发表于 2020-1-10 16:43

yes363001640 发表于 2020-1-10 10:29
可以用转置，然后用excel自带的排序，排好再转置回来就行了。

谢谢，不过数据有几百上千行，这个办法太慢了，有更方便的方法吗？

yes363001640 · 发表于 2020-1-11 08:27

mzlyh 发表于 2020-1-10 16:43
谢谢，不过数据有几百上千行，这个办法太慢了，有更方便的方法吗？

我的意思是，你可以用录制宏来实现。然后加个循环

mzlyh · 发表于 2020-1-11 08:30

yes363001640 发表于 2020-1-11 08:27
我的意思是，你可以用录制宏来实现。然后加个循环

这个真不懂

能帮我做一个吗

yes363001640 · 发表于 2020-1-11 08:47

论坛里面也有，这个只能实用模拟数据。其他数据要更改范围

mzlyh · 发表于 2020-1-11 09:02

yes363001640 发表于 2020-1-11 08:47
论坛里面也有，这个只能实用模拟数据。其他数据要更改范围

非常感谢

mzlyh · 发表于 2020-1-11 09:23

本帖最后由 mzlyh 于 2020-1-11 10:00 编辑

yes363001640 发表于 2020-1-11 08:47
论坛里面也有，这个只能实用模拟数据。其他数据要更改范围

请教老师怎么更改范围啊

这个范围只有9列26行，能帮我改成50列1000行吗，多谢！

yes363001640 · 发表于 2020-1-11 10:44

mzlyh 发表于 2020-1-11 09:23
请教老师怎么更改范围啊
这个范围只有9列26行，能帮我改成50列1000行吗，多谢！

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("a1:AX1")
For j = 1 To UBound(arr, 2)
arr(1, j) = Int(Val(arr(1, j)))
Next
.Range("A" & r + 1 & ":" & "AX" & r + 1).Resize(1, UBound(arr, 2)) = arr
.Range("a1:AX" & r + 1).Sort Key1:=Range("A" & r + 1), Order1:=xlOverThenDown, Header:=xlGuess, Orientation:=xlLeftToRight
.Range("A" & r + 1 & ":" & "AX" & r + 1).Clear
End With
End Sub

复制代码

mzlyh · 发表于 2020-1-11 11:50

yes363001640 发表于 2020-1-11 10:44

十分感谢！！不过试了一下，横的宽度就够了，但只排了第一行，不知道什么回事？？

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

[求助] 一组数据怎么分别快速排序？