Как удалить ненужные строки и столбцы на листе Excel
( Это не займет столько времени, сколько может предложить первый взгляд, и это безопасно!)
Есть два листа, упомянутых в процедуре ниже.
Давайте назовем ваш оригинальный лист YourOriginalSheet
(он представляет фактическое имя вашего исходного листа).
Назовем другой лист ShortSheet
, который будет содержать копию только соответствующих ячеек.
(1) В YourOriginalSheet
, Select
а Copy
диапазон соответствующих ячеек (не вставить еще нигде).
(2) Добавьте новый лист с именем ShortSheet
, поместите курсор в ячейку, представляющую верхний левый угол копируемого диапазона (вероятно A1
), и вставьте так:
(2a) Paste Special...
> Formulas
[щелкните правой кнопкой мыши верхний левый угол ячейки]
(2b) Paste Special...
>Values
(2c) 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
.