如何修改VBA代码实现单元格内容的!添加、重复添加与移除循环？

需求说明 #

需要实现两种字符串的三状态循环转换：

• 类型1：shift1< → shift1!< → shift1!!< → shift1<（循环切换）
• 类型2：shift1<^ → shift1!<^ → shift1!!<^ → shift1<^（循环切换）

原代码问题 #

原代码存在两个核心问题：

1. 用InStr判断!的位置而非数量，逻辑判断错误（比如InStr(..., "!")=1指的是第一个!在位置1，不是存在1个!）
2. 未逐个遍历处理选中单元格，批量Replace易导致误操作，且逻辑分支混乱无法覆盖三状态循环

修改后的完整代码 #

Sub ToggleExclamationMarks()
    Dim c As Range
    Dim originalText As String
    Dim hasCaret As Boolean
    
    '遍历选中的每个单元格
    For Each c In Selection.Cells
        originalText = c.Value
        If originalText = "" Then
            '空单元格直接加!（保留原代码基础功能）
            c.Value = "!"
            GoTo NextCell
        End If
        
        hasCaret = InStr(originalText, "<^") > 0
        
        If hasCaret Then
            '处理带<^的格式
            Select Case True
                '状态1：无! → 添加一个!在<^前
                Case InStr(originalText, "!<^") = 0
                    c.Value = Replace(originalText, "<^", "!<^")
                '状态2：有1个! → 再加一个!变成!!<^
                Case InStr(originalText, "!!<^") = 0 And InStr(originalText, "!<^") > 0
                    c.Value = Replace(originalText, "!<^", "!!<^")
                '状态3：有2个! → 移除!!变回<^
                Case InStr(originalText, "!!<^") > 0
                    c.Value = Replace(originalText, "!!<^", "<^")
            End Select
        Else
            '处理带<但不带^的格式
            Select Case True
                '状态1：无! → 添加一个!在<前
                Case InStr(originalText, "!<") = 0
                    c.Value = Replace(originalText, "<", "!<")
                '状态2：有1个! → 再加一个!变成!!<
                Case InStr(originalText, "!!<") = 0 And InStr(originalText, "!<") > 0
                    c.Value = Replace(originalText, "!<", "!!<")
                '状态3：有2个! → 移除!!变回<
                Case InStr(originalText, "!!<") > 0
                    c.Value = Replace(originalText, "!!<", "<")
            End Select
        End If
        
NextCell:
    Next c
End Sub

关键修改说明 #

1. 逐个处理单元格：遍历Selection.Cells，确保每个单元格的状态判断独立，避免批量替换的误操作
2. 精准状态匹配：通过直接匹配目标子串（!<、!!<、!<^、!!<^）判断当前状态，逻辑清晰准确
3. 完整循环逻辑：针对两种格式分别实现三状态循环切换，完全覆盖需求中的转换路径
4. 保留基础功能：保留了原代码中空单元格添加!的功能

内容的提问来源于stack exchange，提问作者Mohamad Bachrouche