Як видалити небажані рядки та стовпці на робочому аркуші 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.