Jak usunąć niechciane wiersze i kolumny w arkuszu programu Excel
( Nie potrwa to tak długo, jak sugeruje to pierwsze spojrzenie i jest bezpieczne!)
Istnieją dwa arkusze, o których mowa w poniższej procedurze.
Nazwijmy twój oryginalny arkusz YourOriginalSheet
(reprezentuje faktyczną nazwę twojego oryginalnego arkusza).
Zadzwońmy do drugiego arkusza ShortSheet
, który będzie zawierał kopię tylko odpowiednich komórek.
(1) W YourOriginalSheet
, Select
a Copy
zakres odpowiednich komórek (nie wklejać gdziekolwiek jeszcze).
(2) Dodaj nowy arkusz o nazwie ShortSheet
, umieść kursor w komórce reprezentującej lewy górny róg kopiowanego zakresu (prawdopodobnie A1
) i wklej tak:
(2a) Paste Special...
> Formulas
[kliknij prawym przyciskiem myszy komórkę w lewym górnym rogu]
(2b) Paste Special...
>Values
(2c) Paste Special...
>Formats
(2d) Paste Special...
>Column Widths
(2e) Dołącz inne Paste Special
opcje, które Twoim zdaniem mogą poprawić wygląd arkusza.
(3) Naciśnij, Ctrl-Shift-End
aby znaleźć prawy dolny róg, ShortSheet
aby upewnić się, że zawiera wszystkie istotne dane.
(4) Save
skoroszyt. ( Save As ...
nowy plik, jeśli chcesz wykonać kopię zapasową).
(5) Usuń YourOriginalSheet
(odpowiednie dane są obecnie zapisane w ShortSheet
.)
(6) Zmień nazwę ShortSheet
na rzeczywistą nazwę oryginalnego arkusza`.
Nic się nie zmieniło, poza tym, że skoroszyt jest znacznie mniejszy, więc wszystkie makra, odwołania zewnętrzne do tego arkusza itp. Powinny nadal działać.
Oto macro
kroki do wykonania w (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
Przed użyciem makra Select
i Copy
odpowiedniego zakresu, jak to zrobiono w kroku (1).
Zapisałem moje makro w Personal.xlsb
skoroszycie do przyszłego użytku wszędzie i przypisałem mu naciśnięcie klawisza Ctrl + Shift + V
.