VBA內存不足問題

Question

當我嘗試在我的PC中運行下面的代碼時，它工作正常。但是，當我嘗試在另一臺PC上運行時，它工作正常。

我需要部署該工具。

'I am getting error here 
ws2.columns(2).insert 
ws2.range("A:A").value = ws3.range("C:C").value 

Answer 1

您是否嘗試過將參數添加到插入？

像這樣：

ws2.Columns(2).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
ws2.Range("A:A").Value = ws3.Range("C:C").Value 

或者直接插入你的科拉姆，像這樣：

ws3.Range("C:C").Copy 
ws2.Columns(2).Insert Shift:=xlToRight