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

[strannick]

Добавил файл. Столбец D, формула СЦЕПИТЬ ячейки столбцов A и B, протянул по 22 строку. Скопипастил значения в столбец E. Запустил макрос. Добавка значения пошла со строки 23. Все в файле.

[nilem]

Смотрите: =СЦЕПИТЬ(A1;" ";B1)
если А1 и В1 пустые, то в итоговой ячейке будет не пусто, а пробел.
Просто возьмем последнюю ячейку по столбцу А:

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

Или можно в последнем Ерте так написать

Loop While Len(Cells(i, 5)) > 2 'ст. E

[strannick]

Вот оно что. Там же пробел в формуле. А я-то думаю, что копируется чего не видно. Ну, теперь все. Годится. Спасибо огромное еще раз!!! Буду вязать одно с другим.