处理同一列中的不同格式

Handling different formats in the same column

运行有点问题,我收到的一个文件中有一列由数字和文本组成,目前这一列的格式是文本格式。有没有办法将数字转换为数字格式并将文本保留为文本?我需要能够这样做以便稍后在代码中进行比较,并且由于这种格式,它显示为不同的数字,因为它们是文本格式。

这是我目前正在实施的将导入版本转换为文本的代码:

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

感谢任何help/advice!

比 VBA 更简单 - 转到数据功能区,select 列,然后单击文本到列,然后单击完成。

这通常会自动检测格式为文本的数字是否存在,并适当地重新设置格式。