使用Excel VBA添加下一个或上一个字母

Sub AddNextLetter()
    Dim currentLetter As String
    Dim nextLetter As String
    
    ' 获取当前选中单元格的内容
    currentLetter = ActiveCell.Value
    
    ' 检查当前内容是否为一个字母
    If Len(currentLetter) = 1 And _
        UCase(currentLetter) >= "A" And UCase(currentLetter) <= "Z" Then
        
        ' 获取下一个字母的ASCII码
        nextLetter = Chr(Asc(UCase(currentLetter)) + 1)
        
        ' 在选中单元格的右侧插入下一个字母
        ActiveCell.Offset(0, 1).Value = nextLetter
    End If
End Sub

Sub AddPreviousLetter()
    Dim currentLetter As String
    Dim previousLetter As String
    
    ' 获取当前选中单元格的内容
    currentLetter = ActiveCell.Value
    
    ' 检查当前内容是否为一个字母
    If Len(currentLetter) = 1 And _
        UCase(currentLetter) >= "B" And UCase(currentLetter) <= "Z" Then
        
        ' 获取上一个字母的ASCII码
        previousLetter = Chr(Asc(UCase(currentLetter)) - 1)
        
        ' 在选中单元格的左侧插入上一个字母
        ActiveCell.Offset(0, -1).Value = previousLetter
    End If
End Sub