ActiveWorkbook。工作表(" sheet 1 ")sort . sort fields . clear。
ActiveWorkbook。工作表(" sheet 1 ")sort . sort fields . add Key:= Range(" a 1 ")，_
SortOn:=xlSortOnValues，Order:=xlAscending，DataOption:=xlSortNormal
使用ActiveWorkbook。工作表(“Sheet1”)。分類
。SetRange範圍(" A1:A3600 ")
。Header = xlNo
。MatchCase = False
。Orientation = xlTopToBottom
。SortMethod =拼音
。應用
以…結尾
範圍(“B2”)。挑選
ActiveCell。formula 1c 1 = " = RC[-1]-R[-1]C[-1]"
範圍(“B2”)。挑選
選擇。自動填寫目的地:=範圍(" B2:B3600 ")
範圍(“B2:B3600”)。挑選
a列是壹個數組，b列顯示的是差異。