Question

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

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

在TextToColumns完成了它的工作之后，我怎么能找出创建了多少列？我的结果中的列数是可变的，并且不能保证在拆分结束后有空格。

如果TextToColumns函数返回它创建的列数，那将会很棒，但这似乎不起作用。

我不想在分裂之前统计逗号;例如，引号内有逗号的情况，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

TextToColumns创建了多少列？

1 个答案: