请教老师，某列数字按绝对值排序如何写？

vbahappy · 发表于 2024-6-20 21:41

各位老师晚上好，学生对sort排序一知半解，我在E列的数字有正，负和0,如果是按正常的降序排列

Range(a5:g" & r).Sort .[e3], 2

排出的结果，正在上面，0在中间，负数在下面，可我想把正负数排上面，0排最下面，
也就是说是否可以按绝对值降序或升序排列呢？

taller · 发表于 2024-6-21 00:59

增加辅助列，设置公式ABS，按照辅助列排序，然后删除辅助列

vbahappy · 发表于 2024-6-21 16:05

taller 发表于 2024-6-21 00:59
增加辅助列，设置公式ABS，按照辅助列排序，然后删除辅助列

我之前也有考虑过，但表中还有其他代码，如果增加辅助列，我得修改不少代码，不来就菜，所以就放弃了。我再想能不能用冒泡法实现呢？

joy.008@163.com · 发表于 2024-6-21 16:31

vbahappy 发表于 2024-6-21 16:05
我之前也有考虑过，但表中还有其他代码，如果增加辅助列，我得修改不少代码，不来就菜，所以就放弃了。我 ...

增加辅助列未必必须挨着源数据比如数据区是 A1:Z999  可以在AA列增加辅助列
换个思路  数据区写入数组增加数组宽度辅助列写入新增列
按辅助列排序后按原数组宽度覆盖就完成了  辅助列仅在数组中一闪而逝

vbahappy · 发表于 2024-6-21 17:26

joy.008@163.com 发表于 2024-6-21 16:31
增加辅助列未必必须挨着源数据比如数据区是 A1:Z999 可以在AA列增加辅助列
换个思路数据区写入数组 ...

谢谢老师，我的数据源是A5:E, 按E列的数据排序，如果增加辅助列在AA，该如何写呢？
方便提供一个参考代码吗？

65861954 · 发表于 2024-6-21 17:33

vbahappy 发表于 2024-6-21 17:26
谢谢老师，我的数据源是A5:E, 按E列的数据排序，如果增加辅助列在AA，该如何写呢？
方便提供一个参考代 ...

有辅助列后不需要代码了，直接排序

vbahappy · 发表于 2024-6-21 17:44

65861954 发表于 2024-6-21 17:33
有辅助列后不需要代码了，直接排序

排不了呀，比如我把辅助列设在S列，我只排序只排A5:E这个区域，F:G这个区域我有其他数据，不排序

taller · 发表于 2024-6-21 23:47

vbahappy 发表于 2024-6-21 17:44
排不了呀，比如我把辅助列设在S列，我只排序只排A5:E这个区域，F:G这个区域我有其他数据，不排序

A列插入新列作为辅助列，设置公式，排序，然后删除A列，后续代码无需改动

操作时录制宏，就可以得到代码

ynzsvt · 发表于 2024-6-22 12:47

前两行按你自己的来，先备份看看是不是F_Z列被毁了

Sub ss()
Dim Rng As Range, R&
R = 10
Range("Aa5:AA" & R).FormulaR1C1 = "=ABS(RC[-22])"
Range("a5:AA" & R).Sort [AA3], 2
End Sub

复制代码

joy.008@163.com · 发表于 2024-6-24 17:05

vbahappy 发表于 2024-6-21 17:26
谢谢老师，我的数据源是A5:E, 按E列的数据排序，如果增加辅助列在AA，该如何写呢？
方便提供一个参考代 ...

Sub ABC()

R = [E65535].End(3).Row
Columns(6).Insert
For i = 5 To R
Cells(i, 6) = Abs(Cells(i, 5))
Next
Range("A5:F" & R).Sort [F5], 2
Columns(6).Delete

End Sub

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

[求助] 请教老师，某列数字按绝对值排序如何写？