Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Замена данных со смещением
 
Пример в приложенном файле.

Нужно вместо значений в ячейках С3:С7 вставить значения из G3:G8, но при этом нужно, чтобы автоматически добавилась строка для значения G8.  
 
Формулами не получилось  :)
Код
Sub Вставить_()    
    Dim lr As Long
    lr = Cells(Rows.Count, 7).End(xlUp).Row
    Range("C" & lr).Insert Shift:=xlDown
    Range("C3:C" & lr).Value = Range("G3:G" & lr).Value
End Sub
 
У меня длинная портянка, в которую я должен вставлять данные из другой портянки.

Скрипт тут не поможет (
 
Цитата
wertex написал:
Скрипт тут не поможет (
тогда вам ничто не поможет!
Так и надо было пример делать чуть более приближенный к реальности, не на одну, а на две, три итерации.
Страницы: 1
Читают тему (гостей: 1)
Наверх