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