So löschen Sie unerwünschte Zeilen und Spalten in einem Excel-Arbeitsblatt
( Es wird nicht so lange dauern, wie ein erster Blick vermuten lässt und es ist sicher!)
Es gibt zwei Blätter, auf die im folgenden Verfahren Bezug genommen wird.
Nennen wir Ihr Originalblatt YourOriginalSheet
(es repräsentiert den tatsächlichen Namen Ihres Originalblatts).
Nennen wir das andere Blatt ShortSheet
, das nur eine Kopie der relevanten Zellen enthält.
(1) In YourOriginalSheet
, Select
und Copy
der Bereich der relevanten Zellen (Sie fügen nicht überall noch) nicht .
(2) Fügen Sie ein neues Blatt mit dem Namen hinzu ShortSheet
, setzen Sie den Cursor in die Zelle, die die obere linke Ecke des zu kopierenden Bereichs darstellt (wahrscheinlich A1
), und fügen Sie Folgendes ein:
(2a) Paste Special...
> Formulas
[Rechtsklick auf die obere linke Eckzelle]
(2b) Paste Special...
>Values
(2c) Paste Special...
>Formats
(2d) Paste Special...
>Column Widths
(2e) Fügen Sie andere Paste Special
Optionen hinzu, die Ihrer Meinung nach dazu beitragen könnten, dass das Blatt besser aussieht.
(3) Drücken Sie Ctrl-Shift-End
, um die untere rechte Ecke von ShortSheet
zu finden und sicherzustellen, dass sie alle relevanten Daten enthält .
(4) Save
die Arbeitsmappe. ( Save As ...
Eine neue Datei, wenn Sie ein Backup wünschen.)
(5) Löschen YourOriginalSheet
(Die relevanten Daten werden derzeit in gespeichert ShortSheet
.)
(6) Benennen Sie ShortSheet
in den tatsächlichen Namen Ihres Originalblatts um. "
Es hat sich nichts geändert, außer dass die Arbeitsmappe viel kleiner geworden ist. Daher sollten alle Makros, externen Verweise auf dieses Arbeitsblatt usw. weiterhin funktionieren.
Hier ist a macro
, um die Schritte in (2) auszuführen.
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
Vor Verwendung des Makros Select
und Copy
des relevanten Bereichs, wie in Schritt (1) ausgeführt.
Ich habe mein Makro in meiner Personal.xlsb
Arbeitsmappe für die zukünftige Verwendung überall gespeichert und ihm einen Tastendruck zugewiesen Ctrl + Shift + V
.