![](/img/trans.png)
[英]How to paste from column B all rows to column A's nth row in Excel VBA
[英]How to paste in last row of Column B in excel?
我需要将单元格从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...
有很多书籍可以帮助您进行此类编码,并有逐步的培训。 我参与了由Microsoft发布的“ 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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.