怎样才按照最后的尾数升序

zhaogang1960 · 发表于 2011-4-17 18:15

原帖由 qhllqhll 于 2011-4-17 18:09 发表

老师您好：我的原文件要升序的区域为a5;o300
应该怎么用您的代码啊
谢谢

arr取要排序的列区域，不含标题
代码中排序区域也不含标题
如果第5行开始是数据，p列没有数据：
Sub Macro1()
Dim arr, i&
arr = Range("b5:b" & [b65536].End(xlUp).Row)
For i = 1 To UBound(arr)
arr(i, 1) = Val(Right(arr(i, 1), 4))
Next
[p5].Resize(i - 1) = arr
Range("a5:o" & [b65536].End(xlUp).Row).Sort Key1:=[p5], Order1:=xlAscending
[p5].Resize(i - 1).ClearContents
End Sub

qhllqhll · 发表于 2011-4-17 18:29

原帖由 zhaogang1960 于 2011-4-17 18:15 发表

arr取要排序的列区域，不含标题
代码中排序区域也不含标题
如果第5行开始是数据，p列没有数据：
Sub Macro1()
Dim arr, i&
arr = Range("b5:b" & .End(xlUp).Row)
For i = 1 To UBound(arr)
...

老师您的两个代码我看了有点不太明白:
第一个的代码:Range("a5:f" & [b65536].End(xlUp).Row).Sort Key1:=[e5], Order1:=xlAscending
[e5].Resize(i - 1).ClearContents
第二个的代码:Range("a5:o" & [b65536].End(xlUp).Row).Sort Key1:=[p5], Order1:=xlAscending
[p5].Resize(i - 1).ClearContents
请问:那一个对 [p5].[/color]Resize(i - 1).ClearContents
应该是在选区的后一列还是在前一列
谢谢

zhaogang1960 · 发表于 2011-4-17 18:35

原帖由 qhllqhll 于 2011-4-17 18:29 发表

老师您的两个代码我看了有点不太明白:
第一个的代码:Range("a5:f" & .End(xlUp).Row).Sort Key1:=[e5], Order1:=xlAscending
[e5].Resize(i - 1).ClearContents
第二个的代码:Range("a5:o" & .End(xlUp).Ro ...

数据区右面的第一列，就是按照它来排序，排序完毕后清除它

qhllqhll · 发表于 2011-4-17 18:38

先谢谢我试试

悟空师弟 · 发表于 2011-4-21 16:21

汗一个，总是不注意看，原来又是在VBA版块……

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

[求助] 怎样才按照最后的尾数升序

回复 13楼 zhaogang1960 的帖子