vba - 列Bの最後の行をExcelで貼り付ける方法は？

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が発行した「StepbyStep」シリーズの一部です。頑張ってください！

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