固定列升序排序的vba代码
Sub 列升序排序()
' 定义变量
Dim 列范围 As Range
Dim 最后一行 As Long
vba排序函数sort用法 ' 设置列范围
Set 列范围 = Range("A1:A100")
' 获取最后一行的行号
最后一行 = 列范围.End(xlDown).Row
' 对列进行升序排序
列范围.Sort Key1:=列范围, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
' 弹出提示框
MsgBox "列已按升序排序!"
End Sub
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论