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

Вход

Регистрация

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

 

= Мир MS Excel/заполнить столбцы А, Б и С до момента, где заканчивается сто - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнить столбцы А, Б и С до момента, где заканчивается сто (Макросы/Sub)
заполнить столбцы А, Б и С до момента, где заканчивается сто
elvina Дата: Пятница, 20.09.2019, 17:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем добрый день!

Подскажите, пожалуйста, как можно заполнить столбцы А, Б и С значениями "а", "б" и "с" соответсвенно в каждой ячейке до момента, где заканчивается столбец E. Проблема в том, что количество значений в столбце E всегда разное и между этими столбцами есть пустые столбцы.

Буду благодарна за любую помощь! :)
 
Ответить
СообщениеВсем добрый день!

Подскажите, пожалуйста, как можно заполнить столбцы А, Б и С значениями "а", "б" и "с" соответсвенно в каждой ячейке до момента, где заканчивается столбец E. Проблема в том, что количество значений в столбце E всегда разное и между этими столбцами есть пустые столбцы.

Буду благодарна за любую помощь! :)

Автор - elvina
Дата добавления - 20.09.2019 в 17:10
Gustav Дата: Воскресенье, 22.09.2019, 14:58 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1683
Репутация: 683 ±
Замечаний: 0% ±

начинал с Excel 4.0...
Сама исполнительная часть алгоритма может выглядеть примерно так:
[vba]
Код
Sub Макрос2()
    Dim maxRow As Long
    maxRow = Application.Evaluate("MAX(ROW(E:E)*NOT(ISBLANK(E:E)))")
    Range("A:C").ClearContents
    Range("A1:C" & maxRow) = Array("a", "b", "c")
End Sub
[/vba]
Куда дальше пристроить вызов этого макроса - на кнопку на листе или на событие листа - сами решайте.


Мой tip box - яд 41001663842605
 
Ответить
СообщениеСама исполнительная часть алгоритма может выглядеть примерно так:
[vba]
Код
Sub Макрос2()
    Dim maxRow As Long
    maxRow = Application.Evaluate("MAX(ROW(E:E)*NOT(ISBLANK(E:E)))")
    Range("A:C").ClearContents
    Range("A1:C" & maxRow) = Array("a", "b", "c")
End Sub
[/vba]
Куда дальше пристроить вызов этого макроса - на кнопку на листе или на событие листа - сами решайте.

Автор - Gustav
Дата добавления - 22.09.2019 в 14:58
elvina Дата: Понедельник, 23.09.2019, 11:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Gustav, спасибо Вам большое! Очень выручили :flower:
 
Ответить
СообщениеGustav, спасибо Вам большое! Очень выручили :flower:

Автор - elvina
Дата добавления - 23.09.2019 в 11:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнить столбцы А, Б и С до момента, где заканчивается сто (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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