处理同一列中的不同格式
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 列,然后单击文本到列,然后单击完成。
这通常会自动检测格式为文本的数字是否存在,并适当地重新设置格式。
运行有点问题,我收到的一个文件中有一列由数字和文本组成,目前这一列的格式是文本格式。有没有办法将数字转换为数字格式并将文本保留为文本?我需要能够这样做以便稍后在代码中进行比较,并且由于这种格式,它显示为不同的数字,因为它们是文本格式。
这是我目前正在实施的将导入版本转换为文本的代码:
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 列,然后单击文本到列,然后单击完成。
这通常会自动检测格式为文本的数字是否存在,并适当地重新设置格式。