调整大小和抵消范围问题-运行时错误1004

Question

我正在定义范围以供以后在某些代码中使用，但始终遇到运行时错误'1004'：应用程序定义或对象定义的错误。

我已经确定这是resize元素的问题，但无法确定问题所在。

任何帮助将不胜感激！

Range("A1").EntireColumn.Insert

Dim ColumnArrayB As Range
    Set ColumnArrayB = Range("B2", Range("B2").End(xlDown))

Dim ColumnArrayA As Range
    Set ColumnArrayA = ColumnArrayB.Offset(rowoffset:=0, columnoffset:=-1)

Dim ColumnArrayAAdjusted As Range
    Set ColumnArrayAAdjusted = ColumnArrayA.Resize(-1, 0).Offset(0, -1).Select

Answer 1

上面的代码有一些问题-尤其是一行：

Set ColumnArrayAAdjusted = ColumnArrayA.Resize(-1, 0).Offset(0, -1).Select

1. 在设置变量时以.select结尾是有问题的。

2. 调整大小需要大于或等于1的值。

3. 取决于列的位置，偏移量不起作用，因为您试图到达 A列左侧的一列。

也许澄清您想要实现的目标会有所帮助？

希望这很有帮助！