Подстановка в диапазон недостающих данных

[strannick]

Добрый день, уважаемые форумчане!
Вот такая задачка: после обработки данных на листе в столбце D получается каждый раз различное количество заполненных ячеек по строкам. Бывает и 5, и 12, и 27. Каким образом дозаполнить строки в этом диапазоне определенным текстовым значением (скажем Водка или Коньяк, праздником навеяло) до первого кратного 10. К примеру, если 5, то до 10 включительно, если 12, то до 20 включительно и т.д. Главное, чтобы не больше ячейки первой кратной десяти.
Заранее спасибо!

[nilem]

попробуйте

Sub ert()
Dim lr&, i&
lr = Cells(Rows.Count, 4).End(xlUp).Row
i = lr Mod 10
If i > 0 Then Cells(lr + 1, 4).Resize(10 - i).Value = "пыво"
End Sub

[strannick]

Спасибо, работает. Правда я не написал, что по столбцу D данные получаются путем сцепления ячеек столбцов A и B и формула протянута до 100 строки. Поэтому макрос не воспринимал реально последнюю заполненную ячейку правильно. Проблема решена путем копипаста значений в соседний столбец и перенастройки макроса на столбец E.
Еще раз спасибо.

[strannick]

Задачка немного усложнилась. Как подработать код, чтобы присваивалось не одно значение "пыво" по поочередно со значением "водка"?

[nilem]

Сообщение от strannick

... "пыво" по поочередно со значением "водка"?

... это зло (сегодня как-то по-особенному это понимаешь)
Пробуем так

Sub ert()
Dim lr&, i&
lr = Cells(Rows.Count, 5).End(xlUp).Row    'ст. Е
i = lr Mod 10
If i > 0 Then
    Cells(lr + 1, 5).Value = "чай с лимоном"
    If i < 9 Then Cells(lr + 2, 5).Value = "мин. вода"
    If i < 8 Then
        With Cells(lr + 1, 5)
            .Resize(2).AutoFill Destination:=.Resize(10 - i), Type:=xlFillSeries
        End With
    End If
End If
End Sub

[strannick]

Минералка с чаем подошла как нельзя лучше. Все путем. Спасибо!!!!!!!!!

[strannick]

Рано обрадовался. Все-таки вылезла проблема с определением последней заполненной ячейки в столбце. Повторюсь, в столбце D данные образуются путем сцепления ячеек из столбцов A и B. Формула СЦЕПИТЬ протянута вниз до строки 100 (с запасом). Выше писал, что проблему обошел путем копипаста (спецвставкой) значений в столбец E. НО, копировал я вручную только видимый образовавшийся диапазон данных (сколько ячеек получилось заполненных, столько и скопипастил). Так макрос работает. Если же копипастить целым столбцом, то макрос определяет, что вплоть до строки 100 ячейки не пустые. Что-то я не въеду, а что же туда при таком варианте копируется, что ячейки определяются как НЕ ПУСТЫЕ?

[nilem]

Последний раз Для столбца Д

Sub ert()
Dim lr&, i&
Do
    i = i + 1
Loop While Len(Cells(i, 4)) 'ст. D
lr = i: i = lr Mod 10
If i > 0 Then
    Cells(lr, 4).Value = "чай с лимоном"
    If i < 9 Then Cells(lr + 1, 4).Value = "мин. вода"
    If i < 8 Then
        With Cells(lr, 4)
            .Resize(2).AutoFill Destination:=.Resize(11 - i), Type:=xlFillSeries
        End With
    End If
End If
End Sub

[strannick]

Уважаемый nilem!
Спасибо за помощь. Но блин и так тоже не работает. Вставка идет начинал со 101 строки, хоть ты тресни. )))))

[nilem]

Тогда давайте пример в файле с Вашими данными, формулами и чаем.