TextToColumns创build了多less列？

这个问题最终比我想象的更有趣，而且我已经为我的目的解决了这个直接的问题。

但是现在我有一个问题，答案应该是简单的，但我找不到。

在TextToColumns完成它的事情后，我怎么能找出有多less列创build？ 我的结果中的列数是可变的，并不能保证在分割结束后有空白。

如果TextToColumns函数返回了它所创build的列的数量，那将是非常好的，但这似乎不起作用。

我不想在分裂之前计算逗号。 在引号内有逗号的情况，例如，TextToColumns似乎处理得很好。 如果我不得不逐个字符地计算，那么我不妨写我自己的分割函数。

（我需要这个的原因是我可以提供转换结果的选项）

谢谢。

Answer 1

你可以检查UsedRange。 请看下面的例子：

 Sub check() Dim before As Integer Dim after As Integer before = Sheet1.UsedRange.Columns.Count MsgBox before Range("A1").TextToColumns DataType:=xlDelimited, _ Comma:=False, Space:=True after = Sheet1.UsedRange.Columns.Count MsgBox after MsgBox after - before End Sub