Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как заполнить ячейки в столбце таблицы до конца таблицы с помощью VBA.
 
#1
19.06.2020 07:49:23
Доброго времени суток, Друзья!
Прошу помощи.
Подскажите, как заполнить ячейки в столбце таблицы до конца таблицы через VBA?
Тоесть есть пустой столбец, а справа от него данные. Нужно во всех ячейках в столбце написать "слово" до конца данных справа.
Пример во вложении.
 
 
 
#2
19.06.2020 08:06:27
Доброе утро!
Если заполнить надо столбец A:
Код
Sub dihlofos()
Dim sh As Worksheet, lr As Long, i As Long

Set sh = ActiveSheet

    With sh
        lr = Cells(Rows.Count, 2).End(3).Row
        
        For i = 1 To lr
            Cells(i, 1).Value = "слово"
        Next i
    End With

End Sub
Изменено: zav - 19.06.2020 08:07:12
 
 
 
#3
19.06.2020 08:14:59
Можно и без цикла :)
Код
Sub qqq()
    Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).Value = "Слово"
End Sub
 
 
 
#4
19.06.2020 08:45:39
Красота! _Igor_61, спасибо.
 
 
 
#5
19.06.2020 08:52:05
Большое спасибо, друзья!
 
 
 
Страницы: 1
Наверх