Excel精英培训网

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

[已解决]求助一次性对一个工作薄内的多个工作表排序

[复制链接]
发表于 2015-12-1 15:29 | 显示全部楼层 |阅读模式
本帖最后由 安全网 于 2015-12-9 10:45 编辑

求助一次对多个工作薄内的表1/表2/表3对应的O/P/Q内数据从小到大排序,标题栏不参与
最佳答案
2015-12-8 09:52
  1. Sub 一次性排序()
  2.     Dim Sh As Worksheet
  3.     arr = Array("O", "S", "U", "R", "O", "O" "T")
  4.     For i = 1 To 7
  5.         Set Sh = Worksheets(i)
  6.         r = Sh.[a65536].End(3).Row
  7.         Sh.Range("a3:z" & r).Sort key1:=Sh.Cells(3, arr(i - 1)), Order1:=xlAscending
  8.     Next
  9. End Sub
复制代码

数据排序.rar

48.31 KB, 下载次数: 20

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-12-1 15:32 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2015-12-1 17:59 | 显示全部楼层
qh8600 发表于 2015-12-1 15:32
VBA 录制宏,然后加个循环

不太会,每个工作表内排序的列都不相同
回复

使用道具 举报

 楼主| 发表于 2015-12-2 13:40 | 显示全部楼层
有高手知道么?
回复

使用道具 举报

 楼主| 发表于 2015-12-4 09:16 | 显示全部楼层
请问有高手知道么?
回复

使用道具 举报

发表于 2015-12-4 14:50 | 显示全部楼层
  1. Sub 一次性排序()
  2.     Dim Sh As Worksheet
  3.     For i = 1 To 3
  4.         Set Sh = Worksheets(i)
  5.         r = Sh.[a65536].End(3).Row
  6.         Sh.Range("a3:s" & r).Sort key1:=Sh.Cells(3, 15 + i)
  7.     Next
  8. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2015-12-4 18:06 | 显示全部楼层
grf1973 发表于 2015-12-4 14:50

排序的每个工作表内的列的地址不一样
回复

使用道具 举报

发表于 2015-12-4 19:59 | 显示全部楼层
是不一样啊,15+i. P q r三列
回复

使用道具 举报

 楼主| 发表于 2015-12-4 21:00 | 显示全部楼层
grf1973 发表于 2015-12-4 19:59
是不一样啊,15+i. P q r三列

是的。如果还有2个表格的M/N的表也要排序
回复

使用道具 举报

 楼主| 发表于 2015-12-5 09:55 | 显示全部楼层
每个工作表的排序列没有规则,我已经修改附件,表1的I列,表2的M列,表3的O列,请高手帮忙

数据排序.rar

72.43 KB, 下载次数: 2

回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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