在VBA中，数组的实例应用（十二）

1、如图所示：将数值按照升序重新排序！

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

5、在代码编辑窗口输入以下代码：Sub 数值排序()arr = SelectionFo筠续师诈r i = 1 To UBound(arr) For j = i + 1 To UBound(arr) If arr(i, 1) > arr(j, 1) Then k = arr(i, 1) arr(i, 1) = arr(j, 1) arr(j, 1) = k End If NextNext[b11].Resize(UBound(arr)) = arrEnd Sub

7、点击【数值排序】按钮，所选区域的数值被瞬间按升序排列于B列！