Question

我尝试使用名为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

我收到错误说：

Worksheet类的PasteSpecial方法失败。

我试图将Sheet1工作表的所有整行复制到另一个工作簿。有什么帮助吗？

Answer 1

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

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

错误：PasteSpecial方法2013

1 个答案: