VBA激活表时自动排序

自动排序

今天给大家分享个excel表激活后自动排序的方法。

名称

A

102

124

21

Z

106

128

25

X

105

127

24

D

103

125

22

C

104

126

23

如何实现将上图自动排序呢?名称所在单元格为A1,实现代码如下:

 

 
  1. Private Sub Worksheet_Activate()   
  2. Range("A2:A6").Sort key1:=Range("A1"), ORDER1:=xlAscending   
  3. End Sub   

其实代码都很简短,Key1为第一排序字段,Key2为第二排序字段;order为排序方式,升序为xlAscending,降序为xlDescending。

代码解释到这了,其实只例举了一个方法,举一反三就看你自己了!good luck~

分享到: