Come eliminare righe e colonne indesiderate in un foglio di lavoro di Excel
( Non ci vorrà fino a quando un primo sguardo potrebbe suggerire ed è sicuro!)
Vi sono due fogli a cui si fa riferimento nella procedura seguente.
Chiamiamo il tuo foglio originale YourOriginalSheet(rappresenta il nome effettivo del tuo foglio originale).
Chiamiamo l'altro foglio ShortSheet, che conterrà una copia delle sole celle pertinenti.
(1) In YourOriginalSheet, Selecte Copyl'intervallo di celle rilevanti (non incollare da nessuna parte).
(2) Aggiungi un nuovo foglio chiamato ShortSheet, posiziona il cursore nella cella che rappresenta l' angolo in alto a sinistra dell'intervallo da copiare (probabilmente A1) e incolla in questo modo:
(2a) Paste Special...> Formulas[fare clic con il pulsante destro del mouse sulla cella nell'angolo in alto a sinistra]
(2b) Paste Special...>Values
(2c) Paste Special...>Formats
(2d) Paste Special...>Column Widths
(2e) Includi altre Paste Specialopzioni che ritieni possano aiutare a migliorare l'aspetto del foglio.
(3) Premere Ctrl-Shift-Endper trovare l'angolo in basso a destra di ShortSheetper assicurarsi che contenga tutti i dati rilevanti.
(4) Savela cartella di lavoro. ( Save As ...un nuovo file se si desidera un backup.)
(5) Elimina YourOriginalSheet(i dati rilevanti sono attualmente salvati in ShortSheet.)
(6) Rinomina ShortSheetcon il nome effettivo del foglio originale ».
Nulla è cambiato se non per rendere la cartella di lavoro molto più piccola, quindi tutte le macro, i riferimenti esterni a questo foglio di lavoro, ecc. Dovrebbero comunque funzionare.
Ecco un macroper eseguire i passaggi in (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
Prima di utilizzare la macro Select e Copy l'intervallo pertinente, come è stato fatto nel passaggio (1).
Ho salvato la mia macro nella mia Personal.xlsbcartella di lavoro per un utilizzo futuro ovunque e gli Ctrl + Shift + Vho assegnato un tasto .