Цей макрос VBA автоматично сортує всі дані у певному стовпці, як тільки ви вводите нові дані або змінюєте значення в стовпці в Excel.

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) Фрагмент Заголовок:=xlYes у 5-му рядку повідомляє Excel, що діапазон, який ви сортуєте, має заголовок, тому перший рядок діапазону не буде включено під час сортування. Якщо немає заголовка, змініть його на Заголовок:=xlNo; і змінити Key1:=Діапазон ("B2") в 4-му ряду до Key1:=Діапазон ("B1").

3. Потім поверніться до аркуша, коли ви введете нове число в стовпець Ціна або зміните будь-які існуючі ціни, стовпець Ціна буде автоматично відсортований за зростанням.

примітки: Коли ви вводите нове число в стовпець Ціна, ви повинні ввести число в першу порожню комірку під початковими числами. Якщо між новим введеним числом і вихідними числами є порожні клітинки, а також порожні клітинки між вихідними числами, цей стовпець не буде відсортовано автоматично.

Легко сортувати за частотою зустрічань в Excel

Kutools для Excel Розширене сортування утиліта підтримує швидке сортування даних за довжиною тексту, прізвищем, абсолютним значенням, частотою тощо.