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