Vba 使用Excel拆分函数将单元格内容拆分为多列，而不使用统一的分隔符

对于简单文本，我很熟悉一个单元格到多列的功能。我有大约250行，其中每行在一个单元格中有非统一数量的列表项。一些单元格只有一个列表项，其他单元格只有五个。我需要用每个列表项分别填充列。列为“第一项”、“第二项”等。列表中的项是长度不一致的字符串

基本上需要一个单元格，上面写着“1.我有一只狗5.猫8.今天阳光明媚”，让第一栏写着“1.我有一只狗”，第二栏写着“5.猫”，第三栏写着“8.今天阳光明媚”。然后处理250行

这是我尝试过的一些VBA，但它没有任何作用

Sub test()
Dim text As String
Dim a As Integer
Dim name As Variant
text = ActiveCell.Value
name = Split(text, "##.")
End Sub

---

那么你在号码上分了两派？您要拆分的号码后面是否总是有一个

？这些是字符串中唯一的数字吗？是的，这就是我想做的。但是我需要保留数字作为字符串的一部分。您可能需要查看regex。看这里：当我用2-25替换“###.”时，仍然不起作用。所以你在数字上分开了？您要拆分的号码后面是否总是有一个

？这些是字符串中唯一的数字吗？是的，这就是我想做的。但是我需要保留数字作为字符串的一部分。您可能需要查看regex。看这里：当我用2-25替换“###”时仍然不工作。