Найти последнюю строку> объединить ячейки> скопировать и вставить в нее макросы Excel VBA

Question

У меня нет опыта работы с VBA, и это оказалось сложнее, чем я себе представлял ... отчасти потому, что я не знаю синтаксиса, но у меня есть следующие:

Sub testMe() 

    LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 

    Worksheets("Sheet2").Range("A1").Copy Destination:=Range("A" & LastRow) 

End Sub 

Это своего рода работает, но это глушение все в одну ячейку в первом столбце. Как объединить ячейки последней строки, прежде чем вставлять в нее? Предполагается, что макрос должен найти последнюю строку последней страницы, объединить ячейки этой строки и вставить текст, который был скопирован из другой ячейки. Заранее спасибо.

Answer 1

Я закончил тем, что делал это так ...

Sub testMe() 

LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 

Range("A" & LastRow & ":L" & LastRow).Merge 
Range("A" & LastRow) = Worksheets("Sheet2").Range("A1") 

End Sub 

Answer 2

Это должно делать то, что вам нужно. Вы должны просто изменить номер столбца, чтобы отобразить столбец, который вы хотите объединить ячейки.

Option Explicit 
Sub copy_and_paste_merge() 
    Dim last_row As Long 
    last_row = Cells(Rows.Count, 1).End(xlUp).Row + 1 

    Cells(1, 1).Copy 
    Cells(last_row, 1).PasteSpecial Paste:=xlPasteValues 
    Range(Cells(last_row, 1), Cells(last_row, 5)).MergeCells = True 'change the column 
End Sub