заполнить столбцы А, Б и С до момента, где заканчивается сто

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнить столбцы А, Б и С до момента, где заканчивается сто (Макросы/Sub)

elvina

Дата: Пятница, 20.09.2019, 17:10 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

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

Ответить

Gustav

Дата: Воскресенье, 22.09.2019, 14:58 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2744

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Сама исполнительная часть алгоритма может выглядеть примерно так:
[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

Ответить

elvina

Дата: Понедельник, 23.09.2019, 11:41 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

Ответить

Страница 1 из 1
1