Вставка скопированной строки - Microsoft Office Excel

ruavia3 · 13.03.2009, 14:55

Добрый день.
Подскажите, как вставить скопированный ряд ячеек (по горизонтали) из файла1.xls в файл2.xls в нужную строку на листе1.

На листе1 в столбце А - идут недели, а в остальных столбцах (B,C,D...)идут данные. Так вот, нужная строка - это строка, которая находится под последней неделей или ,иначе говоря, первая пустая строка под тем, что уже заполнено.

Заранее спасибо.

EducatedFool · 14.03.2009, 23:29

Например, так:

Код:

Sub test()
    ' копируем 4-ю строку в книге "2.xls"
    Workbooks("2.xls").Worksheets(1).Rows(4).Copy

    ' вставляем в следующую свободную строку в книге "1.xls"
    Workbooks("1.xls").Worksheets(1).[a65000].End(xlUp).Offset(1).PasteSpecial
End Sub

ruavia3 · 15.03.2009, 21:34

Работает

а можно сделать так, чтобы копировалась не строка, а определенный интервал на строке?
например, А4:Е4.

EducatedFool · 15.03.2009, 22:41

Замените строку Workbooks("2.xls").Worksheets(1).Ro ws(4).Copy

на строку Workbooks("2.xls").Worksheets(1).[a4:e4].Copy

ruavia3 · 16.03.2009, 10:59

Спасибо большое!

13.03.2009, 14:55	#1
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Вставка скопированной строки Добрый день. Подскажите, как вставить скопированный ряд ячеек (по горизонтали) из файла1.xls в файл2.xls в нужную строку на листе1. На листе1 в столбце А - идут недели, а в остальных столбцах (B,C,D...)идут данные. Так вот, нужная строка - это строка, которая находится под последней неделей или ,иначе говоря, первая пустая строка под тем, что уже заполнено. Заранее спасибо.

14.03.2009, 23:29	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Например, так: Код: `Sub test() ' копируем 4-ю строку в книге "2.xls" Workbooks("2.xls").Worksheets(1).Rows(4).Copy ' вставляем в следующую свободную строку в книге "1.xls" Workbooks("1.xls").Worksheets(1).[a65000].End(xlUp).Offset(1).PasteSpecial End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

15.03.2009, 21:34	#3
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	спасибо Работает а можно сделать так, чтобы копировалась не строка, а определенный интервал на строке? например, А4:Е4.

15.03.2009, 22:41	#4
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Замените строку Workbooks("2.xls").Worksheets(1).Ro ws(4).Copy на строку Workbooks("2.xls").Worksheets(1).[a4:e4].Copy __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вставка строки через n-е количество строк	glazomer	Microsoft Office Excel	5	12.03.2009 13:20
Строки. Как вывести часть строки?	Anfall	Общие вопросы Delphi	7	26.02.2009 09:10
Вставка/удаление из строки.	t3ns0r	Общие вопросы C/C++	3	11.10.2008 17:58
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй	gotex	Помощь студентам	4	08.05.2008 02:27
Вставка слов	)Игнат(	Общие вопросы Delphi	1	16.03.2008 21:58

16.03.2009, 10:59	#5
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Спасибо большое!