Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование изменяемого диапазона
 
Добрый день!
Помогите, пожалуйста, с помощью найденных похожих  тем не смогла решить свою задачу.
Необходимо скопировать шапку таблицы начинаю с определенного столбца (в примере столбец D), вставить в первый незаполненный столбец, и в этот же столбец во вторую строчку вставить формула.
Заранее спасибо.
 
Код
    Range(Range("D1"), Range("D1").End(xlToRight)).Copy
    Range("D1").End(xlToRight).Offset(0, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Cells(1).Offset(1, 0).Formula = "=SUM(E2:" & Selection.Cells(1).Offset(1, -1).Address(0, 0) & ")"
F1 творит чудеса
 
Спасибо Вам огромное,вы мне очень помогли....
 
А можно еще что бы формула протягивалась во все колонки и до последней  заполненной строки?
 
Татьяна, какая именно формула? там была одна, сумма столбцов слева. Она должна быть одинаковой для всех новых колонок? или какие-то сдвиги и т.п.?
по какому столбцу определять последнюю заполненную строку?
F1 творит чудеса
 
Формула будет одна и та же , просто в примере эта сумма, последний заполненный столбец, это шапка, т.е. последний скопированный столбец шапки. А также в конце полученной таблицы в строчку 2 вставить другую формулу и протянуть ее до последней заполненной строки. Приложила пример.
Изменено: Татьяна - 29 Апр 2015 15:12:10
Страницы: 1
Читают тему (гостей: 1)