Excel VBA需求：清除公式最后括号后内容并设置单元格蓝色

以下是修改后的VBA代码，实现仅清除黄色单元格公式最后一个括号后的内容，并将单元格设为蓝色：

Dim cell As Range
Dim lastParenPos As Integer

' 遍历工作表1的J、K列所有单元格
For Each cell In Worksheets(1).Range("J:K").Cells
    If cell.Interior.Color = vbYellow Then
        ' 仅处理带公式的单元格（如需处理纯文本可删除此判断）
        If cell.HasFormula Then
            ' 反向查找最后一个右括号的位置
            lastParenPos = InStrRev(cell.Formula, ")")
            If lastParenPos > 0 Then
                ' 保留最后一个括号及之前的公式内容
                cell.Formula = Left(cell.Formula, lastParenPos)
            End If
        End If
        ' 将单元格背景设置为蓝色
        cell.Interior.Color = vbBlue
    End If
Next cell

关键说明 #

• 移除原代码的Select操作，直接遍历目标区域，提升VBA运行效率
• 使用InStrRev函数精准定位公式中最后一个右括号的位置，确保只保留公式主体部分
• 加入cell.HasFormula判断，避免误处理纯文本类型的黄色单元格；若需要处理文本中的括号内容，可删除此判断
• 完成内容修改后，统一将单元格背景设为蓝色，标记已处理的单元格

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