EXCEl录制排序的宏，为什么执行后无效？按数字大小升序、降序。

Question

Sub 宏1()
'
' 宏1 宏
'

'
Application.CutCopyMode = False
Columns("B:B").Select
ActiveWorkbook.Worksheets("Sheet6").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet6").Sort.SortFields.Add Key:=Range("B2:B13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet6").Sort
.SetRange Range("B2:B13")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Answer 1

Sub test()
Dim i As Integer
Dim arr
arr = Range("b2:b" & Range("b65536").End(xlUp).Row)
For i = 1 To UBound(arr)
Range("b" & i + 1) = Application.WorksheetFunction.Large(arr, i)
Next
End Sub本回答被网友采纳