Как отсортировать данные столбца, щелкнув заголовок в Excel?
Предположим, у меня есть диапазон данных, теперь я хотел бы отсортировать данные в порядке возрастания или убывания, щелкнув заголовок любого столбца, чтобы получить следующий снимок экрана. Как бы вы могли решить эту задачу в Excel?
Сортировка данных, щелкнув заголовок столбца с кодом VBA
Сортировка данных, щелкнув заголовок столбца с кодом VBA
Обычно в Excel вы можете применить функцию сортировки для быстрой и простой сортировки данных, но для сортировки данных, просто щелкнув ячейку, следующий код VBA может оказать вам услугу.
1. Щелкните правой кнопкой мыши вкладку листа, данные которой вы хотите отсортировать, щелкнув ячейку, и выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:
Код VBA: отсортируйте данные, щелкнув заголовок ячейки или столбца:
Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub
2. А затем сохраните и закройте окно кода, теперь, когда вы дважды щелкаете любую ячейку или заголовок столбца в диапазоне данных, столбец будет отсортирован в порядке возрастания, если вы дважды щелкните его еще раз, столбец будет отсортирован по убыванию сразу.
Еще статьи по теме:
Как изменить значение ячейки, нажав на ячейку?
Как отфильтровать данные, просто щелкнув содержимое ячейки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!