如何将数据以升序插入到VBA Excel中的数组中？

Question

在excel vba中，我有1到10之间的随机数范围，它们的顺序不正确。将这些随机数按升序插入数组的最短方法是什么？还按从A到Z的顺序命名吗？

Answer 1

是的，如果必须在VBA中完成，那么就可以达到目的（经过测试）：

Sub Arrays()

Dim ws As Worksheet
Dim MyRange As Range
Dim x As Integer
Dim arr_MyArray() As Integer

Set ws = Worksheets("Sheet1")
Set MyRange = ws.Range("A1", ws.Range("A10"))
ReDim arr_MyArray(1 To MyRange.Cells.Count)

For x = 1 To UBound(arr_MyArray)
    arr_MyArray(x) = Application.WorksheetFunction.Rank(x, MyRange, 1)
Next

End Sub

快来看看ExcelVBADude YouTube频道！