Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление пустых ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых ячеек (Макросы Sub)
Удаление пустых ячеек
edise Дата: Среда, 04.12.2013, 17:30 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Требуется помощь, есть таблица с разбросанными по ячейкам значениями, нужно удалить пустые ячейки со сдвигом вверх так чтобы значения в столбцах вставали друг напротив друга.
Заранее спасибо
К сообщению приложен файл: 9400840.xls (26.0 Kb)
 
Ответить
СообщениеДобрый день!
Требуется помощь, есть таблица с разбросанными по ячейкам значениями, нужно удалить пустые ячейки со сдвигом вверх так чтобы значения в столбцах вставали друг напротив друга.
Заранее спасибо
Автор - edise
Дата добавления - 04.12.2013 в 17:30
_Boroda_ Дата: Среда, 04.12.2013, 17:43 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Если несвязанных диапазонов не очень-очень много, то встаете в левую верхнюю ячейку (в нашем случае - А2) и запускаете
[vba]
Код
Sub tt()
On Error Resume Next
     Range(Selection, Selection.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли несвязанных диапазонов не очень-очень много, то встаете в левую верхнюю ячейку (в нашем случае - А2) и запускаете
[vba]
Код
Sub tt()
On Error Resume Next
     Range(Selection, Selection.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 04.12.2013 в 17:43
edise Дата: Среда, 04.12.2013, 20:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

_Boroda_, увы на нужных мне количествах не работает....
я сперва одним макросом собираю несколько отчетов в один лист, а потом из получившегося листа вытаскиваю нужную мне инфу и она получается разбегается по разным ячейкам, и в итоге мне эту разбежавшуюся информацию нужно собрать в человеческую таблицу...
проблема в том что мне нужно удалить пустые ячейки, а они не пустые в них есть формулы....
я сейчас скину образец того что мне нужно может тогда с формулами поможете.
в идеале нужно чтобы формула выполняля действие в своей ячейке, а когда его выполнила, то переходила ниже на 1 и продолжала тогда бы у меня изначально все было бы друг за дружкой...
 
Ответить
Сообщение_Boroda_, увы на нужных мне количествах не работает....
я сперва одним макросом собираю несколько отчетов в один лист, а потом из получившегося листа вытаскиваю нужную мне инфу и она получается разбегается по разным ячейкам, и в итоге мне эту разбежавшуюся информацию нужно собрать в человеческую таблицу...
проблема в том что мне нужно удалить пустые ячейки, а они не пустые в них есть формулы....
я сейчас скину образец того что мне нужно может тогда с формулами поможете.
в идеале нужно чтобы формула выполняля действие в своей ячейке, а когда его выполнила, то переходила ниже на 1 и продолжала тогда бы у меня изначально все было бы друг за дружкой...
Автор - edise
Дата добавления - 04.12.2013 в 20:28
edise Дата: Среда, 04.12.2013, 20:45 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Вот образец, я большую часть удалил (иначе по размеру не проходит), но надеюсь понятно
К сообщению приложен файл: _2.xls (88.0 Kb)
 
Ответить
СообщениеВот образец, я большую часть удалил (иначе по размеру не проходит), но надеюсь понятно
Автор - edise
Дата добавления - 04.12.2013 в 20:45
Alex_ST Дата: Среда, 04.12.2013, 21:27 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
Выделяете нужный диапазон ячеек —> F5 —> Выделить... —> Пустые ячейки —> ОК
Удалить ячейки со сдвигом вверх


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеВыделяете нужный диапазон ячеек —> F5 —> Выделить... —> Пустые ячейки —> ОК
Удалить ячейки со сдвигом вверх
Автор - Alex_ST
Дата добавления - 04.12.2013 в 21:27
edise Дата: Среда, 04.12.2013, 21:30 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

вот в том и косяк... ячейки не пустые, в них формулы и этот способ не работает...
то есть мне нужно удалить ячейки без значений, а вот как это сделать я не знаю...
 
Ответить
Сообщениевот в том и косяк... ячейки не пустые, в них формулы и этот способ не работает...
то есть мне нужно удалить ячейки без значений, а вот как это сделать я не знаю...
Автор - edise
Дата добавления - 04.12.2013 в 21:30
RAN Дата: Среда, 04.12.2013, 22:06 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не пустые, а формулы - текст.
Правда часть чисел в D как текст воспринимаются, но это, думаю, поправимо.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 04.12.2013, 22:07
 
Ответить
СообщениеНе пустые, а формулы - текст.
Правда часть чисел в D как текст воспринимаются, но это, думаю, поправимо.
Автор - RAN
Дата добавления - 04.12.2013 в 22:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пустых ячеек (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!