Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4517|回复: 4

请问如何用VBA实现排序功能

[复制链接]
发表于 2019-7-25 07:24 | 显示全部楼层 |阅读模式
各位高手:
大家好。如图1所示,某只股票A列的日期数据是混乱的,现需要将A列日期按照升序排列,并且B列至J列的数据也相应地重新排列,排好后的效果如图2所示。
这一任务用Excel的“扩展选定区域”排列方式能够实现,但是由于有很多张数据表,请问如何用VBA实现以上功能,多谢各位的帮助。

图1.png
图2.png

如何用VBA实现扩展排序.rar

13.15 KB, 下载次数: 20

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-7-25 09:40 | 显示全部楼层
录制一个排序宏代码就有了,排序代码只有一行,外加一些控制循环的代码,十几行我估计差不多了吧
回复

使用道具 举报

发表于 2019-7-26 10:53 | 显示全部楼层

Sub test()
    Dim i
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Range("a1").CurrentRegion.Sort key1:=[a1], order1:=xlAscending, Header:=xlYes
    Next
End Sub
回复

使用道具 举报

 楼主| 发表于 2019-7-30 21:49 | 显示全部楼层
爱疯 发表于 2019-7-26 10:53
Sub test()
    Dim i
    For i = 1 To Sheets.Count

抱歉回复晚了,感谢您的热情帮助
回复

使用道具 举报

 楼主| 发表于 2019-7-30 21:50 | 显示全部楼层
hfwufanhf2006 发表于 2019-7-25 09:40
录制一个排序宏代码就有了,排序代码只有一行,外加一些控制循环的代码,十几行我估计差不多了吧

本人初学VBA,用宏录制的方法怎么也解决不了这个问题,才来求教大家的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:28 , Processed in 0.860838 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表