复制并粘贴到新工作表

时间:2015-06-29 15:21:50

标签: excel vba excel-vba

我正在尝试将一行数据从一个工作表复制到另一个工作表但运行其他一些宏,但是我不断收到错误消息,即粘贴区域和复制区域的大小和形状不同。

我尝试过使用特殊单元格粘贴方法,但似乎缺少最后9列的数据。

代码:

id.EntireRow.SpecialCells(xlCellTypeConstants).Copy
missingdata.Range("A" & Rows.Count).End(xlUp).Offset(1,1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

我需要帮助更改代码,以便复制整行数据并将其粘贴到missingdata中的现有条目下。

当我选择粘贴到A列时它似乎有用,但它不允许我从B列粘贴

1 个答案:

答案 0 :(得分:0)

我通常使用:

Rows(index).Copy
Cells(1,Rows.Count+1).Select
ActiveSheet.Paste