rty
Дата: Понедельник, 11.02.2019, 22:09 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброго времени суток уважаемые форумчане! Прошу вашей помощи в написании макроса, который с Лист1 переносит последнюю строчку (строчки могут добавляться) на Лист " То что должно получится" за исключением одного столбца. Пример прилагаю
Доброго времени суток уважаемые форумчане! Прошу вашей помощи в написании макроса, который с Лист1 переносит последнюю строчку (строчки могут добавляться) на Лист " То что должно получится" за исключением одного столбца. Пример прилагаю rty
К сообщению приложен файл:
11.xlsx
(9.7 Kb)
Ответить
Сообщение Доброго времени суток уважаемые форумчане! Прошу вашей помощи в написании макроса, который с Лист1 переносит последнюю строчку (строчки могут добавляться) на Лист " То что должно получится" за исключением одного столбца. Пример прилагаю Автор - rty Дата добавления - 11.02.2019 в 22:09
Karataev
Дата: Понедельник, 11.02.2019, 22:17 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
[vba]
Код
Sub Перенести_последнюю_строку() Dim shSrc As Worksheet, shRes As Worksheet Dim lr As Long Application.ScreenUpdating = False Set shSrc = Worksheets("Лист1") Set shRes = Worksheets("То что должно получится") lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).row shRes.Range("B1").Value = shSrc.Cells(lr, "A").Value shRes.Range("B2").Value = shSrc.Cells(lr, "B").Value shRes.Range("B3").Value = shSrc.Cells(lr, "C").Value shRes.Range("B4").Value = shSrc.Cells(lr, "D").Value shRes.Range("B5").Value = shSrc.Cells(lr, "F").Value MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub Перенести_последнюю_строку() Dim shSrc As Worksheet, shRes As Worksheet Dim lr As Long Application.ScreenUpdating = False Set shSrc = Worksheets("Лист1") Set shRes = Worksheets("То что должно получится") lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).row shRes.Range("B1").Value = shSrc.Cells(lr, "A").Value shRes.Range("B2").Value = shSrc.Cells(lr, "B").Value shRes.Range("B3").Value = shSrc.Cells(lr, "C").Value shRes.Range("B4").Value = shSrc.Cells(lr, "D").Value shRes.Range("B5").Value = shSrc.Cells(lr, "F").Value MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Karataev
Ответить
Сообщение
[vba]
Код
Sub Перенести_последнюю_строку() Dim shSrc As Worksheet, shRes As Worksheet Dim lr As Long Application.ScreenUpdating = False Set shSrc = Worksheets("Лист1") Set shRes = Worksheets("То что должно получится") lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).row shRes.Range("B1").Value = shSrc.Cells(lr, "A").Value shRes.Range("B2").Value = shSrc.Cells(lr, "B").Value shRes.Range("B3").Value = shSrc.Cells(lr, "C").Value shRes.Range("B4").Value = shSrc.Cells(lr, "D").Value shRes.Range("B5").Value = shSrc.Cells(lr, "F").Value MsgBox "Готово!", vbInformation Application.ScreenUpdating = True End Sub
[/vba]
Автор - Karataev Дата добавления - 11.02.2019 в 22:17
rty
Дата: Понедельник, 11.02.2019, 22:23 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Karataev , Спасибо огромное
Karataev , Спасибо огромноеrty
Ответить
Сообщение Karataev , Спасибо огромноеАвтор - rty Дата добавления - 11.02.2019 в 22:23