Как да сортирате автоматично колона по стойност в Excel?
Например, имате таблица за покупки, както е показано на екранната снимка по-долу. Сега искате колоната Цена да се сортира автоматично, когато въвеждате нови числа/цени в тази колона, как бихте могли да разрешите проблема? Тук представям макрос на VBA, който да ви помогне автоматично да сортирате конкретна колона по стойност в Excel.
Автоматично сортиране на колона по стойност с VBA
Автоматично сортиране на колона по стойност с VBA
Този макрос на 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, B1 е първата клетка в колона B, B2 е втората клетка в колона B и можете да ги промените според вашите нужди.
2) Фрагментът Заглавие:=xlДа в 5-ия ред казва на Excel, че диапазонът, който ще сортирате, има заглавка, така че първият ред от диапазона няма да бъде включен при сортиране. Ако няма заглавка, моля, променете я на Заглавие:=xlNo; и промяна Ключ1:=Обхват("B2") в 4-ти ред до Ключ1:=Обхват("B1").
3. След това се върнете към работния лист, когато въведете ново число в колоната Цена или промените съществуващи цени, колоната Цена автоматично ще бъде сортирана във възходящ ред.
Забележка: Когато въвеждате ново число в колоната Цена, трябва да въведете числото в първата празна клетка под оригиналните числа. Ако има празни клетки между нововъведеното число и оригиналните числа, както и празни клетки между оригиналните числа, тази колона няма да бъде сортирана автоматично.
Демонстрация: Автоматично сортиране на колона по стойност с VBA в Excel
Лесно сортиране по честота на срещане в Excel
Kutools за Excel Разширено сортиране помощната програма поддържа бързо сортиране на данни по дължина на текста, фамилия, абсолютна стойност, честота и т.н. в Excel.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!