Eliminar celdas filas columnas en Excel
Como funciona el ejemplo para suprimir celdas filas columnas en Excel
Seguidamente mostraré como eliminar celda, filas y columnas mediante macro o código de VBA, anteriormente se mostró como insertar columnas, como insertar celdas, como insertar filas y como borrar o limpiar celdas; siendo también útil y estando relacionado con el presente post.
Si lo que se requiere es borrar una o varias columnas mediante macro se debe indicar el rango, en caso que no sepas seleccionar o referenciar cedas, te recomiendo que leas al respecto antes ya que es muy importante y lo primero que hay que saber si estás construyendo tu propia macro; establecida la columna a borrar, en este caso la columna B, pero si se hubiesen querido elegir más columnas se debe usar «B:D» por ejemplo el cual borraría la columna B a la D inclusive; bien indicada la columna o columnas el comando para eliminar las mimas es «Delete», el código sería el siguiente:
Range(«B:B»).Columns.Delete
End Sub
Ahora para eliminar celdas, como es lógico debes indicar a Excel que celdas borrar y luego aplicar el comando necesario, en este caso lo que se requiere es eliminar las celdas A4 a B4 y desplazar hacia la izquierda, bien para ello debes utilizar:
Sub Eliminal()
Range(«A4:B4»).Select
Selection.Delete Shift:=xlToLeft
End Sub
Si en vez eliminar celdas y desplazarlas hacia la izquierda requieres eliminar las celdas y que se desplacen hacia arriba debes utilizar este otro códígo, si te fijas cambia «Shift:=xlToLeft» por «Shift:=xlUp».
Sub Eliminau()
Range(«A4:B4»).Select
Selection.Delete Shift:=xlUp
End Sub
Para eliminar una fila completa se utiliza el código «EntireRow», como en el ejemplo siguiente, que elimna la fila 1.
Sub EliminaFil3()
Range(«1:1»).Rows.Delete
End Sub
Codigo para Quitar celdas filas columnas en Excel
Código que se inserta en un userform
Sub Elimina()
Range(«B:B»).Columns.Delete
End Sub
Sub Eliminal()
Range(«A4:B4»).Select
Selection.Delete Shift:=xlToLeft
End Sub
Sub Eliminau()
Range(«A4:B4»).Select
Selection.Delete Shift:=xlUp
End Sub
Sub EliminaFil()
Range(«A1»).EntireRow.Delete
End Sub
Sub EliminaFil3()
Range(«1:1»).Rows.Delete
End Sub
Sub EliminaFil1()
Range(«A1:A3»).Rows.Delete
End Sub
amzn_assoc_placement = «adunit0»;
amzn_assoc_enable_interest_ads = «true»;
amzn_assoc_tracking_id = «pevmpe-20»;
amzn_assoc_ad_mode = «auto»;
amzn_assoc_ad_type = «smart»;
amzn_assoc_marketplace = «amazon»;
amzn_assoc_region = «US»;
amzn_assoc_textlinks = «»;
amzn_assoc_linkid = «dd6af26f8beece4d0990598f92dbfebd»;
amzn_assoc_emphasize_categories = «16261631,51569011,2619525011,2617941011,15684181,165796011,3760911,1000,13900861,2335752011,36632,9003130011,13900871,130,172282,5088769011,979455011,2238192011,16310101,3760901,1055398,16310091,3367581,133140011,284507,195209011,599858,10272111,301668,51575011,1064954,2972638011,2619533011,672123011,229534,3375251,3250697011,228013,165793011,404272,468642,377110011»;
amzn_assoc_rows = «1»;
amzn_assoc_fallback_mode = {«type»:»search»,»value»:»fone, shoes, accesories»};
amzn_assoc_default_category = «All»;
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends