|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 YZC51 于 2019-1-20 19:43 编辑
录制的宏,自己修改下!
Sub Macro1()
Range("A1:m1869").Sort key1:=Range("e2"), order1:=xlAscending, Header:=xlYes
Sheets("第1节").Columns("C:D").Copy
Sheets("学生课表").Select
Range("F1").Select
ActiveSheet.Paste
Range("A1:m1869").Sort key1:=Range("i2"), order1:=xlAscending, Header:=xlYes
Sheets("第2节").Columns("C:D").Copy
Sheets("学生课表").Select
Range("j1").Select
ActiveSheet.Paste
Range("A1:m1869").Sort key1:=Range("m2"), order1:=xlAscending, Header:=xlYes
Sheets("第3节").Columns("C:D").Copy
Sheets("学生课表").Select
Range("N1").Select
ActiveSheet.Paste
Range("A1:O1869").Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlYes
End Sub
|
|