Dimsh為工作表，I% '定義sh為工作表，I為整數。
我= 0 '我= 0
對於工作表中的每個sh '當前excel中的每個工作表。
i = i + 1 ' i = i+1
範圍(" AA " & ampI) =右(sh。姓名，len (sh。name)-5)' aa列等於當前工作表名稱，從右邊第五個字符開始。
接下來，這裏是for循環，它將獲取excel中當前存在的所有工作表，並填充AA列。
列(“AA:AA”)。排序關鍵字1:=Range("AA1 ")，Order1:=xlAscending，Header:=xlGuess，_
OrderCustom:=1，MatchCase:=False，Orientation:=xlTopToBottom，SortMethod _
:= xlpinyin，數據選項1: = xlorthonormal' aa列排序
對於i = 1到工作表。計數- 1
床單(“床單”& ampCStr(範圍(" AA " & amp我)))。向前移動:=張(I)
下壹步''通過排序移動表格。
範圍(“AA: aa”)。清除內容t清除aa列的內容。
Sheet1。使活動
“application . screen updating = true”屏幕更新已打開。