請用vba編寫，在中文字符後加壹個空格（含有希臘字母等特殊字符的情況我無法解決） 請高手幫忙

Dim rng As Range, n As Long, i As Long, s As String

For Each rng In Selection '對當前選擇集處理

n = Len(rng)

For i = 1 To n

If rng = "" Then Exit For

s = Mid(rng, n - i + 1, 1)

If Asc(s) < 0 And Asc(s) > -20535 Then '判斷為中文字符

rng = Application.WorksheetFunction.Replace(rng, n - i + 1, 1, s & " ")

Exit For

End If

Next i

Next

End Sub