Страницы: 1
RSS
Вставка таблицы со сдвигом, VBA макрос
 
При написании кода столкнулся с проблемой, суть кода такова чтобы таблицу со второго листа вставить на первый лист в ячейку B5 со сдвигом всех ячеек вниз, при этом количество строк на втором листе может меняться (максимум 2000) диапазон всегда от А1 до М.
Файл примера прилагаю.
 
Василька, не понял что сдвигать? имеющиеся данные на листе 1 ?? т.е. вставлять данные со второго листа в начало списка?
Не бойтесь совершенства. Вам его не достичь.
 
Да, вы верно поняли, на первом листе в примере есть 1 строка с данными, со второго листа нужно таблицу вставить на первый лист в ячейку В5 при этом сдвинув первую строку в низ таблицы
 
Василька,
Код
Sub copy_tabl()
Dim lr As Long
Dim oSh As Worksheet
Dim oSh2 As Worksheet
Set oSh = Worksheets("Реестр")
Set oSh2 = Worksheets("Второй Лист")
    lr = oSh2.Cells(Rows.Count, 1).End(xlUp).Row
    oSh.Rows("5:" & lr + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    oSh2.Range("A1:M" & lr).Copy Destination:=oSh.Range("B5")
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub Макрос1()
    Sheets("Второй Лист").Range("A1").CurrentRegion.Copy
    Sheets("Реестр").Range("B5:M5").Insert Shift:=xlDown
    Range("B4").Select
    Application.CutCopyMode = False
End Sub
 
Благодарю, работает прекрасно!
Страницы: 1
Наверх