|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
VBA解析 没有比较交换怎么排序
Sub VBA解析没有比较交换怎么排序()
Dim ar(1 To 11), arr, i&, j%, cf
arr = Sheets("jh").[a1].CurrentRegion.Resize(, 2)
For i = 1 To UBound(arr)
cf = Split(arr(i, 1), " ")
For j = 0 To UBound(cf)
ar(cf(j)) = cf(j)
Next
For j = 1 To UBound(ar)
If ar(j) <> "" Then arr(i, 2) = arr(i, 2) & ar(j) & " "
Next
Erase ar
Next
Sheets("jh").Columns("c:c").Clear
Sheets("jh").[c1].Resize(UBound(arr), 1) = Application.Index(arr, , 2)
End Sub
'VBA解析 没有比较交换怎么排序
'为什么这个代码没有比较交换也能排序 请解析一下原理
A '列按每一行数字从小到大排序结果保存C列
|
|