Cómo eliminar filas y columnas no deseadas en una hoja de cálculo de Excel
( ¡No tomará tanto tiempo como podría sugerir un primer vistazo y es seguro!)
Hay dos hojas a las que se hace referencia en el siguiente procedimiento.
Llamemos a su hoja original YourOriginalSheet
(representa el nombre real de su hoja original).
Llamemos a la otra hoja ShortSheet
, que contendrá una copia de solo celdas relevantes.
(1) En YourOriginalSheet
, Select
y Copy
el rango de celdas relevantes (no pegue en ninguna parte todavía).
(2) Agregue una nueva hoja llamada ShortSheet
, coloque el cursor en la celda que representa la esquina superior izquierda del rango que se está copiando (probablemente A1
) y péguelo de esta manera:
(2a) Paste Special...
> Formulas
[haga clic con el botón derecho en la celda de la esquina superior izquierda]
(2b) Paste Special...
>Values
(2c) Paste Special...
>Formats
(2d) Paste Special...
>Column Widths
(2e) Incluya otras Paste Special
opciones que cree que podrían ayudar a que la hoja se vea mejor.
(3) Presione Ctrl-Shift-End
para encontrar la esquina inferior derecha de ShortSheet
para asegurarse de que contenga todos los datos relevantes.
(4) Save
el libro de trabajo. ( Save As ...
un nuevo archivo si desea una copia de seguridad).
(5) Eliminar YourOriginalSheet
(Los datos relevantes se guardan actualmente en ShortSheet
).
(6) Cambie ShortSheet
el nombre al nombre real de su hoja original ».
Nada ha cambiado, excepto para hacer que el libro sea mucho más pequeño, por lo que todas las macros, referencias externas a esta hoja de trabajo, etc., deberían funcionar.
Aquí hay una macro
para llevar a cabo los pasos en (2).
Sub pasteSpecialAll()
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Antes de usar la macro Select
y Copy
el rango relevante, como se hizo en el paso (1).
Guardé mi macro en mi Personal.xlsb
libro de trabajo para usarlo en cualquier lugar en el futuro y le asigné la tecla presionada Ctrl + Shift + V
.