使用Excel拆分function将单元格内容拆分为多个列，而不具有统一的分隔符

当涉及到简单的文本时，我熟悉一个单元格为多列function。 我有大约250行，其中每行在一个单元格中具有非统一数量的列表项。 有些单元只有一个列表项，其他单元有五个。 我需要分别填充每个列表项的列。 列是“第一项”，“第二项”等。列表中的项目是不均匀的长度string。

基本上需要一个这样的细胞，说：“我有一只狗5.猫8.今天是阳光”，有第1栏说：“我有一只狗”，第2栏说“5.猫”，列3说“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