Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2012, 14:59   #11
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию

Добавил файл. Столбец D, формула СЦЕПИТЬ ячейки столбцов A и B, протянул по 22 строку. Скопипастил значения в столбец E. Запустил макрос. Добавка значения пошла со строки 23. Все в файле.
Вложения
Тип файла: rar добавление.rar (14.4 Кб, 7 просмотров)
strannick вне форума Ответить с цитированием
Старый 02.05.2012, 15:19   #12
nilem
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 616
По умолчанию

Смотрите: =СЦЕПИТЬ(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
nilem вне форума Ответить с цитированием
Старый 02.05.2012, 15:59   #13
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подстановка данных в формулу и запись расчета в таблицу Eve555 Microsoft Office Excel 5 19.01.2012 16:44
Создание хитрой БД(подстановка данных из 3-х таблиц в одну) zarapyan Microsoft Office Access 5 28.12.2011 16:11
копирование недостающих данных nickrasov Microsoft Office Excel 1 29.07.2011 16:38
Подстановка данных из разных книг по 3-ем условиям hromovea Microsoft Office Excel 4 12.09.2009 12:38
Выборка и подстановка данных. HIC БД в Delphi 10 10.09.2009 11:34