增加"Text to columns"限制

Question

我在一个单元格中有2003个单词，我想通过使用功能"文本到列"来分隔到不同列的不同单元格，但它最多只能做230列。有人能告诉我如何提高它的极限吗?或者我应该为它添加什么函数

注意我使用excel 2007

Answer 1

我不确定我能复制你的经历。当我创建一个简单的测试(包含250个项目的分隔字符串)时，TextToColumns方法创建500列数据:

Sub Test()
'
Dim i As Integer
Dim s As String
Dim r As Range
Set r = [A1]
For i = 1 To 500
s = s & i & ","
Next
r.Value = s
r.TextToColumns , xlDelimited, , , , , True
Debug.Print r.End(xlToRight).Column
End Sub

如果您不能解决它，那么这里有一个替代方案。您可以将单元格值拆分为一个数组，并将该数组打印到工作表中。

假设字符串以逗号分隔，单元格为"A1"。根据需要修改

Sub MyTextToColumns()
Dim r As Range
Dim s As String
Dim v As Variant

Set r = Range("A2")
s = r.Value
v = Split(s, ",")
Range("A3").Resize(1, UBound(v) + 1).Value = v
End Sub

数组的大小是有限制的，但是我认为应该在30000以上。