Как удалить ненужные строки и столбцы на листе 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