VBA内存问题与范围有关

Question

当我尝试在我的电脑上运行以下代码时，它运行正常。但是，当我尝试在另一台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

或直接插入您的colum，如下所示：

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