¿Cómo ordenar los datos de una columna haciendo clic en el encabezado en Excel?
Supongamos que tengo un rango de datos, y ahora me gustaría ordenar los datos en orden ascendente o descendente haciendo clic en cualquier encabezado de columna para obtener la siguiente captura de pantalla mostrada. ¿Cómo podrías resolver esta tarea en Excel?
Ordenar datos haciendo clic en el encabezado de columna con código VBA
Ordenar datos haciendo clic en el encabezado de columna con código VBA
Normalmente, en Excel, puedes aplicar la función Ordenar para organizar los datos rápidamente y fácilmente, pero para ordenar datos simplemente haciendo clic en una celda, el siguiente código VBA puede ayudarte.
1. Haz clic derecho en la pestaña de la hoja donde deseas ordenar los datos haciendo clic en una celda, y selecciona Ver código desde el menú contextual; luego, en la ventana abierta de Microsoft Visual Basic para aplicaciones, copia y pega el siguiente código en el Módulo en blanco:
Código VBA: Ordenar datos haciendo clic en una celda o encabezado de columna:
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. Luego guarda y cierra la ventana de código. Ahora, cuando hagas doble clic en cualquier celda o encabezado de columna dentro del rango de datos, la columna se ordenará en orden ascendente; si haces doble clic nuevamente, la columna se ordenará de forma descendente al instante.
Más artículos relacionados:
¿Cómo cambiar el valor de una celda haciendo clic en la celda?
¿Cómo filtrar datos simplemente haciendo clic en el contenido de una celda en Excel?
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!