vba - 文本到列正在获取对象'_global'的“方法'范围'失败”

Question

我使用“文本到列”向导获取宏代码并将其放入我的代码中。但它并没有在一致的基础上工作。

我得到“对象'_global'的方法'范围'失败”（有时）我查了一下，并应用了解决方案，要么什么都没有改变（它在几次执行后出错）

当前试图更好地指定它的尝试给我留下了

With Shipping
.ActiveSheet.Columns(letter & ":" & letter).TextToColumns Destination:=Range(letter & "1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9)), TrailingMinusNumbers:= _
    True
End With

我不知道它是否要我为前半部分或目的地指定更好，我找不到解决方案。

我该如何进行这项工作？

Answer 1

而不是使用（例如）.ActiveSheet.Columns("A:A")为什么不使用更简单的形式.ActiveSheet.Columns(1)？

并在 Destination 参数之前添加一个句Range点，否则该范围将默认为活动工作表。