貼り付け方法は

Question

を失敗し、このサブが呼び出されると、取引先の値が84であるとiCustomerがある場合、私はちょうど思っていた1044770.

で次の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 

をご検討くださいこのペースト操作を解決するソリューション？この大量のデータを格納するためにどこかでバッファサイズを増やすことは可能ですか？ 64ビットOSを搭載した32 GB RAMマシンで32ビットのExcel 2010を使用しています。

64ビットExcelは動作しますか？

Answer 1

ActiveSheetの代わりに完全修飾名を使用することを常にお勧めします。

このコードのためにその全て同じ、この

Private Sub Copy_Formula(Dest As Integer, iCustomer As Long) 
    Sheets("INPUT").Cells(2, Dest).Copy Sheets("INPUT").Range(Cells(4, Dest), Cells(3 + iCustomer, Dest)) 
    Application.CutCopyMode = False 
    Calculate 

    Sheets("INPUT").Range(Cells(4, Dest), Cells(3 + iCustomer, Dest)).Copy 

    Sheets("INPUT").Range(Cells(4, Dest), Cells(3 + iCustomer, Dest)).Cells(1, 1).PasteSpecial _ 
          Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
    Application.CutCopyMode = False 
End Sub 

、32または64ビットを試してみてください。