写一段vba代码，实现excel里数值升序排序

您可以使用以下代码来实现excel中数值升序排序：

Sub sortAscending()
Dim rng As Range
Set rng = Selection
rng.Sort Key1:=rng(1), Order1:=xlAscending, Header:=xlYes
End Sub

注意：在运行此代码之前，请确保选中了要排序的区域。