Excel按数字大小自动排名的VBA代码,在线等
发布网友
发布时间：2022-06-09 13:46
共1个回答
热心网友
时间：2024-07-03 17:40
录制一个宏，然后修改下，写在相应工作表的Change事件下即可
假设A列是名字，B列是金额，那相应代码如下
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address Like "$B$*" Then
Range("A:B").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End If
End Sub
