Excel VBA复制并粘贴到最后一行

Question

这里是 Excel VBA 的完整初学者。我希望能够将一大块信息从一行中的一个单元格复制并粘贴到另一行的单元格中。例如，从“A”行到“F”行的信息块。但是，即使我已经运行了一次宏并且我希望将信息粘贴到行“F”的最后一个使用的单元格下方，我也希望能够多次执行此操作，因此可以继续列表。当我多次运行宏时，我想在每列之间粘贴信息，但我希望它从特定列开始。但是我好像做不到。

这是我的代码：

Sub pastebelowlastcell()
Dim lRow As Long
Dim LastRow As Long
lRow = Sheets("Sheet1").Cells(Rows.Count,"A").End(xlUp).Row
lRow = lRow + 1
LastRow = Sheets("Sheet1").Cells(Rows.Count,"F").End(xlUp).Row
LastRow = LastRow + 1
ActiveSheet.Range("A1:C" & lRow).Copy
ActiveSheet.Range("F" & LastRow).PasteSpecial
Application.CutCopyMode = False
End sub

例如，我想粘贴从“F10”开始的代码，但如果我将代码更改为：

LastRow = Sheets("Sheet1").Cells(Rows.Count,"F").End(xlUp).Row
LastRow = LastRow + 9

它将从“F10”开始粘贴，但是当我多次运行代码时，它会在每次粘贴之间粘贴 8 个空白行。

另外，是否可以使用这种方法将单个单元格中的信息粘贴到合并单元格中？

Answer 1

尝试将 LastRow 行更改为

LastRow = WorksheetFunction.Max(Sheets("Sheet1").Cells(Rows.Count, "F").End(xlUp).Row, 9)

当您开始时，它将被分配值 9（在您添加 1 之前），此后它将找到最后使用的行。

Answer 2

假设您从 A 列的第 1 行开始复制，试试这个：

Sub pastebelowlastcell()

Dim FirstRow, ALastRow, FLastRow As Long

t = 1
ALastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    Do Until t = ALastRow

        ActiveSheet.Range("A" & t & ":C" & t).Copy

        FLastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
        If t = 1 Then FLastRow = 10

        ActiveSheet.Range("F" & FLastRow).PasteSpecial Paste:=xlPasteValues

        t = t + 1

    Loop

Application.CutCopyMode = False

End Sub