покупка
Как удалить все строки ниже определенной строки или активной ячейки в Excel?
Эта статья может помочь вам в удалении всех строк ниже определенной строки или активной ячейки.
You may interest in:
Easily delete all blank rows in selected range/sheets or active/all sheet(s) in Excel
As below screenshot, you can delete all blank rows in selected range, active sheet, selected sheets or all sheets with only several clicks in Excel.
Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 60 days. Read More Download the free trial now
Удалить все строки под определенной строкой в Excel с кодом VBA
Следующий код VBA поможет вам удалить все строки ниже определенной строки в Excel.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: удалить все строки ниже определенных строк в Excel
Sub DeleteRowsBelow() Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete End SubВнимание: В коде VBA число 5 и Sheet1 указывают, что все строки под строкой 5 (включая строку 5) в Sheet1 будут удалены после запуска кода. Вы можете изменить их в зависимости от ваших потребностей.
3. Нажмите F5 ключ для запуска кода. Затем все строки под строкой 5 (включая строку 5) немедленно удаляются, как показано ниже.
Удалите все строки под активной ячейкой в Excel с кодом VBA
Для удаления всех строк чуть ниже активной строки ячейки в Excel вы можете попробовать следующий код VBA.
1. Выберите ячейку, из которой вы удалите все строки под ней, а затем нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: удалить все строки ниже активной строки ячейки в Excel
Sub DeleteAllBelow() Rows(ActiveCell.Row & ":" & Rows.Count).Delete End Sub3. нажмите F5 ключ для запуска кода. Затем все строки ниже активной строки ячейки (включая строку активной ячейки) немедленно удаляются.
Статьи по теме:
- Как удалить все строки, кроме первой строки заголовка в Excel?
- Как удалить строки, если ячейка больше / меньше определенного значения в Excel?
Как удалить неиспользуемые строки ниже рабочей области в excel
Евгений может, настало время выложить пример на десяток строк? На форуме почти каждый третий пост касается определения последней строки диапазона. И может не нужно будет удалять остаток листа. Вам подскажут решение поэффективней. С уважением, Сергей.
Я сам — дурнее всякого примера! .
Евгений Шульц
15.06.2010 21:59:37
Вариант (как один из многих): после проделанных манипуляций по очистке/удалению обязательно сразу же жмем Ctrl+Home и затем Ctrl+S!
Z.
Так тоже делал. После этого закрываю файл, открываю, Ctrl+End — 65536 строка.
И скроллер не меняется.
15.06.2010 22:00:58
Извините Сергей, не понял, что значит пример на десяток строк ? Что выложить ?
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
15.06.2010 22:18:20
Вашу таблицу в урезанном варианте. «При определении последней ячейки» — есть разные способы определения таковой. Возможно Вам не все известны. Гадать, что у Вас не так, нудно и малоперспективно. Поэтому и прошу: заголовок таблицы, несколько строк данных и подвал(это там где подписи начальников). От этого можно будет плясать. А так, все только гадают.
Я сам — дурнее всякого примера! .
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
15.06.2010 22:24:38
Я вообще-то имел ввиду файл сВашей таблицей в 2003 Экселе сохраненный. И не более 100 кб. размером(в соответствии с правилами форума). Еще раз с уважением, Сергей.
Я сам — дурнее всякого примера! .
Пользователь
Сообщений: 11312 Регистрация: 01.01.1970
15.06.2010 22:27:29
У меня работает.
Excel 2003, рабочая область до 400 строки.
При определении последней ячейки показывает на 65536 строку, до нее же и полоса прокрутки крутит, из-за этого в рабочую область скроллером практически невозможно попасть.
В ручную не удаляется. Выделяю 401 строку, далее выделяю все неиспользуемые строки CTRL+SHIFT+стрелка вниз. Пробовал очищать это выделение по всякому, удалять, сохраняться, ничего не меняется, неиспользуемая область остается, скроллер не изменятся.
Прикрепленные файлы
- post_131547.xls (25 КБ)
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
15.06.2010 22:32:59
Хитрый и коварный Serge 007.:-)
Я сам — дурнее всякого примера! .
15.06.2010 22:37:16
а если скрыть лишние строки?
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
15.06.2010 22:38:27
А Серж, что по-Вашему сделал?
Я сам — дурнее всякого примера! .
15.06.2010 23:44:51
Я вообще-то имел ввиду файл сВашей таблицей в 2003 Экселе сохраненный. И не более 100 кб. размером(в соответствии с правилами форума). Еще раз с уважением, Сергей.
Урезал таблицу до 25 строк, все по прежнему, размер книги с одним листом 1,5Мб О_о
Сжал в rar-архив — 20Кб. Скрыть неиспользуемые строки можно, но это не решает две проблемы: скроллинга и размера.
Прикрепленные файлы
- post_131563.rar (16.3 КБ)
Пользователь
Сообщений: 3103 Регистрация: 22.12.2012
Excel,MSSQL,Oracle,Qlik
16.06.2010 00:26:30
Я вообще-то имел ввиду файл сВашей таблицей в 2003 Экселе сохраненный. И не более 100 кб. размером(в соответствии с правилами форума). Еще раз с уважением, Сергей.
Урезал таблицу до 25 строк, все по прежнему, размер книги с одним листом 1,5Мб О_о
Сжал в rar-архив — 20Кб. Скрыть неиспользуемые строки можно, но это не решает две проблемы: скроллинга и размера.
да у вас лист волшебный удалите его а данные вставьте на новый
Прикрепленные файлы
- post_131570.xls (27 КБ)
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
16.06.2010 01:24:32
Ну вот, пока я шушукался в оффсайте R Dmitry уже успел.
Вот мой вариант(«да у вас лист волшебный удалите его а данные вставьте на новый») таки да. Откуда вес, так и не понял. Скролл работает и вниз и вбок. В том числе и на тяжелом файле.
Прикрепленные файлы
- post_131578.xls (33 КБ)
Я сам — дурнее всякого примера! .
Сообщений: 60959 Регистрация: 14.09.2012
Контакты см. в профиле
16.06.2010 01:43:48
У кого есть две версии? Сохраните в другой и потом обратно. Что получится — будут ли изменения?
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
16.06.2010 01:47:12
Юрий М имел ввиду 2003 и 2007.
Я сам — дурнее всякого примера! .
Евгений Шульц
16.06.2010 02:00:50
Вот мой вариант(«да у вас лист волшебный удалите его а данные вставьте на новый») таки да. Откуда вес, так и не понял. Скролл работает и вниз и вбок. В том числе и на тяжелом файле.
Прикольно, я нашел волшебный лист )
А я уж думал че с руками или с головой уже О_о
Заменить лист сложно, много данных и перекрестных ссылок с другими листами.
Видимо придеться использовать вариант со скрытием областей.
Всем спасибо за помощь )
Пользователь
Сообщений: 10514 Регистрация: 21.12.2012
16.06.2010 02:08:54
Сохраненный в формате 2010, файл весит 180 КБ, Но если его опять сохранять в 2003, то 1,43 МБ
Пользователь
Сообщений: 14868 Регистрация: 21.12.2012
E-mail и реквизиты в профиле.
16.06.2010 22:23:39
Может еще вот это?
Sub ReduceSize()
Dim lAntR As Long
Dim iAntK As Integer
Dim aR() As Single
Dim aK() As Single
Dim n As Integer
Dim sFil1 As String
Dim sFil2 As String
Dim sKat As String
Dim sArk As String
sFil1 = ActiveWorkbook.Name
sKat = ActiveWorkbook.Path
sArk = ActiveSheet.Name
lAntR = Cells.Find(What:=»*», SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
iAntK = Cells.Find(What:=»*», SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ReDim aR(lAntR)
ReDim aK(iAntK)
For n = 1 To lAntR
aR(n) = Rows(n).RowHeight
Next n
For n = 1 To iAntK
aK(n) = Columns(n).ColumnWidth
Next n
Application.CutCopyMode = False
Range(Cells(1, 1), Cells(lAntR, iAntK)).Copy
Workbooks.Add
sFil2 = ActiveWorkbook.Name
ActiveSheet.Name = sArk
ActiveSheet.Paste
Application.CutCopyMode = False
For n = 1 To lAntR
Rows(n).RowHeight = aR(n)
Next n
For n = 1 To iAntK
Columns(n).ColumnWidth = aK(n)
Next n
Application.DisplayAlerts = False
Workbooks(sFil2).SaveAs sKat & «\» & «(2)» & sFil1
Workbooks(sFil1).Close savechanges:=True
Application.DisplayAlerts = True
End Sub
Как удалить неиспользуемые строки ниже рабочей области в excel
Всегда задавался этим вопросом и тут случайно наткнулся на файл в котором он реализован.
Файл выложить не могу, не мой.
В конце используемых строк — пусто
Подскажите пожалуйста как такое сотворить.
Всегда задавался этим вопросом и тут случайно наткнулся на файл в котором он реализован.
Файл выложить не могу, не мой.
В конце используемых строк — пусто
Подскажите пожалуйста как такое сотворить. Виолин
К сообщению приложен файл: 0420142.jpg (9.1 Kb)
Сообщение Всегда задавался этим вопросом и тут случайно наткнулся на файл в котором он реализован.
Файл выложить не могу, не мой.
В конце используемых строк — пусто
Подскажите пожалуйста как такое сотворить. Автор — Виолин
Дата добавления — 12.07.2014 в 09:13
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Замечаний: 0% ±
Excel 2007
По фото — этот синий фон — не кликабельный. Скрытых строк нет, скроллинг до упора внизу.
По фото — этот синий фон — не кликабельный. Скрытых строк нет, скроллинг до упора внизу. Виолин
Сообщение По фото — этот синий фон — не кликабельный. Скрытых строк нет, скроллинг до упора внизу. Автор — Виолин
Дата добавления — 12.07.2014 в 09:14
Группа: Админы
Ранг: Местный житель
Сообщений: 19080
Замечаний: ±
Excel 365 & Mac Excel
Если так, как в файле, то они просто скрыты
Если так, как в файле, то они просто скрыты Pelena
К сообщению приложен файл: 4051964.xlsx (8.9 Kb)
Сообщение Если так, как в файле, то они просто скрыты Автор — Pelena
Дата добавления — 12.07.2014 в 09:19
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Замечаний: 0% ±
Excel 2007
Да, действительно. Прошу прощения что ввел в заблуждение.
Пробовал отобразить — не отображалось. Сейчас перепроверил — так и есть, как вы написали.
Видимо все таки невозможно :))
Да, действительно. Прошу прощения что ввел в заблуждение.
Пробовал отобразить — не отображалось. Сейчас перепроверил — так и есть, как вы написали.
Видимо все таки невозможно :)) Виолин
Сообщение Да, действительно. Прошу прощения что ввел в заблуждение.
Пробовал отобразить — не отображалось. Сейчас перепроверил — так и есть, как вы написали.
Видимо все таки невозможно :)) Автор — Виолин
Дата добавления — 12.07.2014 в 11:20
Группа: Админы
Ранг: Местный житель
Сообщений: 19080
Замечаний: ±
Excel 365 & Mac Excel
Невозможно что?
Невозможно что? Pelena
Сообщение Невозможно что? Автор — Pelena
Дата добавления — 12.07.2014 в 11:25
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Замечаний: 0% ±
Excel 2007
Pelena, Убрать лишние(не используемые) строки.
После того как скрыл пустые строки ужасно начало тормозить открытие/закрытие структуры.
Делаю видимыми — не тормозит. Как на это можно повлиять, можете подсказать?
Pelena, Убрать лишние(не используемые) строки.
После того как скрыл пустые строки ужасно начало тормозить открытие/закрытие структуры.
Делаю видимыми — не тормозит. Как на это можно повлиять, можете подсказать? Виолин
Сообщение Pelena, Убрать лишние(не используемые) строки.
После того как скрыл пустые строки ужасно начало тормозить открытие/закрытие структуры.
Делаю видимыми — не тормозит. Как на это можно повлиять, можете подсказать? Автор — Виолин
Дата добавления — 12.07.2014 в 11:59
Группа: Админы
Ранг: Местный житель
Сообщений: 16420
Замечаний: ±
Excel 2016
Цитата Виолин, 12.07.2014 в 09:13, в сообщении № 1
как такое сотворить
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки
Удалите их перед скрытием
Цитата Виолин, 12.07.2014 в 09:13, в сообщении № 1
как такое сотворить
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки
Удалите их перед скрытием Serge_007
Цитата Виолин, 12.07.2014 в 09:13, в сообщении № 1
как такое сотворить
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки
Удалите их перед скрытием Автор — Serge_007
Дата добавления — 12.07.2014 в 12:00
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Замечаний: 0% ±
Excel 2007
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
«Уменьшить» лист Excel
Спасибо за ссылку.
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
Удалите их перед скрытием
Удалил — скрыл — новая проблема тормозит структура
Всего 500 строк 12 групп в каждой по 4 подгруппы.
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
«Уменьшить» лист Excel
Спасибо за ссылку.
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
Удалите их перед скрытием
Удалил — скрыл — новая проблема тормозит структура
Всего 500 строк 12 групп в каждой по 4 подгруппы. Виолин
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
«Уменьшить» лист Excel
Спасибо за ссылку.
Цитата Serge_007, 12.07.2014 в 12:00, в сообщении № 7
Удалите их перед скрытием
Удалил — скрыл — новая проблема тормозит структура
Всего 500 строк 12 групп в каждой по 4 подгруппы. Автор — Виолин
Дата добавления — 12.07.2014 в 12:11
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Замечаний: 0% ±
Excel 2003, 2010
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки.
может, достаточно для видимых строк снять защиту ячеек, а потом защитить лист?
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки.
может, достаточно для видимых строк снять защиту ячеек, а потом защитить лист? ikki
Цитата Виолин, 12.07.2014 в 11:59, в сообщении № 6
Убрать лишние(не используемые) строки.
может, достаточно для видимых строк снять защиту ячеек, а потом защитить лист? Автор — ikki
Дата добавления — 12.07.2014 в 21:11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Замечаний: 0% ±
Excel 2003
EXCEL 2003: ниже рабочей области ЛКМ выделяем произвольно ячейку в столбце А. В графе «Имя» (над столбцом А) пишем: IV65536. Нажимаем Shift+Enter, ниже и правее Вашей выбранной ячейки выделяется область. ЛКМ нажимаем «Формат», «строка», «скрыть.
EXCEL 2003: ниже рабочей области ЛКМ выделяем произвольно ячейку в столбце А. В графе «Имя» (над столбцом А) пишем: IV65536. Нажимаем Shift+Enter, ниже и правее Вашей выбранной ячейки выделяется область. ЛКМ нажимаем «Формат», «строка», «скрыть. arskye
Сообщение EXCEL 2003: ниже рабочей области ЛКМ выделяем произвольно ячейку в столбце А. В графе «Имя» (над столбцом А) пишем: IV65536. Нажимаем Shift+Enter, ниже и правее Вашей выбранной ячейки выделяется область. ЛКМ нажимаем «Формат», «строка», «скрыть. Автор — arskye
Дата добавления — 03.12.2015 в 23:27
Вставка и удаление строк и столбцов в Эксель
Столбцы и строки являются основой листа Excel, и возможность добавлять или удалять их имеет первостепенное значение. Узнайте, как вставлять и удалять столбцы и строки в Excel, в том числе с помощью команд ленты, щелчка правой кнопкой мыши и сочетания клавиш.
Образовательный центр РУНО посвятил теме работы в Excel отдельный практический курс, по окончании которого даже начинающий специалист сможет разобраться в любых сложных и запутанных функциях программы. Узнайте подробнее о курсе: Microsoft Excel. Уровень 1. Базовый
Добавление и удаление строк
Выделите любую ячейку в строке, а затем перейдите на вкладку главная > Вставить > Вставить строки или Удалить строки на листе.
Вы также можете щелкнуть номер строки таблицы Excel правой кнопкой мыши и выбрать команду Вставить или Удалить.
Допустим, нам надо добавить заголовок к таблице в Excel. Для этого ставим курсор на заголовок первой строки и выбираем команду “Вставить”.
Видим, что у нас над таблицей добавилась новая строка в Excel, куда можно вписать заголовок. При этом, важно помнить, что строки всегда добавляются ниже текущей строки.
налогичным образом можно выбрать команду “Удалить”, щелкнув по заголовку той строки, которую необходимо убрать.
Вставка и удаление столбцов
Выделите любую ячейку в столбце, а затем перейдите на вкладку “Главная” > “Вставить” > “Вставить столбцы на лист” или “Удалите столбцы на листе”.
В нашем примере мы хотим вставить дополнительный столбец между столбцами “B” и “C”. Для этого выделяем столбец “С” и применяем команду.
Как видим, у нас появился новый столбец в нужном месте для внесения дополнительных данных.
Вы также можете щелкнуть правой кнопкой мыши в верхней части столбца и выбрать команду “Вставить” или “Удалить”.
Сочетания клавиш
В повседневной работе Excel для вставки или удаления строки или столбца обычно используется вкладка листа. Но на самом деле вы также можете легко использовать сочетания клавиш для быстрой вставки или удаления строки / столбца / вкладки по мере необходимости в Excel.
Итак, чтобы не тратить время на поиск нужной команды в меню Excel, можно воспользоваться командой “горячих клавиш”. Обратите внимание, что их следует использовать после выделения всей строки или столбца.
Чтобы выделить строку, в которой стоит курсор, нажмите комбинацию горячих клавиш: SHIFT+ПРОБЕЛ. Горячие клавиши для выделения столбца — CTRL+ПРОБЕЛ. Затем нажмите CTRL + ПЛЮС. После применения команды новая пустая строка или же столбец добавляется выше (слева) от выбранной строки (столбца).
Если вы используете урезанную версию клавиатуры, как у большинства ноутбуков, то к команде необходимо добавлять клавишу SHIFT.
Таким же способом можно удалять ненужные строки или столбцы, только лишь с той разницей, что вместо клавиши ПЛЮС будет использоваться клавиша МИНУС.
Полезно знать!
Вставка новых столбцов и строк на самом деле является заменой. Ведь количество строк 1 048 576 и колонок 16 384 не меняется. Просто последние, заменяют предыдущие… Данный факт следует учитывать при заполнении листа данными более чем на 50%-80%
Все секреты работы с таблицами Excel, которые могут существенно сэкономить ваше время при работе с данными, подробно рассматриваются на курсе Microsoft Excel. Уровень 1. Базовый. Получите бесплатный пробный доступ на нашем сайте.
Профессиональный совет:
Excel — один из самый мощный инструмент для управления и анализа различных типов данных. Курсы образовательного центра “РУНО” по Excel содержат подробные уроки по изучению программы и тому, как использовать различные формулы, таблицы и диаграммы Excel для управления малыми и крупными бизнес-процессами.
Пройдя курсы учебного центра “РУНО”, вы сможете организовать слаженную работу команды, грамотно оформлять трудовые отношения и эффективно управлять компанией.
- понимать структуру книги Excel
- правильно вводить данные, использовать автозаполнение ячеек
- осуществлять вычисления по формулам
- строить диаграммы для наглядного представления табличных данных
- осуществлять сортировку и фильтрацию данных
По окончании вы получите удостоверение о повышении квалификации!