如何在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...

有很多書籍可以幫助您進行此類編碼，並有逐步的培訓。 我參與了由Microsoft發布的“ 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