我需要将H2:L2中的细胞一直向下切割并粘贴到B列的最后一行。
每次数据都不同,所以我不能对任何范围进行硬编码。
VBA代码很不错,从H2:L2向下切割并粘贴/插入B列的最后一行。
到目前为止我得到了。
Range("H2:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
这是一段应该完成您所需要的代码。
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”系列出版的系列。祝你好运!
请看下面(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