Question

我的工作簿有几张纸。我有一个分配了宏的按钮。此按钮位于工作表2中。当我按分配了以下宏的按钮时，Excel显示错误

“运行时错误'1004'：应用程序定义的错误或对象定义的错误。

但是当我在vba编辑器中运行de macro并同时位于sheet1中时，它确实运行完美。它只是一个复制和粘贴。错误出现在下一行

.Range（Cells（3，1），Cells（3 + B，10））。选择

这里是代码，变量只是用来定位要复制的范围和粘贴位置。 A B是对要复制的列进行计数的数字，C是表结束后的下一行，将粘贴复制的范围

   Dim A As Integer
   Dim B As Integer
   Dim C As Integer


A = Worksheets("Sheet1").Range("table1").Rows.Count
B = Worksheets("Sheet1").Range("A1").Value
C = A + 8

   With Worksheets("Sheet1")
   .Range(Cells(3, 1), Cells(3 + B, 10)).Select
   .Range(Cells(3, 1), Cells(3 + B, 10)).Copy
   .Range("A" & C).PasteSpecial Paste:=xlPasteValues
   End With

Answer 1

我没有使用其中一条注释中所述的.cells，但是我所做的是将Application放在.range语句之前，并且有效！

Application.Range(Cells(3, 1), Cells(3 + B, 10)).Select
Application.Range(Cells(3, 1), Cells(3 + B, 10)).Copy
Application.Range("A" & C).PasteSpecial Paste:=xlPasteValues

复制并粘贴到另一张纸上

1 个答案: