如何在Excel中按值自動排序欄位？

例如，您有一個如下圖所示的購買表格。現在，當您在此欄位中輸入新的數字/價格時，您希望價格欄位能夠自動排序，該如何解決呢？在此我將介紹一個VBA宏，幫助您在Excel中按值自動排序特定欄位。

使用VBA按值自動排序欄位

使用VBA按值自動排序欄位

這個VBA宏將在您於欄位中輸入新數據或更改值時，自動對該特定欄位中的所有數據進行排序。

1. 在「工作表標籤欄」中右鍵單擊當前工作表名稱，然後從右鍵菜單中選擇「查看代碼」。

2. 在打開的「Microsoft Visual Basic for Application」對話框中，將以下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) 第5行的片段 "Header:=xlYes" 告訴Excel您要排序的區域有頁首，因此在排序時不會包含該區域的第一行。如果沒有頁首，請將其改為 "Header:=xlNo"；並將第4行的 "Key1:=Range("B2")" 改為 "Key1:=Range("B1")"。

3. 然後返回工作表，當您在價格欄位中輸入新數字或修改任何現有的價格時，價格欄位將自動按升序排序。

備註：當您在價格欄位中輸入新數字時，必須在原始數字下方的第一個空白單元格中輸入該數字。如果新輸入的數字與原始數字之間以及原始數字之間存在空白單元格，則該欄位將不會自動排序。

示範：在Excel中使用VBA按值自動排序欄位