求助一个关于VBA的问题，
附件中的workbook里有两个worksheet，一个worksheet存有产品名称【title】，另一个worksheet存有名称中部分单词对应的关键字（ 类似于字典）【dictionary】

我希望写一个macro，可以把 title sheet 中每一行中的每一个词去dictionary sheet 查找看是否存在对应的关键词，如果有对应，则记录下来，当长度累计到100 character时 显示到title sheet 的 search term1 中，当多于100个时，多出的显示到search term 2 中。

我刚刚起步就碰到了问题，我想先建立两个数组，一个存title，一个存split后的每个词，但是总是出错。

Sub savetitle()
Application.ScreenUpdating = False
Dim title()
Dim i As Integer
Dim j As Integer
Dim searchterm()
Dim lngLastRow As Long
Set MyRange = Worksheets("title").Range("A" & "2")
lngLastRow = Cells(65553, MyRange.Column).End(xlUp).Row
For i = 1 To lngLastRow
title(i) = ActiveSheet.Range("A" & "2").Cells(i, 1).Text
searchterm(j) = Split(title(i), "")
For j = 0 To UBound(searchterm(i))
Cells(i, 2).Value = searchterm(j)
Next j
Next i
End Sub



我想先知道我哪里写错了。应该怎么改  (5 个论坛币）
如果有高人能够一次性帮我解决所有的问题，会格外奖励15个论坛币。请务必写注释。

多谢多谢