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, Selecta Copyzakres 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 Specialopcje, które Twoim zdaniem mogą poprawić wygląd arkusza.
(3) Naciśnij, Ctrl-Shift-Endaby znaleźć prawy dolny róg, ShortSheetaby upewnić się, że zawiera wszystkie istotne dane.
(4) Saveskoroszyt. ( Save As ...nowy plik, jeśli chcesz wykonać kopię zapasową).
(5) Usuń YourOriginalSheet(odpowiednie dane są obecnie zapisane w ShortSheet.)
(6) Zmień nazwę ShortSheetna 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 macrokroki 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.xlsbskoroszycie do przyszłego użytku wszędzie i przypisałem mu naciśnięcie klawisza Ctrl + Shift + V.