小编use*_*251的帖子

我正在尝试使用宏将文本转换为列,但我无法做到,我已经尝试记录一个宏来实现这一点,但是我遇到了一些问题,因为文本到列VBA函数需要一个选择,有没有一种方法我可以用dinamically选择让我们说范围A7:A50000？甚至更好的A7:lastnonempty细胞？

谢谢,

仅供参考,分隔符并不重要,因为我需要这样做才能将文本转换为公式

这是我的代码

Range("O6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("O6"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True