Question

我正在使用VBA TextToColumns来将逗号分隔的值拆分为它们自己的列，但是当只有2个值时，它将comma更改为dot并且不拆分值列。

我曾尝试更改逗号分隔值，但是对于其他特定项目，我还有其他项目依赖于逗号的使用。我不完全了解TextToColumns代码，因此对其进行修改有点困难。

Sheets("rapport").Range("N4:N" & rowCount).TextToColumns Destination:=Range("N4"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
            ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
            (20, 1)), TrailingMinusNumbers:=True

N包含以下示例值：

1,2,3
1,2
1,2,3,4,5
1,2,3
1,2

我希望得到以下结果：

1 - 2 - 3
1 - 2
1 - 2 - 3 - 4 - 5
1 - 2 - 3
1 - 2

我得到以下结果：（1.2在同一列中，不会拆分）

1 - 2 - 3
1.2
1 - 2 - 3 - 4 - 5
1 - 2 - 3
1.2

Answer 1

检查Windows系统设置。

如果系统设置使用逗号作为小数点分隔符，excel会将（1,2）视为一个数字，并且不会将其拆分。只有当您的示例中有一个逗号时，这种混淆才出现。

有没有一种方法可以使用TextToColumns仅用2个值进行逗号分隔？

1 个答案: