🔴 Ejercicios con la Propiedad EntireRow y EntireColumn del Objeto Range. Para que sirve y cuándo utilizar las propiedades EntireRow y EntireColumns.
Propiedad EntireRow y EntireColumn
En estos ejercicios veremos como podemos eliminar, insertar, ocultar o mostrar filas y columnas utilizando la Propiedad EntireRow y EntireColumns. Ahora veremos como a usar estas propiedades en diferentes ejemplos bien explicados, para empezar debemos entender lo siguiente.
Entire=Toda la
Row=Fila
Column=Columna
Debemos utilizar EntireRow si deseamos hacer mención a TODA LA FILA.
Debemos utilizar EntireColumn si deseamos hacer mención a TODA LA COLUMNA.
Ejercicio 1: Eliminar fila
Eliminaremos la Fila 2, primero especificamos la posición o el rango en este caso Range(“A2”) luego escribimos la Propiedad EntireRow que especifica que abarcará TODA LA FILA y finalmente la acción en este caso utilizaremos Delete. Si ejecutamos eliminará la fila seleccionada.
Repasemos: Entendamos que EntireRow significa Toda la Fila, en el siguiente ejercicio estamos indicando la posición A2 y luego de esto utilizaremos la propiedad EntireRow llamando a la acción Delete, esto eliminará toda la fila (2). Si seguimos ejecutando con F5 eliminará la fila de la posición que ahora ocupa la A2, veamos el siguiente ejemplo:
Sub Propiedad_EntireRow_EntireColumn()
Range(“A2”).EntireRow.Delete
End Sub
Si seguimos ejecutando con F5 eliminará la fila de la posición que ahora ocupa la A2, veamos el siguiente ejemplo:
Ejercicio 2: Eliminar filas con rango
En el siguiente ejemplo usaremos EntireRow haciendo un llamado a la acción eliminar, pero ahora especificaremos un rango usando Range(“A2:A4”)
Sub Propiedad_EntireRow_EntireColumn()
Range(“A2:A4”).EntireRow.Delete
End Sub
Ejercicio 3: Eliminar columna
En el siguiente ejercicio eliminaremos una columna entera llamado a la acción Delete. Utilizaremos EntireColumn para seleccionar la columna. Eliminaremos toda la columna B especificando su rango con Range(“B2”).
Sub Propiedad_EntireRow_EntireColumn()
Range(“B2”).EntireColumn.Delete
End Sub
Ejercicio 4: Insertar una columna
En el siguiente ejercicio insertaremos una columna entera llamado a la acción Insert. Utilizaremos EntireColumn para seleccionar la columna. Insertaremos la columna B especificando su rango con Range(“B2”).
Sub Propiedad_EntireRow_EntireColumn()
Range(“B2”).EntireColumn.Insert
End Sub
Ejercicio 5: Ocultar una fila
En el siguiente ejercicio ocultaremos una fila entera llamado a la acción Hidden.True utilizaremos EntireRow para seleccionar la fila. Ocultaremos toda la fila A especificando su rango con Range(“A2”).
Sub Propiedad_EntireRow_EntireColumn()
Range(“A2”).EntireRow.Hidden = True
End Sub
Ejercicio 6: Volver a mostrar una fila
En el siguiente ejercicio mostraremos una fila entera llamado a la acción Hidden.false utilizaremos EntireRow para seleccionar la fila. Mostraremos toda la fila A especificando su rango con Range(“A2”).
Sub Propiedad_EntireRow_EntireColumn()
Range(“A2”).EntireRow.Hidden = False
End Sub
Ejercicio 7: Seleccionar filas
En el siguiente ejercicio seleccionaremos filas con Select. Utilizaremos Row para seleccionar la fila especificándolo con Rows(“3:5”). Seleccionaremos las filas desde la 3 a la 5. Seleccionará primero la fila 3 y luego hasta la fila 5.
Sub Propiedad_EntireRow_EntireColumn()
Rows(“3:5”).Select
End Sub
Ejercicio 8: Seleccionar filas
En el siguiente ejercicio seleccionaremos filas con Select. Utilizaremos Row para seleccionar la fila especificándolo con Rows(“10:8”). Seleccionaremos las filas desde la 10 a la 8. Seleccionará primero la fila 10 y luego hasta la fila 8.
Sub Propiedad_EntireRow_EntireColumn()
Rows(“10:8”).Select
End Sub
Ejercicio 9: Insertar filas
En el siguiente ejercicio insertaremos filas, haciendo un llamada a la acción Insert. Utilizaremos Rows(“10:8”) para especificar las filas en las que se insertarán.
Sub Propiedad_EntireRow_EntireColumn()
Rows(“2:4”).Insert
End Sub
Ejercicio 10: Eliminar filas
En el siguiente ejercicio eliminaremos filas, haciendo un llamada a la acción Delete. Utilizaremos Rows(“2:4”) para especificar las filas que se eliminarán.
Sub Propiedad_EntireRow_EntireColumn()
Rows(“2:4”).Delete
End Sub
Borrar filas vacías o en blanco
En este ejercicio te muestro como borrar una fila solo si toda la fila esta en blanco. Si encuentra un valor en cualquier columna de toda la fila no la borrará.
Sub Elimina_Filas_Vacías()
Dim celda As Range
For Each celda In Range("A1:A20")
If Application.WorksheetFunction.CountA(celda.EntireRow) = 0 Then
celda.EntireRow.Delete
End If
Next celda
End Sub
Otro método para Borrar fila si la celda está en blanco
La siguiente línea de código borrará una fila si esta en blanco (Columna A)
Range("A1:A20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Borrar Fila según el Valor de la Celda
El código borrará la fila según el valor que le indiquemos, entonces va buscar el valor para luego eliminarlo.
Sub EliminarFilasSegunValor()
Dim celda As Range
For Each celda In Range("A1:A20")
If celda.Value = "Miguel" Then
celda.EntireRow.Delete
End If
Next celda
End Sub
Borrar Filas Duplicadas en dos columnas
El código eliminará todos los valores duplicados dentro de un rango.
Range("b2:c100").RemoveDuplicates Columns:=2
Ponemos Columns:=2 esto significa que VBA tiene primero que comprobar que las dos columnas tienen que ser iguales para que las considere como filas duplicadas. Sólo se encuentra un duplicado cuando ambas columnas tienen valores duplicados.
Borrar la última fila
Esto borrará la última fila utilizada en la columna . Recuerda que puedes variar la columna, Cells(Rows.Count, 1). El número 1 representa a la columna A, el 2 a la columna B y así sucesivamente.
Cells(Rows.Count, 2).End(xlUp).EntireRow.Delete
Borrar Columnas por Número
El siguiente código borra una columna según el número que le especifiquemos
Columns(2).Delete
