VBA代码求解释，我是新手

下面是从EXCEL论坛上下载的一个模糊查询的代码，我是个完全的VBA新手，求前辈给耐心的解释一下，越详细越好，谢谢。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim n&, Arr, i&, j&, y&
Dim Flag As Boolean
[b4:h16].ClearContents
aa = Split(Target.Value)
n = 3
Arr = [B18].CurrentRegion
For i = 2 To UBound(Arr)
Flag = True
x = Join(Application.Index(Arr, i), "")
For y = 0 To UBound(aa)
If InStr(UCase(x), UCase(Trim(aa(y)))) = 0 Then Flag = False: Exit For
Next
If Flag = True Then
n = n + 1
Cells(i + 17, 2).Resize(1, UBound(Arr, 2)).Copy Cells(n, 2)
End If
Next
End Sub

下面是求解释部分

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim n&, Arr, i&, j&, y&
Dim Flag As Boolean
[b4:h16].ClearContents
aa = Split(Target.Value)
'这里请解释一下：我理解的SPLIT()是一个根据分隔符分离字符串得到一维数组，比如split("我，是，中，国，人“，”，“）会得到一个{我，是，中，国，人}这个一个数组，可是他的这个代码没有分割符，我就想知道，如果我在B2输入 我是中国人 这5个字，运行这句代码会得到什么？

n = 3 ’这里的n=3是什么意思？为什么这个n要从3开始呢？n在这段代码中好像代表的是要复制的那个单元格的行号，或许是我后面代码没看懂，所以这里不知道n为什么要从3开始
Arr = [B18].CurrentRegion （这个我知道，arr是从B18单元格开始往后面的数据区域）
For i = 2 To UBound(Arr) ( 这个请解释一下，主要是 ubond(arr), 如果b18到G30这个区域都有数据，那么ubond(arr)是多少呢？是13*6=78吗？
Flag = True （这句代码明白，但是这个Flag在这里代表什么，有什么用，真心不知道）

x = Join(Application.Index(Arr, i), "") (这句代码的意思是将B18：G30数据区域的第2个数据开始加个空格？比如如果B19单元格是香水A型，那么这个代码运行后就得到 X ={香水A型&”“}，可是这个有什么用呢？为什么要加个空格呢？
For y = 0 To UBound(aa) （ 如果我在B2输入我是中国人 5个字，那么这个UBOND(aa) 是多少呢？
If InStr(UCase(x), UCase(Trim(aa(y)))) = 0 Then Flag = False: Exit For
这句应该是关键代码了，但是我很糊涂，trim(aa(y)) 是什么意思呢？如果trim(aa(y))这个字符串没有在X中出现，则flag=fasle,退出代码，请详细的解释下trim(aa(y))。
Next
If Flag = True Then
n = n + 1
Cells(i + 17, 2).Resize(1, UBound(Arr, 2)).Copy Cells(n, 2)
这句也是关键代码，看不懂，求前辈耐心解释。
End If
Next
End Sub
老师们啊，前辈们啊，你们不能老是喝酒泡妞打屁啊，快来传道授业解惑啊。。。。。

相关了解……