我需要将H2:L2中的单元格全部剪下并粘贴到列B的最后一行。如何粘贴excel中B列的最后一行?
数据每次都会有所不同,因此我无法对任何范围进行硬编码。
VBA代码将是很好的,从H2削减:B列的最后一排L2下来,粘贴/插入
到目前为止,我得到了。
Range("H2:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
我需要将H2:L2中的单元格全部剪下并粘贴到列B的最后一行。如何粘贴excel中B列的最后一行?
数据每次都会有所不同,因此我无法对任何范围进行硬编码。
VBA代码将是很好的,从H2削减:B列的最后一排L2下来,粘贴/插入
到目前为止,我得到了。
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...
有很多书会帮助这种类型的编码,并一步步trainig。我对微软“一步一步”系列发布的系列有所偏爱。祝你好运!
谢谢我只需将'Selection.PasteSpecial'更改为'ActiveSheet.Paste '它运作良好。非常感谢。 – Mowgli
酷豆!乐意效劳! –
我已经录制宏从H2:L2中选择所有单元格,但我被粘贴在列B的最后一个单元格中。请参阅编辑 – Mowgli