Поменять таблицы местами в Excel

Posted by obzor under VBA

Есть лист на котором находятся 2 таблицы разделенные несколькими строчками. Нужно скопировать таблицы и вставить на вспомогательный лист «Расход», но так чтобы нижняя оказалась наверху, а верхняя внизу. Мне это необходимо для работы макроса.

Aleksandr H.

v1

Sub makro()
    Dim sh1 As Worksheet, shr As Worksheet 'sheet
    Dim r As Long, rr As Long
    Dim rng1 As Range, rng2 As Range
    Set sh1 = Sheets("1")
    Set shr = Sheets("Расход")
    r = 2
    With sh1
        Do While .Cells(r, "A") <> ""
         r = r + 1
        Loop
        rr = r - 1
        Set rng1 = .Range("A2:F" & r)
        Do While .Cells(r, "A") = ""
          r = r + 1
        Loop
        Set rng2 = .Range("A" & r & ":F" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        rng2.Copy
        shr.[a2].PasteSpecial
        rng1.Copy
        shr.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row - rr, "A").PasteSpecial

    End With
    Set sh1 = Nothing
    Set shr = Nothing
End Sub

v2. если порядок вывода не важен

Sub makro2()
    Dim sh1 As Worksheet, shr As Worksheet
    Dim r As Long, rr As Long
    Dim rng1 As Range
    Set sh1 = Sheets("1")
    Set shr = Sheets("Расход")

    With sh1
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        Do While r >= 2
            rr = shr.Cells(.Rows.Count, 1).End(xlUp).Row + 1
            Set rng1 = .Range("A" & r & ":F" & r)
            rng1.Copy
            shr.Cells(rr, "A").PasteSpecial
            r = r - 1
        Loop
    End With
    Set sh1 = Nothing
    Set shr = Nothing
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel