Добавление данных с Листа2 в конец Листа1

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Добавление данных с Листа2 в конец Листа1 (Добавление данных с Листа2 в конец Листа1)

Добавление данных с Листа2 в конец Листа1

Альбина

Дата: Четверг, 12.07.2012, 17:01 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 7 ±

Замечаний: 0% ±

Здравствуйте. Помогите написать макрос. Необходимо на листе Таблица определить последнюю строку с данными, т е найти первую пустую ячейку в столбце А и через одну строку вставить текст с листа Подписи. Текст на Листе Подписи - постоянный, на листе Таблица каждый раз меняется.

К сообщению приложен файл: 3936420.xls (42.0 Kb)

Ответить

Gustav

Дата: Четверг, 12.07.2012, 17:34 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2843

Репутация: 1194 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

[vba]

Code

Sub addSigns()
Worksheets("Подписи").Range("A1:A2").Copy Worksheets("Таблица").Cells.SpecialCells(xlLastCell).Offset(1).End(xlToLeft).End(xlUp).Offset(2)
End Sub

[/vba]

К сообщению приложен файл: 3936420_01.xls (42.5 Kb)

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Четверг, 12.07.2012, 17:44

Ответить

_Boroda_

Дата: Четверг, 12.07.2012, 20:29 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16895

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Или[vba]

Code

Range("A" & Rows.Count).End(xlUp).Offset(2).Resize(2) = Лист2.Range("A1:A2").Value

[/vba]

К сообщению приложен файл: 3936420_02.xls (48.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Альбина

Дата: Пятница, 13.07.2012, 09:11 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 7 ±

Замечаний: 0% ±

Спасибо за помощь, воспользовалась первым решением, все работает.

Ответить

YUHTANOV

Дата: Воскресенье, 28.07.2013, 23:11 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Gustav, а если построчно то как будет

Ответить

mekael

Дата: Пятница, 21.08.2020, 12:00 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте.
Что бы не создавать новую тему, пишу в продолжение этой.
Помогите пожалуйста написать макрос(желательно без кнопки)
Необходимо на всех листах Книги(до 200л)определить последнюю строку с данными, т е найти первую пустую ячейку в столбце А и через одну строку вставить текст и картинку(подпись) с листа Подписи.
Текст и Подпись - постоянные.

К сообщению приложен файл: 21082020.xls (431.0 Kb)

Ответить

китин

Дата: Пятница, 21.08.2020, 15:05 | Сообщение № 7

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

mekael, - Прочитайте Правила форума
- Создайте свою тему согласно п.5q Правил форума
эта тема закрыта

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Добавление данных с Листа2 в конец Листа1 (Добавление данных с Листа2 в конец Листа1)

Страница 1 из 1
1