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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление пустых строк только до первой строчки значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удаление пустых строк только до первой строчки значений
PravCom Дата: Воскресенье, 14.08.2022, 20:42 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, Уважаемые форумчане. Подскажите пожалуйста, как добавить код в виде макроса, имитирующий нажатие горячих клавишь CTRL + SHIFT + стрелочка вниз, далее кнопка SHIFT + стрелочка наверх, далее выделенные пустые строки удалить!
в Моей спецификации активная ячейка на момент завершения макроса находится на ячейке Rows("3:3"). По сути я хочу избавиться от пустых ячеек до начала имеющихся на первом листе значений, но только ДО начала первого столбца со значениями. ВАЖНО! каждый раз я получаю разные данные и прявязка к номеру строки для удаления - не допустима. Варианты, которые мне удалось найти в интернете, срабатывают на удаление всех пустых строк, что в моём случае не подходит. Помогите пожалуйста начинающему VBA пользователю.
Образец прилагаю. Спасибо!
К сообщению приложен файл: 22372_.xls (56.5 Kb)


Сообщение отредактировал PravCom - Воскресенье, 14.08.2022, 20:58
 
Ответить
СообщениеЗдравствуйте, Уважаемые форумчане. Подскажите пожалуйста, как добавить код в виде макроса, имитирующий нажатие горячих клавишь CTRL + SHIFT + стрелочка вниз, далее кнопка SHIFT + стрелочка наверх, далее выделенные пустые строки удалить!
в Моей спецификации активная ячейка на момент завершения макроса находится на ячейке Rows("3:3"). По сути я хочу избавиться от пустых ячеек до начала имеющихся на первом листе значений, но только ДО начала первого столбца со значениями. ВАЖНО! каждый раз я получаю разные данные и прявязка к номеру строки для удаления - не допустима. Варианты, которые мне удалось найти в интернете, срабатывают на удаление всех пустых строк, что в моём случае не подходит. Помогите пожалуйста начинающему VBA пользователю.
Образец прилагаю. Спасибо!

Автор - PravCom
Дата добавления - 14.08.2022 в 20:42
Nic70y Дата: Понедельник, 15.08.2022, 07:53 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    u = Range("a1").End(xlDown).Row
    v = Range("a" & u).End(xlDown).Row
    Rows(u + 1 & ":" & v - 1).Delete
[/vba]так хотели?


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    u = Range("a1").End(xlDown).Row
    v = Range("a" & u).End(xlDown).Row
    Rows(u + 1 & ":" & v - 1).Delete
[/vba]так хотели?

Автор - Nic70y
Дата добавления - 15.08.2022 в 07:53
PravCom Дата: Понедельник, 15.08.2022, 09:02 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, Да!!!! То, что надо. Огромная благодарность, я два дня сам пытался понять, как это сделать. А что означает знак & в данном контексте?
 
Ответить
СообщениеNic70y, Да!!!! То, что надо. Огромная благодарность, я два дня сам пытался понять, как это сделать. А что означает знак & в данном контексте?

Автор - PravCom
Дата добавления - 15.08.2022 в 09:02
Nic70y Дата: Понедельник, 15.08.2022, 09:06 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
& сцепляет текст: u + 1 = 3. v - 1 = 108. u + 1 & ":" & v - 1 = "3:108"


ЮMoney 41001841029809
 
Ответить
Сообщение& сцепляет текст: u + 1 = 3. v - 1 = 108. u + 1 & ":" & v - 1 = "3:108"

Автор - Nic70y
Дата добавления - 15.08.2022 в 09:06
PravCom Дата: Понедельник, 15.08.2022, 09:24 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Большое Вам спасибо! Дальше я сам постараюсь осилить.
 
Ответить
СообщениеБольшое Вам спасибо! Дальше я сам постараюсь осилить.

Автор - PravCom
Дата добавления - 15.08.2022 в 09:24
  • Страница 1 из 1
  • 1
Поиск:

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