如何在Excel中按值自动排序列？

例如，您有一个如下截图所示的购买表。现在，当您在此列中输入新的数字/价格时，希望“价格”列能够自动排序，该如何解决呢？在这里，我将介绍一个VBA宏，帮助您在Excel中按值自动排序特定列。

使用VBA按值自动排序列

使用VBA按值自动排序列

只要您在Excel的某一列中输入新数据或更改值，这个VBA宏将自动对该列中的所有数据进行排序。

1. 在“工作表标签栏”中右键单击当前工作表名称，然后从右键菜单中点击“查看代码”。

2. 在打开的“Microsoft Visual Basic for Applications”对话框中，将以下VBA宏代码粘贴到打开的窗口中。

VBA：在Excel中自动排序列

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

注意：1) 在上述VBA代码中，“B:B”表示它将自动对B列进行排序，B1是B列的第一个单元格，“B2”是B列的第二个单元格，您可以根据需要进行更改。2) 第五行中的片段“Header:=xlYes”告诉Excel，要排序的区域包含标题，因此在排序时不会包括该区域的第一行。如果没有标题，请将其更改为“Header:=xlNo”；并将第四行中的“Key1:=Range("B2")”更改为“Key1:=Range("B1")”。

3. 然后返回到工作表，当您在“价格”列中输入新数字或修改任何现有价格时，“价格”列将自动按升序排序。

注意：当您在“价格”列中输入新数字时，必须在原始数字下方的第一个空白单元格中输入该数字。如果在新输入的数字与原始数字之间以及原始数字之间存在空白单元格，则该列不会自动排序。

演示：在Excel中使用VBA按值自动排序列