djon2012
Дата: Вторник, 10.01.2017, 09:08 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 106
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте уважаемые форумчане!!! С Новым Годом и Рождеством Христовым, здравия и благополучия Вам. Если Вас не сложно подскажите пожалуйста как написать макрос. Нужно диапазон чисел A2:A100 Лмст1 копировать на Лист2 ячейка A1, далее диапазон A3:A100, A4:A100... и т.д в цикле. Я знаю что задача проста, но не знаю VBA. Помогите пожалуйста. Спасибо
Здравствуйте уважаемые форумчане!!! С Новым Годом и Рождеством Христовым, здравия и благополучия Вам. Если Вас не сложно подскажите пожалуйста как написать макрос. Нужно диапазон чисел A2:A100 Лмст1 копировать на Лист2 ячейка A1, далее диапазон A3:A100, A4:A100... и т.д в цикле. Я знаю что задача проста, но не знаю VBA. Помогите пожалуйста. Спасибо djon2012
Ответить
Сообщение Здравствуйте уважаемые форумчане!!! С Новым Годом и Рождеством Христовым, здравия и благополучия Вам. Если Вас не сложно подскажите пожалуйста как написать макрос. Нужно диапазон чисел A2:A100 Лмст1 копировать на Лист2 ячейка A1, далее диапазон A3:A100, A4:A100... и т.д в цикле. Я знаю что задача проста, но не знаю VBA. Помогите пожалуйста. Спасибо Автор - djon2012 Дата добавления - 10.01.2017 в 09:08
китин
Дата: Вторник, 10.01.2017, 10:01 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7019
Репутация:
1074
±
Замечаний:
0% ±
Excel 2007;2010;2016
вот такой уродец, просто проба сил.но может кому сгодится
[vba]
Код
Sub Макрос1() Dim r_1 As Long Worksheets("Лист1").Select For b = 2 To 100 Range(Cells(b, 1), Cells(100, 1)).Select Selection.Copy Worksheets("Лист2").Select r_1 = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row Worksheets("Лист2").Range("A" & r_1 + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("Лист1").Select Next b End Sub
[/vba]
в модуль Лист1
вот такой уродец, просто проба сил.но может кому сгодится
[vba]
Код
Sub Макрос1() Dim r_1 As Long Worksheets("Лист1").Select For b = 2 To 100 Range(Cells(b, 1), Cells(100, 1)).Select Selection.Copy Worksheets("Лист2").Select r_1 = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row Worksheets("Лист2").Range("A" & r_1 + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("Лист1").Select Next b End Sub
[/vba]
в модуль Лист1 китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Вторник, 10.01.2017, 10:13
Ответить
Сообщение вот такой уродец, просто проба сил.но может кому сгодится
[vba]
Код
Sub Макрос1() Dim r_1 As Long Worksheets("Лист1").Select For b = 2 To 100 Range(Cells(b, 1), Cells(100, 1)).Select Selection.Copy Worksheets("Лист2").Select r_1 = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row Worksheets("Лист2").Range("A" & r_1 + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("Лист1").Select Next b End Sub
[/vba]
в модуль Лист1 Автор - китин Дата добавления - 10.01.2017 в 10:01