[已解决]求教对一个工作簿中的所有工作表都按照班级升序？

eikok · 发表于 2014-5-19 14:48

本帖最后由 eikok 于 2014-5-19 15:42 编辑

求教对一个工作簿中的所有工作表都按照班级升序？
Sub 宏3()
Columns("B:E").Select
ActiveWorkbook.Worksheets("高2文").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("高2文").Sort.SortFields.Add Key:=Range("E2:E1229"), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("高2文").Sort
      .SetRange Range("B1:E1229")
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
End With
End Sub
E列是班级列

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-19 15:33

Sub 宏3()
Dim sht As Worksheet, lCol&
Application.ScreenUpdating = False
For Each sht In Worksheets
With sht
lCol = .Cells(Rows.Count, "e").End(xlUp).Row
With .Sort.SortFields
.Clear
.Add Key:=sht.Range("e2:e" & lCol), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With .Sort
.SetRange sht.Range("b1:e" & lCol)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next
Application.ScreenUpdating = True
MsgBox "排序完成"
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2014-5-19 14:58

Sub 宏3()
Dim sht As Worksheet
Dim lCol&
Application.ScreenUpdating = False
For Each sht In Worksheets
With sht
lCol = .Cells(Rows.Count, "e").End(xlUp).Row
With .Sort.SortFields
.Clear
.Add Key:=.Cells("e2:e" & lCol), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With .Sort
.SetRange .Cells("b1:e" & lCol)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next
Application.ScreenUpdating = True
MsgBox "排序完成"
End Sub

复制代码

eikok · 发表于 2014-5-19 15:03

本帖最后由 eikok 于 2014-5-19 15:06 编辑

hwc2ycy 发表于 2014-5-19 14:58

请问这个代码是在模块中运行吗？

hwc2ycy · 发表于 2014-5-19 15:13

哦，这里了，你在cells前加个sht

hwc2ycy · 发表于 2014-5-19 15:25

后面的还有要加的，要不你把附件传上来，我测测。

hwc2ycy · 发表于 2014-5-19 15:33

犯傻了，把cells写成了rang

hwc2ycy · 发表于 2014-5-19 15:33

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Sub 宏3()
Dim sht As Worksheet, lCol&
Application.ScreenUpdating = False
For Each sht In Worksheets
With sht
lCol = .Cells(Rows.Count, "e").End(xlUp).Row
With .Sort.SortFields
.Clear
.Add Key:=sht.Range("e2:e" & lCol), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With .Sort
.SetRange sht.Range("b1:e" & lCol)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next
Application.ScreenUpdating = True
MsgBox "排序完成"
End Sub

复制代码

eikok · 发表于 2014-5-19 15:34

本帖最后由 eikok 于 2014-5-19 15:36 编辑

版主辛苦

hwc2ycy · 发表于 2014-5-19 15:39

工作簿里啥数据也没有，咱测了，刚刚传的代码我在自己的电脑上已经测试过了。

eikok · 发表于 2014-5-19 15:42

hwc2ycy 发表于 2014-5-19 15:39
工作簿里啥数据也没有，咱测了，刚刚传的代码我在自己的电脑上已经测试过了。

版主辛苦了{:1112:}
8楼发错了
可以删除

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

[已解决]求教对一个工作簿中的所有工作表都按照班级升序？

相关帖子