Question

请考虑以下Excel VBA代码

 Private Sub Copy_Formula(Dest As Integer, iCustomer As Long)
  Sheets("INPUT").Select
  Cells(2, Dest).Select
  Selection.Copy
  Range(Cells(4, Dest), Cells(3 + iCustomer, Dest)).Select
  ActiveSheet.Paste '<------ Errors out
  Application.CutCopyMode = False
  Calculate
  Range(Cells(4, Dest), Cells(3 + iCustomer, Dest)).Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
 End Sub

调用此子时，Dest的值为84，iCustomer的值为1044770。

我只是想知道是否有解决这个粘贴操作的解决方案？是否有可能在某处增加缓冲区大小以容纳这些海量数据？我们在具有64位操作系统的32 GB RAM计算机上使用32位Excel 2010。

64位Excel能用吗？

Answer 1

最好使用完全限定名称而不是(call )。

试试这个

ActiveSheet

也是32位或64位，对于这段代码来说都是一样的。

工作表类的粘贴方法失败

1 个答案: