Замена строк - Мир MS Excel

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

Замена строк (Макросы Sub)

Замена строк

Irina2010

Дата: Четверг, 26.12.2013, 10:26 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2010

Добрый день!

Помогите пожалуста, возможно ли с помощью макроса заменить в каждом листе книги последние 9 строк на строки из первого листа.
К сожалению, не удается загрузить файл с примером.

Ответить

KuklP

Дата: Четверг, 26.12.2013, 11:02 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Можно. А по поводу примера читайте правила.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 26.12.2013, 11:02

Ответить

Irina2010

Дата: Четверг, 26.12.2013, 11:52 | Сообщение № 3

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

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

Сообщений: 6

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

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

Excel 2010

Прочитала, все делаю согласно данных инструкций, но файл все равно не загружается.

Ответить

SkyPro

Дата: Четверг, 26.12.2013, 11:55 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

Sub repl()
Dim i&
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(1).[a65535].End(xlUp).Offset(-8, 0).Resize(9, 1).EntireRow.Copy Sheets(i).[a65535].End(xlUp).Offset(-8, 0)
Next
End Sub

[/vba]