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, Selecty Copyel 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 Specialopciones que cree que podrían ayudar a que la hoja se vea mejor.
(3) Presione Ctrl-Shift-Endpara encontrar la esquina inferior derecha de ShortSheetpara asegurarse de que contenga todos los datos relevantes.
(4) Saveel 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 ShortSheetel 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 macropara 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.xlsblibro de trabajo para usarlo en cualquier lugar en el futuro y le asigné la tecla presionada Ctrl + Shift + V.