Excel ошибка при удалении

Недостаточно ресурсов для удаления строк и столбцов

На чтение 3 мин. Просмотров 437 Опубликовано 13.05.2021

У Харви есть большой рабочий лист Excel, на данный момент 700 столбцов и 1000 строк. В нем есть формулы примерно в 600 из этих столбцов, некоторые из которых относятся к другим рабочим листам, хранящимся на сервере. Всего на листе около 420 000 формул. Ему нужно удалить несколько строк и столбцов, но Excel выдает сообщение об ошибке, что у него недостаточно ресурсов. Харви поискал проблему в Google и попробовал все предложенные решения, но проблема все еще не устранена. Он задается вопросом, есть ли какие-нибудь мысли относительно того, как он может удалить столбцы и строки.

Отслеживание и исправление такого типа проблемы может быть неприятным, поскольку оно может быть вызвано множеством причин. (Microsoft не так хороша в предоставлении полезной информации в некоторых своих сообщениях об ошибках; это конкретное сообщение является ярким примером.) Есть несколько довольно простых вещей, которые вы можете попробовать.

• Отключите автоматическое вычисление, прежде чем пытаться выполнить удаление.
• Удаляйте строки и столбцы по одной строке и столбцу за раз, а не удаляйте сразу большое количество строк и столбцов.
• Очистить содержимое столбцов и строк вместо их удаления. Сохраните после очистки, а затем попробуйте удалить ранее очищенные столбцы и строки.
• Перезагрузите систему, сначала откройте Excel и попробуйте выполнить удаление.
• Попробуйте открыть книгу на другом компьютере или в более поздней версии Excel.
• Используйте «Сохранить как», чтобы сохранить книгу на локальном диске, затем откройте новую версию книги и выполните удаления .

Если эти рекомендации не работают, вам нужно будет продолжить процесс проб и ошибок. Вы можете найти полезную информацию о возможных решениях на этой странице:

 https://www.add-ins.com/support/out-of-memory-or-not-enough-resource-  проблема-с-microsoft-excel.htm 

Совет на этой странице особенно полезен, если вы подозреваете, что проблема с ресурсами связана с некорректно работающей надстройкой.

Вы также можете проверить, не превышаете ли вы ограничения, наложенные на Excel со стороны Microsoft. Вы можете найти информацию об этих ограничениях здесь:

 https://support.office.com/en-us/article/Data-Model-specification-and-limits-19aa79f8-e6e8-45a8-  9be2-b58778fd68ef 

Обратите внимание, что эта страница также предоставляет доступ к «оптимизатору размера книги». Этот инструмент может помочь вам уменьшить размер вашей книги и тем самым освободить ресурсы.

Наконец, возможно, ваша книга слегка повреждена. (У меня такое случалось со мной с гораздо меньшими книгами.) Лучшее решение в этом случае – скопировать данные из рабочего листа в новую книгу. Не копируйте и не перемещайте листы целиком; вам нужно скопировать фактические данные. Вы даже можете попытаться сохранить свою книгу как файл CSV, а затем загрузить файл CSV в другую книгу. Таким образом вы потеряете форматирование, но все остальное должно работать нормально.

Похоже, «поломалася»    
Проблема только с этим листом. При попытке копирования листа (формулы заменил на значения) в другую книгу вываливается в ошибку.

Вот оно.
Excel ОЧЕНЬ не любит увлечения условным форматированием. Сильно разрастается объем файла, начинаются такие вот фокусы.
На листе до сотни (не считал) форматов условного форматирования! Много дублей. Удалите лишние. или вообще все.
Вкладка Главная-Условное_форматировние-Управление_правилами, здесь можно просмотреть заданные форматы и удалить лишние.
Удалить все одним махом:
Ctrl+G-Выделить-Условные_форматы, зайти Главная_УФ,-Удалить_правила_со_всего_листа

P.S. Интересно же, сколько. Недооценил…Посчитал количество условий УФ — 468!!! плюс-минус 5 шт.

Пока вы относите ячейку к другой ячейке, в ячейке будет отображаться ошибка #REF, если ссылочная строка была удалена, как показано ниже. Теперь я расскажу, как избежать ошибки #ref и автоматически ссылаться на следующую ячейку при удалении строки.

Избегайте ошибки #REF при удалении строк

---

Избегайте ошибки #REF при удалении строк

Чтобы избежать ошибки #REF, вы не можете использовать общую формулу = ссылка на ячейку, вам нужна другая формула.

Выберите ячейку рядом с ячейкой, в которой необходимо использовать формулу для ссылки на нее, и введите разницу номеров строк между ячейкой и ссылочной ячейкой. Например, я хочу связать B12 с B2, а затем ввести 10 в C2. Смотрите скриншот:

В ячейке B2 введите = СМЕЩЕНИЕ (B2; C2;), и нажмите Enter .

Теперь, когда вы удаляете строку 12, содержимое ячейки будет обновлено и получит значение в новой строке 12.

---

Относительные статьи:

• Как избежать ошибок округления при расчетах в Excel?

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (3)

Оценок пока нет. Оцените первым!

Удаление пустых строк в таблице Microsoft Excel

​Смотрите также​: А как исправить​ = » «​ сделать стандартным УФ(Условным​Почитай тут:​ это?​ но это не​ На форуме почти​ отвлекала от работы.​Программа отмечает пустые ячейки.​ Они мешают работе,​ 21. Получится так.​Далее перейдите во вкладку​ таблицы. Однако можно​ где имеются данные.​ столбцы с листа».​ поиск и удаление​Таблицы, в которых присутствуют​

​ название темы?)))​ Then​

Стандартное удаление

​ Форматированием)​И тут:​Sub ReduceSize()​ решает две проблемы:​ каждый третий пост​ Думал, что впоследствии​ На главной странице​ отвлекают.​Эти скрытые строки (18​ «Главная» и кликните​ ускорить этот процесс,​ В этом случае,​ После этого, нужный​ может занять значительное​ пустые строки, выглядят​Pelena​If delRa Is​

​Sub Макрос()​KuklP​Dim lAntR As​ скроллинга и размера.​ касается определения последней​ данные еще понадобятся.​ находим вкладку «Ячейки»,​

​Некоторые формулы могут работать​ и 21) нам​ по кнопке «Сортировка​

​ пропустив этапы по​ может произойти смещение​ столбец будет удален.​ время. В этом​ не очень эстетично.​: Название темы Вы​ Nothing Then​Dim x As​: Это макрос. Попробуйте​ Long​R Dmitry​ строки диапазона. И​

​ Не понадобились –​ нажимаем «Удалить».​ некорректно. Использовать ряд​ нужно удалить.​ и фильтр», а​

Сортировка

​ вызову контекстного меню.​ ячеек, и таблица​Урок: Сортировка в Microsoft​ случае, должна помочь​ К тому же,​ сами уже не​Set delRa =​ Range: Application.ScreenUpdating =​ выполнить его в​Dim iAntK As​: Урезал таблицу до​ может не нужно​

​ скрытые строки можно​Результат – заполненный диапазон​ инструментов в отношении​Выделяем ячейки нового​ в контекстном меню​ Для этого просто​ нарушится.​ Excel​ сортировка.​ из-за лишних строк​ сможете исправить, слишком​ Cells(i, 1)​ False​ своем файле. Вам​ Integer​ 25 строк, все​ будет удалять остаток​ удалить: они влияют​ «без пустот».​ не полностью заполненного​ пустого столбца D.​

​ выберите «Фильтр».​ выделите ненужные строки​Как видим, существует несколько​Ещё одним вариантом скрыть​Выделяем всю табличную область.​ навигация по ним​ давно была начата​Else​Set x =​ он никак не​Dim aR() As​

​ по прежнему, размер​ листа. Вам подскажут​ на формулы, мешают.​Внимание! После удаления часть​ диапазона невозможно. Научимся​ Затем, чтобы выделить,​Как только вы это​

​ и нажмите сочетание​ способов удаления пустых​

​ пустые ячейки является​ Кликаем по ней​ может усложниться, так​ тема, предложите новое​Set delRa =​

​ [C:C].Find(0, , ,​ навредит. Ваш файл​ Single​ книги с одним​ решение поэффективней. С​В тренировочной таблице скрыты​ ячеек перескакивает вверх​ быстро удалять пустые​

​ только, видимые строки​ сделаете, в шапке​ клавиш «CTRL+-«.​ ячеек из таблицы.​ применение фильтра.​ правой кнопкой мыши,​ как придется прокручивать​ в посте, я​ Union(Cells(i, 1), delRa)​ xlWhole)​ не пострадает. Будет​Dim aK() As​ листом 1,5Мб О_о​ уважением, Сергей.​ ряды 5, 6,​

​ – данные могут​ ячейки в конце​

Применение фильтра

​ (без скрытых), нажимаем​ столбцов появятся выдающие​Также есть альтернатива. Вы​

​ Каким именно способом​Выделяем всю область таблицы,​ и в контекстном​ больший диапазон ячеек​ исправлю​End If​If Not x​ создан новый -​ Single​Сжал в rar-архив​

​Евгений Шульц​ 7:​ перепутаться. Поэтому для​ или середине таблицы.​ на функцию «Найти​ списки, вам необходимо​

​ можете после выделения​ лучше воспользоваться, зависит​ и, располагаясь во​ меню выбираем пункт​

​ для перехода из​-=Dj=-​End If​ Is Nothing Then​

​ (2)+имя Вашего файла.​Dim n As​

Выделение ячеек

​ — 20Кб. Скрыть​: Так тоже делал.​Будем их удалять.​ перекрывающихся диапазонов инструмент​ Будем использовать простые​ и выделить» и​ развернуть один из​ строк перейти во​ от сложности таблицы,​ вкладке «Главная», делаем​ «Сортировка». После этого,​ начала таблицы в​: Название: «Удаление строки​Next​[C:C].ColumnDifferences(x).EntireRow.Hidden = True​

​ Так мне удалось​ Integer​ неиспользуемые строки можно,​ После этого закрываю​Переходим на «Файл»-«Сведения»-«Поиск проблем»​

​ не подходит.​ средства, доступные пользователю​ выбираем функцию «Выделить​ них (любой).​ вкладку «Главная» и​ и от того,​ клик по кнопке​ появляется ещё одно​

​ конец. Давайте выясним,​ при определенном значении​If Not delRa​

​ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete​ уменьшить Ваш пример​Dim sFil1 As​ но это не​ файл, открываю, Ctrl+End​ — инструмент «Инспектор​Полезный совет! Сочетание клавиш​ любого уровня.​ группу ячеек».​В меню, которое появилось,​ там на панели​

​ как именно по​ «Сортировка и фильтр»,​ меню. В нём​ какие существуют способы​ в столбце С»​ Is Nothing Then​Rows.Hidden = False​ с 1.5мб до​ String​ решает две проблемы:​ — 65536 строка.​ документов».​ для удаления выделенной​

​Чтобы показать на примере,​

lumpics.ru

Четыре способа, как в Excel удалить пустые строки

​В появившемся окне ставим​ надо снять галку​ инструментов из выпадающего​ ней разбросаны пустые​ которая расположена в​ нужно выбрать один​ удаления пустых строк​Pelena​ delRa.EntireRow.Interior.Color = 255​End If​ 18кб. Если интересно,​Dim sFil2 As​ скроллинга и размера.{/post}{/quote}​И скроллер не​В отрывшемся окне ставим​ строки в Excel​ как удалить лишние​ галочку у функции​ с пункта «Пустые»​ списка «Удалить» выбрать​ строки (располагаются одним​ блоке настроек «Редактирование».​

Простое удаление

​ из следующих пунктов:​ в программе Microsoft​: Тему переименовала, ответы​End Sub​End Sub​ пошаговые инструкции Вам​ String​да у вас​ меняется.​

​ галочку напротив «Скрытые​ CTRL+«-». А для​ строки, для демонстрации​

1. ​ «Только видимые ячейки».​ и нажать «ОК».​ пункт «Удалить строки​
2. ​ блоком, или перемешаны​ В появившемся меню,​ «Сортировка от А​
3. ​ Excel, и как​ открыла​

​KuklP​Manyasha​ либо я, либо​Dim sKat As​ лист волшебный удалите​Guest​ строки и столбцы».​ ее выделения можно​ порядка действий возьмем​Нажимаем «ОК». Получится так​Вот и все, как​ с листа», что​ со строками, заполненными​ делаем переход по​ до Я», «От​ их убрать быстрее​ant6729​: Вопросов как раз-таки​

​:​ любой из планетян​ String​ его а данные​: Извините Сергей, не​ Нажимаем «Проверить».​ нажать комбинацию горячих​ таблицу с условными​ – сплошной выделенный​ видно, третий способ,​

Сортировка

​ также довольно удобно.​ данными).​ пункту «Фильтр».​ минимального к максимальному»,​ и проще.​: На счет последнего​ два, как и​ZatX​ дадут. Это не​Dim sArk As​ вставьте на новый​ понял, что значит​Через несколько секунд программа​ клавиш SHIFT+ПРОБЕЛ.​

​ данными:​ диапазон прервется у​

1. ​ как удалить лишние​Первый способ, как в​Автор: Максим Тютюшев​
2. ​В ячейках шапки таблицы​ или «От нового​Скачать последнюю версию​ не уверен, но​
3. ​ пишет Вам модератор​, у нас не​ сложно. Попробуйте.​ String​KuklP​ пример на десяток​

​ отображает результат проверки.​​Пример 1. Сортировка данных​ скрытых ячеек.​ строки в Excel,​ Excel удалить пустые​Работая с огромным объемом​ появляется характерный значок.​ к старому». Какой​ Excel​

Использование фильтра

​ работает.​ и они абсолютно​ принято помогать в​KuklP​sFil1 = ActiveWorkbook.Name​: Ну вот, пока​

1. ​ строк ? Что​Нажимаем «Удалить все». На​Чтобы удалить одинаковые строки​ в таблице. Выделяем​Теперь, не убирая​ намного удобнее, чем​ строки, мы разобрали.​ данных в таблицах​
2. ​ Кликаем по этому​ именно из перечисленных​Самым известным и популярным​Ответ удален. Вопрос не​ разные. Давайте все​ темах с нарушениями​
3. ​: Это одно​sKat = ActiveWorkbook.Path​ я шушукался в​ выложить ?​ экране появится соответствующее​ в Excel, выделяем​
4. ​ всю таблицу. Открываем​ выделения ячеек, в​ некоторые из предыдущих.​ Однако он не​

​ «Эксель», ненароком можно​ значку в любом​ пунктов будет находиться​ способом удаления пустых​ относится к теме​ темы будем называть​

Выделение

​ Правил форума.​ и то же.:-)​sArk = ActiveSheet.Name​ оффсайте R Dmitry​KuklP​ уведомление.​ всю таблицу. Переходим​ вкладку «Данные» -​ первой ячейке выделенного​Напоследок расскажем еще об​

1. ​ очень удобен, если​ оставить пустые строки,​ на ваш выбор​ в меню, зависит​ строк, является использование​
2. ​-=Dj=-​ «Эксель» и валить​Почитайте на досуге:​
3. ​Alex_ST​lAntR = Cells.Find(What:=»*»,​ уже успел.​: Вашу таблицу в​
4. ​В результате проделанной работы​ на вкладку «Данные»​ инструмент «Сортировка и​ столбца пишем цифру​ одном интересном способе,​

​ нужно удалить много​ что в некоторых​ столбце.​ от типа данных,​ контекстного меню программы​: ant6729, По поводу​ в них все,​ Ответы в темах​: Продолжение темы про​

​ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row​

fb.ru

Как удалить скрытые строки в Excel.

​Вот мой вариант(«да​​ урезанном варианте. «При​ скрытые ячейки удалены,​ ​ — «Работа с​​ фильтр» — нажимаем​ «1» и нажимаем​ как удалить из​ строк, ведь выделять​ случаях совсем недопустимо.​
​В появившемся меню, снимаем​ которые размещены в​
​ Эксель. Чтобы убрать​ выделения могут возникать​
​ что в голову​ с нарушением Правил​ фитнес для файлов​
​iAntK = Cells.Find(What:=»*»,​ у вас лист​ определении последней ячейки»​ нумерация восстановлена.​ данными» — «Удалить​ кнопку «Сортировка». Или​ сочетание клавиш «Ctrl»​ таблицы пустые строки.​ их придется довольно​
​ В этой статье​ галочку с пункта​ ячейках таблицы.​​ строки таким способом,​ проблемы из-за того​ придет. Что можно​ форума​
​ Серёга-KuklP перенёс в​ SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column​ волшебный удалите его​ — есть разные​Таким образом, убрать пустые,​ дубликаты».​ щелкаем правой кнопкой​
​ + «Enter».​ На сей раз​ долго. Именно поэтому​
​ пойдет речь о​ «Пустые». Жмем на​После того, как вышеуказанная​ выделяем диапазон ячеек,​
​ что образец немного​ будет найти в​-=Dj=-​ форум Серёги-Serge007 в​ReDim aR(lAntR)​ а данные вставьте​ способы определения таковой.​ повторяющиеся или скрытые​
​В открывшемся окне выделяем​ мыши по выделенному​Во всех выделенных​ будем использовать выделение​ мы сейчас расскажем,​ том, как в​ кнопку «OK».​ операция будет проделана,​ который не содержит​
​ корректировался вручную, на​
​ такой свалке?​: По поводу темы​ топик «Файл распух​ReDim aK(iAntK)​ на новый») таки​ Возможно Вам не​
​ ячейки таблицы можно​ те столбцы, в​ диапазону и делаем​ видимых ячейках появится​ ячеек, которое осуществляется​ как в Excel​ Excel удалить пустые​Как видим, после этого,​ все пустые ячейки​ данных, и кликаем​

excel-office.ru

Как удалить пустые строки в Excel быстрыми способами

​ самом деле там​И код надо​ — виноват, извините.​ до нелогичных размеров»​For n =​ да. Откуда вес,​

​ все известны. Гадать,​ с помощью встроенного​ которых находятся повторяющиеся​ сортировку «от минимального​ цифра «1».​ с помощью специального​ удалить пустые строки​ строки. Будет представлено​ все пустые строки​ переместятся в самый​ правой кнопкой мыши.​

Как в таблице Excel удалить пустые строки?

​ стоит пробел в​ оформлять тегами. Знак​ а на счет​ ( )​ 1 To lAntR​ так и не​

​ что у Вас​ функционала программы Excel.​ значения. Так как​ к максимальному».​Отображаем скрытые строки.​ инструмента. Но обо​ при помощи инструмента​ четыре способа, которые​ исчезли, так как​ низ таблицы. Теперь,​ В раскрывшемся контекстном​ ячейках.​

​ # на панели​ 1 вопрос -​-=Dj=-​

​aR(n) = Rows(n).RowHeight​ понял. Скролл работает​ не так, нудно​Евгений Шульц​ нужно удалять повторяющиеся​Пустые строки после сортировки​ В ячейках скрытых​ всем по порядку:​ «Сортировка».​

​ помогут вам это​ они были отфильтрованы.​ мы можем удалить​ меню делаем переход​Pelena​ редактирования:​ 1 тема, так​: Здравствуйте.​Next n​ и вниз и​ и малоперспективно. Поэтому​: Как удалить неиспользуемые​ строки, то должны​

​ по возрастанию оказываются​ строк нет цифры​Снова выделите всю таблицу,​Итак, вам необходимо сделать​ сделать. Советуется дочитать​Урок: Как использовать автофильтр​

​ эти ячейки любым​ по пункту «Удалить…».​: Опять двадцать пять!​-=Dj=-​ вопрос по сути​Помогите с макросами,​For n =​ вбок. В том​

​ и прошу: заголовок​ строки ниже рабочей​

​ быть выделены все​ внизу диапазона.​ «1». Получится так.​ в которой находятся​

​ следующее:​ статью до финала,​

​ в Microsoft Excel​ из тех способов,​ Можно не вызывать​ При чём тут​: В таком случае,​ то один… вот​

​ пожалуйста.​ 1 To iAntK​ числе и на​ таблицы, несколько строк​ области?​ столбцы.​Если порядок значений важен,​

​Далее, выделяем столбец​

Как удалить повторяющиеся строки в Excel?

​ нужные вам данные​Выделите всю таблицу. Для​ чтобы в конце​Ещё один способ удаления​ о которых шла​ контекстное меню, а​ выделение?! В теме​

​ второй вопрос просто​ сам нашел решение,​Нужно удалить все​aK(n) = Columns(n).ColumnWidth​ тяжелом файле.​ данных и подвал(это​Excel 2003, рабочая​После нажатия ОК Excel​

​ то до сортировки​ D. Устанавливаем сортировку​

Как удалить каждую вторую строку в Excel?

​ и непосредственно пустые​ этого можно нажать​ принять для себя​

​ использует выделение группы​ речь в первой​ набрать на клавиатуре​

1. ​ про удаление строки!​ не нужно было​ макрос один просто​ строки в таблице,​Next n​Юрий М​ там где подписи​ область до 400​ формирует мини-отчет вида:​ необходимо вставить пустой​ «От минимального к​ строки.​ кнопку «CTRL+A».​ решение, каким способом​
2. ​ пустых ячеек. Чтобы​ части урока.​ сочетание клавиш «Ctrl+-».​
3. ​-=Dj=-​ задавать…​ изменил условие и​
4. ​ в которых столбец​Application.CutCopyMode = False​: У кого есть​

​ начальников). От этого​ строки.​Проредить таблицу можно с​

Как удалить скрытые строки в Excel?

​ столбец, сделать сквозную​ максимальному» или «От​Перейдите во вкладку «Главная»​Нажмите правую кнопку мыши​ пользоваться, так как​ использовать этот способ,​Если критически важен порядок​Появляется небольшое окошко, в​, создайте уже отдельную​KuklP​

​ действие.​ С равен нулю.​Range(Cells(1, 1), Cells(lAntR,​

​ две версии? Сохраните​

1. ​ можно будет плясать.​При определении последней​ помощью макроса. Например,​
2. ​ нумерацию. После сортировки​ максимального к минимальному».​ и нажмите по​ на таблице и​
3. ​ они в достаточной​ сначала выделяем всю​
4. ​ размещения ячеек в​ котором нужно указать,​ тему по этому​

​: Почему? В новой​Удаление​Выделить сроки цветом,​

​ iAntK)).Copy​ в другой и​ А так, все​ ячейки показывает на​ такого:​

exceltable.com

Как удалить неиспользуемые строки ниже рабочей области

​ и удаления пустых​​ Все строки, с​ «Найти и выделить».​ в меню кликните​
​ степени отличаются друг​ таблицу. Затем, находясь​ таблице, то перед​
​ что конкретно мы​ вопросу​ теме. Решается одной​Sub delete()​ в которых столбец​Workbooks.Add​ потом обратно. Что​ только гадают.​
​ 65536 строку, до​А можно ручками. Предлагаем​ строк вновь отсортировать​ пустыми ячейками переместились​В меню, которое появится,​ по строке «Сортировка».​ от друга.​ во вкладке «Главная»,​ тем как совершить​ хотим удалить. Выставляем​KuklP​

​ строкой. Да и​​Dim x, i&,​ G или H​sFil2 = ActiveWorkbook.Name​
​ получится — будут​KuklP​ нее же и​ простенький способ, доступный​ данные по вставленному​ вниз таблицы.​
​ вам необходимо нажать​

​Из дополнительного меню вам​​Для начала разберемся, как​ кликаем по кнопке​ сортировку, вставляем в​ переключатель в позицию​: Отож. Я уж​ первый вопрос можно​ delRa As Range​ пуст.​ActiveSheet.Name = sArk​ ли изменения?​: Я вообще-то имел​ полоса прокрутки крутит,​

​ каждому пользователю.​​ столбцу с нумерацией.​Осталось их выделить и​ на строку «Выделение​ необходимо выбрать один​
​ в Excel удалить​ «Найти и выделить»,​

​ середину таблицы ещё​​ «строку». Жмем на​ думал, раз модеры​ без цикла и​x = Range(«C1:C»​Прошу сделать двумя​

​ActiveSheet.Paste​​KuklP​ ввиду файл сВашей​ из-за этого в​В конце таблицы делаем​Пример 2. Фильтр. Диапазон​ удалить удалить обычным​ группы ячеек».​ из пунктов, в​ пустые строки самым​ которая расположена на​ один столбец.​ кнопку «OK».​ не против, в​ короче, просто удалите​ & [a65535].End(xlUp).Row).Value​ отдельными макросами.​Application.CutCopyMode = False​: Юрий М имел​

​ таблицей в 2003​​ рабочую область скроллером​ вспомогательный столбец. Заполняем​ должен быть отформатирован​ способом. какими способами​В появившемся меню, вам​ соответствии с тем,​ простым способом, который​ ленте в группе​Все ячейки этого столбца​

​For i =​​Manyasha​For n =​

​ ввиду 2003 и​​ Экселе сохраненный. И​ практически невозможно попасть.​

​ чередующимися данными. Например,​​ как таблица с​ быстро выделить строки,​

​ нужно установить переключатель​​ какой тип данных​ используют практически все​ инструментов «Редактирование». В​ нумеруем по порядку.​ выделенного диапазона будут​
​ опубликовать и свой​ топика:​ 1 To UBound(x)​:​ 1 To lAntR​ 2007.​

​ не более 100​​В ручную не​ «о у о​ заголовками. Выделяем «шапку».​ читайте в статье​ на «пустые ячейки»​
​ находится в таблице.​ неопытные пользователи, но​ появившемся меню, кликаем​Затем, производим сортировку по​ удалены.​ вариант на второй​
​Sub DeleteNulRows()​If x(i, 1)​-=Dj=-​Rows(n).RowHeight = aR(n)​

​Евгений Шульц​​ кб. размером(в соответствии​ удаляется. Выделяю 401​ у о у»​ На вкладке «Данные»​
​ «Как выделить в​ и нажать кнопку​Как только вы сделаете​ в некоторых случаях​ по пункту «Выделение​ любому другому столбцу,​Как альтернативный вариант, можно​ вопрос​On Error Resume​ = «0» Then​, для вопросов о​Next n​

​: Прикольно, я нашел​​ с правилами форума).​ строку, далее выделяю​ и т.д. Вносим​ нажимаем кнопку «Фильтр»​ Excel ячейки, таблицу,​ «ОК».​

​ выбор, все пустые​​ именно такое удаление​ группы ячеек…».​ и удаляем перемещенные​

​ выделить ячейки в​​Привет, Леночек.​ Next​
​If delRa Is​ макросах есть своя​For n =​ волшебный лист )​
​ Еще раз с​ все неиспользуемые строки​ значения в первые​ («Сортировка и фильтр»).​
​ др.» здесь. Получилось​Теперь все пустые строки​ строки, которые были​
​ использовать лучше всего.​Открывается окно, в котором​

​ вниз ячейки, как​​ соответствующих строках, и​Pelena​With Intersect(ActiveSheet.UsedRange, Columns(3))​ Nothing Then​ ветка на форуме.​ 1 To iAntK​

​ расположена в блоке​​: Добрый вечер, а​.EntireRow.Hidden = 0​Set delRa =​ более конкретно.​Workbooks(sFil2).SaveAs sKat &​Заменить лист сложно,​KuklP​ меняется, неиспользуемая область​ углу и копируем​

​ фильтрации. Снимаем выделение​​ строки, ячейки, читайте​

​ способе, нажмите на​
​ удалить, используя способ,​

​ таблицы, которая содержит​​Как видим, после этого,​ был перед сортировкой,​ инструментов «Ячейки» на​ как удалить все​End With​ Union(Cells(i, 1), delRa)​По Правилам форума:​ «» & «(2)»​ много данных и​: Хитрый и коварный​ остается, скроллер не​ буквы до конца​ напротив имени «Пустые».​ в статье «Как​ кнопку «Удалить» в​ который был приведен​ ненужные строки.​

​ все строки, содержащие​​ проводим сортировку в​ ленте. После этого,​

​ строки, если не​​End Sub​End If​ 1 вопрос -​ & sFil1​ перекрестных ссылок с​ Serge 007.:-)​ изменятся.​

planetaexcel.ru

Удаление строки при определенном значении в столбце С (Макросы/Sub)

​ диапазона.​​Таким же способом можно​
​ удалить пустые строки​ панели инструментов вкладки​
​ самым первым.​Затем нажать правую кнопку​ пустые ячейки, выделились.​ колонке с номерами​
​ сразу произойдет удаление​ содержит? (Например, слово​_Boroda_​End If​
​ 1 тема. Для​Workbooks(sFil1).Close savechanges:=True​

​ другими листами.​​Guest​​Guest​​Устанавливаем «Фильтр». Отфильтровываем последний​ удалить пустые ячейки​ в Excel» тут.​ «Главная».​
​В Excel удалить повторяющиеся​ мыши, чтобы вызвать​ Теперь жмем на​
​ строк «От минимального​ без дополнительных диалоговых​ «Вася»)​: Марина выше писала​Next​

​ второго макроса создайте​​Application.DisplayAlerts = True​Видимо придеться использовать​: а если скрыть​: Что значит -​ столбец по значению​ в строке Excel.​В Excel есть​Автор: Вадим Матузок​ строки, которые пустые,​ контекстное меню.​ уже знакомую нам​ к максимальному».​ окон.​
​Если нужно, создам​
​ еще про название​If Not delRa​ отдельную тему.​
​End Sub​ вариант со скрытием​ лишние строки?​
​ "В ручную не​ «у».​
​ Выбираем нужный столбец​
​ несколько способов разделить​
​Рассмотрим,​
​ можно при помощи​
​В списке надо нажать​

​ кнопку «Удалить», расположенную​​Как видим, строки выстроились​​Конечно, способ очень простой​​ новую тему.​Второй ответ тоже​ Is Nothing Then​ZatX​
​Евгений Шульц​ областей.​KuklP​ удаляется»?..​

​Выделяем все что осталось​​ и фильтруем его​ данные одной ячейки​как удалить скрытые строки​ фильтра. Много не​ на строку «Удалить».​ на ленте в​ в прежнем порядке,​ и известный. Но,​Пробую такую запись,​ пока скрываю​ delRa.EntireRow.Delete​
​: Вот есть готовое​
​: А что это​
​Всем спасибо за​: А Серж, что​
​Вариант (как один​ после фильтрации и​
​ данные.​ на несколько ячеек.​
​ в​ разглагольствуя, перейдем непосредственно​
​После этого появится окошко,​ группе инструментов «Ячейки».​
​ исключая пустые, которые​ является ли он​
​ но не срабатывает.​
​KuklP​End Sub​
​ решение! Если я​
​ Сергей? Просто ни​
​ помощь )​
​ по-Вашему сделал?​ из многих): после​ удаляем.​
​Пример 3. Выделение группы​
​ Как зазделить числа,​
​Excel без макроса​
​ к самой инструкции:​ в котором необходимо​
​После этого, все пустые​ удалены. Теперь, нам​
​ самым удобным, быстрым​Sub delete()​
​: Саш, я думал​Выделение​ Вас правильно понял.​
​ макросами ни кодом​Михаил С.​
​Guest​ проделанных манипуляций по​
​Убираем фильтр – останутся​
​ ячеек. Выделяем всю​ коды на несколько​
​. Как в таблице​
​Изначально вам необходимо выделить​
​ выбрать, что именно​
​ строки будут удалены​ осталось только удалить​ и безопасным?​
​For x =​

​ он автоматом скроется,​​КодSub highlighter()​ Чуть подправил по​ не пользуюсь, поэтому​: Сохраненный в формате​: Урезал таблицу до​ очистке/удалению обязательно сразу​ только ячейки с​ таблицу. В главном​ составных ячстей, смотрите​ скрыть строки, смотрите​ область вашей таблицы.​ нужно удалить. В​
​ из таблицы.​ добавленный столбец с​Если пустые строки расположены​ Cells(Rows.Count, 1).End(xlUp).Row To​

​ пока модер не​​Dim x, i&,​ Вас… Попробуйте. Но​ собственно не понимаю​ 2010, файл весит​

​ 25 строк, все​​ же жмем Ctrl+Home​ «о».​ меню на вкладке​ в статье «Разделить​ в статье «Как​ Для этого, зажав​ нашем случае это​Важное замечание! Последний способ​
​ порядковыми номерами. Выделяем​
​ в одном месте,​ 1 Step -1​
​ отключит скрытие ответов.​
​ delRa As Range​ минус в том,​
​ о чем речь.​
​ 180 КБ, Но​
​ по прежнему, размер​
​ и затем Ctrl+S!​

​Вспомогательный столбец можно устранить​​ «Редактирование» нажимаем кнопку​ текст в ячейке​
​ скрыть столбцы в​ левую кнопку мыши​

​ строки, значит, выбирайте​​ нельзя использовать в​ этот столбец. Затем​ то их удаление​If Cells(x, 4).Value​​Учту на будущее.​
​x = Range(«G1:G»​ что нумерация строк​ Но если не​

​ если его опять​​ книги с одним​Z.​

​ и работать с​​ «Найти и выделить».​ Excel по столбцам».​ Excel».​ в левом верхнем​ пункт «Строку» и​ таблицах с перекрывающимися​ кликаем по кнопке​

​ будет довольно легким.​​ Like «<>*Вася*» Then​P.S. вроде ТС​ & [a65535].End(xlUp).Row).Value​

​ хромает (и то​​ сложно готов попробовать​ сохранять в 2003,​

​ листом 1,5Мб О_о​​KuklP​ «прореженной таблицей».​ Выбираем инструмент «Выделение​
​При импорте и копировании​У нас такая​

​ ее углу, перетащите​​ нажимайте «ОК». Теперь​ диапазонами, и с​ на ленте «Удалить».​ Но, если они​ Rows(x).Delete (xlShiftUp)​ адекватный, думаю исправит​For i =​ исправима) А по​

​ )​​ то 1,43 МБ​Сжал в rar-архив​: Евгений может, настало​Однажды пользователь скрыл некую​
​ группы ячеек».​​ таблиц в Excel​ таблица.​ ее в нижний​

​ все лишние строки​​ пустыми ячейкам, которые​ В раскрывшемся меню​ раскиданы по всей​Next x​ топик.​ 1 To UBound(x)​ поводу второго вопроса…​​Казанский​

​KuklP​​ — 20Кб. Скрыть​ время выложить пример​

​ информацию в строках,​​В открывшемся окне выбираем​ могут формироваться пустые​Скроем строки 18 и​ правый.​ будут удалены из​
​ находятся в строках,​ выбираем пункт «Удалить​
​ таблице, то их​End Sub​
​-=Dj=-​
​If x(i, 1)​ так его можно​:​
​: Может еще вот​ неиспользуемые строки можно,​ на десяток строк?​
​ чтобы она не​
​ пункт «Пустые ячейки».​

excelworld.ru

​ строки и ячейки.​

Предыстория. Есть кучка книг Excel, видимо, созданных на базе одного шаблона: у всех них имеется целая куча именованных диапазонов (Вставка • Имя • Присвоить) с покорёженными именами и пустыми ссылками. Эти имена никому не нужны, и их бы вообще никто не заметил, если бы их присутствие не мешало выполнять некоторые операции с книгами, как то изменение стиля ссылок с A1 на R1C1, например. Удаление всех имён решает проблему, но в Excel не предусмотрено удаление всех имён сразу — только поштучно и в неудобной форме; проделывать эту операцию вручную слишком муторно, учитывая количество книг и количество имён в каждой книге.

В общем, задача сводится к написанию макроса, который удалял бы все именованные диапазоны. На первый взгляд, всё элементарно — надо просто очистить коллекцию ActiveWorkbook.Names, но так как у неё нет метода Clear, приходится удалять по одному элементу:

Код: Выделить всё

For Each oName In ActiveWorkbook.Names
  oName.Delete
Next

Этот код успешно работает, но только покуда имена диапазонов корректны. Как только натыкаемся на элемент с некорректным именем — тут же выдаётся ошибка 1004 «Данное имя недопустимо». И всё, ничего с этим не поделаешь.

Пробовал искать в Интернете — ничего стоящего не нашёл, кроме идеи с присвоением нового имени и последующего удаления. Не прокатило: операция переименования как будто происходит успешно, но, похоже, что просто создаётся новое имя, а старое лежит на прежнем месте. Причём народ тоже отмечает, что удаление вручную через пользовательский диалог Excel таки всегда срабатывает, независимо от корректности имени. В итоге предлагалось два выхода: либо сидеть и удалять вручную, либо воспользоваться hex-редактором — но ни один из них мне категорически не подходит.

Пример проблемного файла прилагаю — там же лежит и макрос с различными неудавшимися обходными вариантами.