EXCEL问题，求大神们给给解决的方案啊

http://tieba.baidu.com/p/4653530243?pid=93279146550&cid=0#93279146550

Sub 秋天()
Dim arr, ar, i%, j%, x,t, n%, brr()
arr = Range("a1", [a1].End(4))
For Each ar In arr
i = Len(ar)
For j = 1 To i
t = Mid(ar, j, 1)
If t Like "[a-zA-Z]" Then
t = Chr(Asc(t) + 1)
x = x & t
Else
x = x & t
End If
Next
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = x
x = ""
Next
[b1].Resize(n) = Application.Transpose(brr)
End Sub