全部显示

TextToColumns 方法

       

将包含文本的一列单元格分解为若干列。

expression.TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Destination   Variant 类型,可选。指定 Microsoft Excel 放置结果的位置的 Range 对象。如果该区域大于一个单元格,请使用左上角的单元格。

DataType   XlTextParsingType 类型,可选。将被拆分到多列中的文本的格式。

TextQualifier   XlTextQualifier 类型,可选。

ConsecutiveDelimiter   Variant 类型,可选。如果该值为 True,则 Microsoft Excel 将把连续的分隔符识别为单个分隔符。默认值为 False

Tab   Variant 类型,可选。如果该值为 True,则 DataTypexlDelimited 且以制表符为分隔符。默认值为 False

Semicolon   Variant 类型,可选。如果该值为 True,则 DataTypexlDelimited 且以分号为分隔符。默认值为 False

Comma   Variant 类型,可选。如果该值为 True,则 DataTypexlDelimited 且以逗号为分隔符。默认值为 False

Space   Variant 类型,可选。如果该值为 True,则 DataTypexlDelimited 且以空格为分隔符。默认值为 False

Other   Variant 类型,可选。如果该值为 True,则 DataTypexlDelimited 且以 OtherChar 参数指定的字符为分隔符。默认值为 False

OtherChar   Variant 类型,可选(当 OtherTrue 时为必需)。当 OtherTrue 时的分隔符。如果指定了若干字符,则仅使用其中的第一个字符而忽略其他字符。

FieldInfo   Variant 类型,可选。包含单列数据拆分信息的数组。对本参数的解释取决于 DataType 的值。如果此数据由分隔符分隔,则本参数为由两元素数组组成的数组,其中每个两元素数组指定一个特定列的转换选项。第一个元素为列标(从 1 开始),第二个元素是 xlColumnDataType 常量之一,用以指定该列的拆分方式。

DecimalSeparator   String 类型,可选。表示在识别数字时,Microsoft Excel 使用的小数分隔符。默认设置为系统设置。

ThousandsSeparator   String 类型,可选。表示在识别数字时,Excel 使用的千位分隔符。默认设置为系统设置。

TrailingMinusNumbers   Variant 类型,可选。以减号字符开始的数字。

下表显示了使用不同的导入设置向 Excel 中导入文本时的结果。数字结果显示在最右边的列中。

系统十位分隔符 系统千位分隔符 十位分隔符值 千位分隔符值 原始文本 单元格的值(数据类型)
句号 逗号 逗号 句号 123.123,45 123,123.45(数字)
句号 逗号 逗号 逗号 123.123,45 123.123,45(文本)
逗号 句号 逗号 句号 123,123.45 123,123.45(数字)
句号 逗号 句号 逗号 123 123.45 123 123.45(文本)
句号 逗号 句号 空格 123 123.45 123,123.45(数字)

示例

本示例将剪贴板中的内容(以空格分隔的文字表格)转换为 Sheet1 中单独的列内。可用“记事本”或“写字板”(或其他文本编辑器)创建简单的以空格分隔的表格,将该表格复制到剪贴板,再切换到 Microsoft Excel,然后运行本示例。

Worksheets("Sheet1").Activate
ActiveSheet.Paste
Selection.TextToColumns DataType:=xlDelimited, _
    ConsecutiveDelimiter:=True, Space:=True