Comment supprimer des lignes et des colonnes indésirables dans une feuille de calcul Excel
( Cela ne prendra pas aussi longtemps qu'un premier coup d'œil pourrait le suggérer et c'est sûr!)
Il y a deux feuilles mentionnées dans la procédure ci-dessous.
Appelons votre feuille d'origine YourOriginalSheet
(elle représente le nom réel de votre feuille d'origine).
Appelons l'autre feuille ShortSheet
, qui contiendra une copie des seules cellules pertinentes.
(1) Dans YourOriginalSheet
, Select
et Copy
la plage de cellules pertinentes (ne collez pas encore).
(2) Ajoutez une nouvelle feuille nommée ShortSheet
, placez le curseur dans la cellule représentant le coin supérieur gauche de la plage copiée (probablement A1
), et collez comme suit:
(2a) Paste Special...
> Formulas
[cliquez avec le bouton droit sur la cellule du coin supérieur gauche]
(2b) Paste Special...
>Values
(2c) Paste Special...
>Formats
(2d) Paste Special...
>Column Widths
(2e) Inclure d'autres Paste Special
options qui, selon vous, pourraient aider à améliorer l'aspect de la feuille.
(3) Appuyez sur Ctrl-Shift-End
pour trouver le coin inférieur droit de ShortSheet
pour vous assurer qu'il contient toutes les données pertinentes.
(4) Save
le classeur. ( Save As ...
un nouveau fichier si vous voulez une sauvegarde.)
(5) Supprimer YourOriginalSheet
(les données pertinentes sont actuellement enregistrées dans ShortSheet
.)
(6) Renommez ShortSheet
le nom réel de votre feuille d'origine ».
Rien n'a changé sauf pour rendre le classeur beaucoup plus petit, donc toutes les macros, les références externes à cette feuille de calcul, etc. devraient toujours fonctionner.
Voici un macro
pour accomplir les étapes de (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
Avant d'utiliser la macro Select
et Copy
la plage pertinente, comme cela a été fait à l'étape (1).
J'ai enregistré ma macro dans mon Personal.xlsb
classeur pour une utilisation future partout et lui ai assigné une touche Ctrl + Shift + V
.