查找最后一行>合并单元格>复制并粘贴到其中 - 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

这应该做你想要的。 您应该只更改列号以反映您希望合并单元格的列。

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

Answer 2

我最终这样做了......

Sub testMe()

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

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

End Sub