2012-11-29 22 views
2

我需要将H2:L2中的单元格全部剪下并粘贴到列B的最后一行。如何粘贴excel中B列的最后一行?

数据每次都会有所不同,因此我无法对任何范围进行硬编码。

VBA代码将是很好的,从H2削减:B列的最后一排L2下来,粘贴/插入

到目前为止,我得到了。

Range("H2:L2").Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Cut 
+0

我已经录制宏从H2:L2中选择所有单元格,但我被粘贴在列B的最后一个单元格中。请参阅编辑 – Mowgli

回答

6

这是一段代码,应该完成你正在寻找的东西。

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。我对微软“一步一步”系列发布的系列有所偏爱。祝你好运!

+0

谢谢我只需将'Selection.PasteSpecial'更改为'ActiveSheet.Paste '它运作良好。非常感谢。 – Mowgli

+0

酷豆!乐意效劳! –

相关问题