vba - 如何粘贴到excel中B列的最后一行？

Question

我需要将单元格从 H2:L2 一直向下剪切并将其粘贴到 B 列的最后一行。

数据每次都会不同，所以我不能硬编码任何范围。

VBA代码会很好，从H2：L2向下剪切并粘贴/插入B列的最后一行。

到目前为止，我得到了。

Range("H2:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut

Answer 1

这是一段应该完成您正在寻找的代码。

Start code including your cut segment...
Dim lastRow As String

lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1
Range("B" & lastRow).Select
Selection.PasteSpecial
Rest of code...

有许多书籍可以帮助进行这种类型的编码并进行逐步培训。我偏爱微软“Step by Step”系列出版的系列。祝你好运！

Answer 2

请看下面（ps。我没有测试过）

Sub copypaste()

Dim wb As Workbook, ws As Worksheet, rng As Range, lr As Long

Set wb = Workbooks("Name_of_your_workbook.xlsm")
Set ws = wb.Sheets("Your_Sheet_Name")

Set rng = ws.Range("H2:L2")

lr = Sheet("Your_Sheet_Name").Cells(Rows.Count, "B").End(xlUp).Row

rng.Copy Destination:=ws.Range("B" & lr)

Cells(1, 1).Select

End Sub