使用Excel拆分功能将单元格内容拆分为多个列，而没有统一的分隔符

Question

在简单文本方面，我熟悉一个单元格到多列的功能。我有大约250行，其中每行在一个单元格中具有非统一数量的列表项。有些单元格只有一个列表项，有些单元格有5个。我需要单独填充每个列表项的列。列是＆＃34; First Item＆＃34;，＆＃34; Second Item＆＃34;列表中的项目是非均匀长度的字符串。

基本上需要一个能说出类似内容的单元格＆＃34; 1。我有一只狗5.猫8.今天是阳光＆＃34;，让第1列说＆＃34; 1。我有一只狗＆＃34;，第2栏说＆＃34; 5。 Cat＆＃34;，第3栏说＆＃34; 8。今天是Sunny＆＃34;。然后处理250行。

这是我尝试的一些VBA，但它没有做任何事情。

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