你算啥 删我帖子 自己录制了一段宏 改了下可以满足功能了
Sub auto()
Range("C:C,D:D,E:E,J:J,I:I,K:K,L:L,M:M,N:N,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:= _
Range("F1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("A2:H500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub |