Як видалити небажані рядки та стовпці на робочому аркуші Excel
( Це не займе, поки перший погляд може підказати, і це безпечно!)
У наведеній нижче процедурі є два аркуші.
Давайте назвемо ваш оригінальний аркуш YourOriginalSheet
(він представляє фактичну назву оригінального аркуша).
Давайте назвемо інший аркуш ShortSheet
, який буде містити копію лише відповідних комірок.
(1) У YourOriginalSheet
, Select
а Copy
діапазон відповідних осередків (не вставити ще ніде).
(2) Додайте новий аркуш з назвою ShortSheet
, помістіть курсор у комірку, що представляє верхній лівий кут діапазону, який копіюється (ймовірно A1
), і вставте так:
(2a) Paste Special...
> Formulas
[клацніть правою кнопкою миші верхню ліву кутову клітинку]
(2b) Paste Special...
>Values
(2в) Paste Special...
>Formats
(2d) Paste Special...
>Column Widths
(2e) Включіть інші Paste Special
варіанти, які, на вашу думку, можуть допомогти покращити вигляд аркуша.
(3) Натисніть, Ctrl-Shift-End
щоб знайти нижній правий кут, ShortSheet
щоб переконатися, що він містить усі відповідні дані.
(4) Save
робочий зошит. ( Save As ...
новий файл, якщо ви хочете створити резервну копію.)
(5) Видалити YourOriginalSheet
(відповідні дані наразі зберігаються ShortSheet
.)
(6) Перейменуйте ShortSheet
фактичну назву оригінального аркуша`.
Нічого не змінилося, крім того, щоб зробити робочу книжку набагато меншою, тому всі макроси, зовнішні посилання на цей робочий аркуш тощо повинні працювати.
Ось macro
для виконання кроків у (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
Перед використанням макросу Select
та Copy
відповідного діапазону, як це було зроблено на кроці (1).
Я зберег свій макрос у своїй Personal.xlsb
робочій книжці для подальшого використання скрізь і призначив йому натискання клавіш Ctrl + Shift + V
.