VBA排序

ardu95 · 发表于 2019-5-14 20:09

各位老师：
帮忙排个序。见附件。
谢谢。

朱荣兴 · 发表于 2019-5-14 20:26

提示: 作者被禁止或删除内容自动屏蔽

liulang0808 · 发表于 2019-5-14 20:26

楼主录制一段排序的宏不就可以了吗
Sub 宏1()
'
' 宏1 宏
'

'
Range("A2:B45").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A3:A45") _
      , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B45") _
      , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
      .SetRange Range("A2:B45")
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
End With

End Sub

maditate · 发表于 2019-5-14 20:31

真的不明白，用代码去排序此类数据得到的结果到底有多少实用价值。

lsc900707 · 发表于 2019-5-14 21:16

Sub gj23w98()
Range("a2:b" & Rows.Count).Sort [b3], 1, , , , , , 1
Range("a2:b" & Rows.Count).Sort [a3], 1, , , , , , 1
End Sub

复制代码

lsc900707 · 发表于 2019-5-14 21:20

测试参考附件：

网海遨游 · 发表于 2019-5-14 21:48

Sub 五楼的启发()
Range("a3:b" & Rows.Count).Sort [a3], 1, [b3], , 1
End Sub

ardu95 · 发表于 2019-5-15 06:08

朱荣兴发表于 2019-5-14 20:26
录制一段宏稍加修改

谢谢。注册了好长时间。真正学习大约有一年时间，很多东西一知半解，继续学习。

ardu95 · 发表于 2019-5-15 06:10

lsc900707 发表于 2019-5-14 21:16

谢谢指导。注册了好长时间。真正学习大约有一年时间，很多东西一知半解，继续学习。

lsc900707 · 发表于 2019-5-15 06:53

ardu95 发表于 2019-5-15 06:10
谢谢指导。注册了好长时间。真正学习大约有一年时间，很多东西一知半解，继续学习。

呵呵，多点时间学习，加油！

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

[求助] VBA排序

评分

评分

评分

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-5-14 20:26 来自手机 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报