大哥，能帮我把下面的语句翻译一下吗，十分感谢！！

Dim X, Y, Z
'将A列不为空区域的数值赋予数组A，这个是根据[E1].Resize(UBound(A)) = B和ReDim B(1 To UBound(A), 1 To 1)推断是取得A列的数据
A = [A1].CurrentRegion
'重定义一个数组B
ReDim B(1 To UBound(A), 1 To 1)
C = Array(1, 4, 7, 8, 9, 11, 13, 15)
'定义D为字典对象
Set D = CreateObject("SCRIPTING.DICTIONARY")
'将数组C中的元素作为字典对象的key，item属性=x
For X = 0 To UBound(C)
D(C(X)) = X
Next
'循环数组A中元素
For X = 1 To UBound(A)
'以回车符为分隔符将数组A中的元素拆分成数组S
S = Split(A(X, 1), Chr(10)): Z = 0
For Y = 0 To UBound(S)
'循环数组S，如果S数组中的元素个数+1=数组C中的元素1, 4, 7, 8, 9, 11, 13, 15
If Not D.EXISTS(Y + 1) Then
'Z+1
Z = Z + 1
'去掉S(y)文本两边的空格,赋予变量SY
SY = Trim(S(Y))
'如果Z=4，YS=截取SY的第三位到第99位的字符
If Z = 4 Then
SY = Mid(SY, 3, 99)
YS = SY
End If
'如果Z=5，SS=SS & " 邮政编码" & SY的第一个字符，继续下一个循环
If Z = 5 Then
SS = SS & " 邮政编码" & Mid(SY, 1, 1)
GoTo 0
End If
'如果Z=6，且SY=YS，继续下一个循环
If Z = 6 Then
If SY = YS Then GoTo 0
End If
'SS=SS & 回车符 & SY
SS = SS & Chr(10) & SY
0:
End If
Next
'将SS赋予数组B
B(X, 1) = Mid(SS, 2, 999): SS = ""
Next
'将数组B写入E列
[E1].Resize(UBound(A)) = B

整断代码的大概意思：
判断A列中数据有多少行，循环行数，如果行数+1=数字1, 4, 7, 8, 9, 11, 13, 15，则分别取出这一行的文本进行处理。我估计这是处理网络上复制来的多行文本。