¿Cómo seleccionar el rango según el valor de la celda en otra columna en Excel?
En este artículo, hablaré sobre cómo seleccionar rangos según el valor de la celda en otra columna. Tome un ejemplo, si las celdas muestran FALSO en la columna C, las celdas relativas en la columna A y la columna B se seleccionarán como se muestra a continuación. No hay una función incorporada que pueda ayudarlo a resolver esta tarea, pero en este artículo, puedo manejarlo con un código VBA.
Seleccione el rango según el valor de la celda en otra columna por código VBA
Seleccione el rango según el valor de la celda en otra columna por código VBA
Seleccione el rango según el valor de la celda en otra columna por código VBA
1. Habilite la hoja que desea usar y presione Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy luego pegue el código siguiente en el nuevo Módulo ventana.
VBA: seleccione el rango según el valor de la celda
Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
Dim lastrow As Long
Dim xRg As Range, yRg As Range
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet2")
lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("C1:C" & lastrow)
If UCase(xRg.Text) = "FALSE" Then
If yRg Is Nothing Then
Set yRg = .Range("A" & xRg.Row).Resize(, 2)
Else
Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
End If
End If
Next xRg
Application.ScreenUpdating = True
End With
If Not yRg Is Nothing Then yRg.Select
End Sub
3. Prensa F5 para ejecutar el VBA, y luego los rangos se han seleccionado en función de los valores en la columna C.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!