如何在Excel中将内容粘贴到B列的最后一行？

Question

我需要将H2:L2单元格中的内容剪切到最后一行的B列，并粘贴/插入。

由于数据每次都不同，因此我不能硬编码任何范围。

希望提供VBA代码，以便从H2:L2向下剪切并粘贴/插入到B列的最后一行。

目前我已经有了以下代码。

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

- Mowgli

---

我已经录制了一个宏，可以选择从H2：L2开始的所有单元格，并向下延伸，但我卡在将其粘贴到B列的最后一个单元格上。请参见编辑。 - Mowgli

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”系列。祝你好运！

- Desert Spider

---

谢谢，我只需要将“Selection.PasteSpecial”更改为“ActiveSheet.Paste”，就可以正常工作了。非常感谢。 - Mowgli

Answer 2

请查看以下内容（附注：我没有测试过）

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

- Wheeliam