复制打印区域并粘贴到另一张纸时出现宏错误

Question

我已经创建了下面的代码，该代码在一定程度上可以运行，然后出现运行时错误 1004。有人可以帮忙吗？错误对话框显示“Range Class 的PasteSpecial 方法失败”并且第一行.PasteSpecial 突出显示。

Sub CopyPO()
'
' CopyPO Macro
'

'
   Dim rngPrintArea As Range
   Set rngPrintArea = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
With Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
End With
End Sub

为了澄清，我正在尝试复制活动工作表的打印区域并将其粘贴到库存工作表上的下一个可用单元格中。如果范围是特定的单元格范围（即 A1:P55），则此代码有效，但如果可能，我想复制并粘贴打印区域。

Answer 1

正如您自己发现的那样，您需要复制范围，然后使用PasteSpecial。所以在你的 with-block 之前添加rngPrintArea.Copy。

稍后，如果您想将最近粘贴的单元格添加到 "Inventory" 工作表中的打印区域，那么您需要这个：

Sub CopyPO()

   Dim rngPrintArea As Range
   Dim newRange As Range

   Set rngPrintArea = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
   rngPrintArea.Copy

   With Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
   End With

  Set newRange = Sheets("Inventory").Range(ActiveSheet.PageSetup.PrintArea)

  'If you want print area to be only the recent pasted range change the following line _
  'to commented line below;

  Set newRange = newRange.Resize(newRange.Rows.Count + _
                 rngPrintArea.Rows.Count, newRange.Columns.Count)

  'Set newRange = Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).Offset(1,0). _
   'Resize(rngPrintArea.Rows.Count,rngPrintArea.Columns.Count)

  Sheets("Inventory").PageSetup.PrintArea = newRange.Address

End Sub

Answer 2

喜欢这个

Sub CopyPO()

' CopyPO Macro

   Dim rngPrintArea As Range
   Set rngPrintArea = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
   rngPrintArea.Copy
   With Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
   End With
End Sub

但是-我可以将复制的范围添加到库存中的打印区域...您知道我必须添加什么才能使其正常工作吗？我自己也玩过，但还没有猜到...

Answer 3

没有代码表明正在复制某些内容。如果你添加一行来复制，它看起来会起作用。