Excel VBA：快速生成由输入的字母代表的单词

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim alphCount As Integer
    Dim alph As String
    Dim result As String
    Dim i As Integer
    Dim TargetColumn As Integer
    Dim TargetRow As Integer
    On Error Resume Next
    TargetColumn = Target.Column
    TargetRow = Target.Row
    If TargetColumn = 5 And Cells(TargetRow, TargetColumn) = "" Then
        Cells(TargetRow, TargetColumn + 1) = ""
        Exit Sub
    End If
    If TargetColumn = 5 Then
        alphCount = Len(Cells(TargetRow, TargetColumn))
        For i = 1 To alphCount + 1
            alph = Mid(Range(Target.Address), i, 1)
            If Range("A2:A27").Find(alph) Is Nothing Then
                result = result & ", " & alph
            Else
                result = result & "," & Range("A2:A27").Find(alph).Offset(0, 1)
End If
          Next i
        Cells(TargetRow, TargetColumn + 1) = Mid(result, 2, Len(result) - 3)
    End If
End Sub