错误：PasteSpecial方法2013

我试图复制并粘贴名为Sheet1的特定工作表的另一个工作簿的值。 但是当我运行这个代码：

 Dim wb as Workbook Dim conso as Worksheet set conso = wb.Worksheets("Sheet1") With conso .Rows(1).EntireRow.Copy End With With ActiveSheet '.Paste .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteFormats .PasteSpecial xlPasteValues End With 

我得到一个错误说：

工作表类的PasteSpecial方法失败。

我试图将Sheet1工作表的整个行复制到另一个工作簿。 任何帮助？

Answer 1

尝试指出您需要粘贴您复制的单元格的位置：

 With ActiveSheet.Rows(1) '.Paste .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteFormats .PasteSpecial xlPasteValues End With