如何在编辑公式栏时运行宏实现公式快速调整？

当然可以实现！你要的这个功能完全能通过VBA宏+自定义快捷键搞定，下面我一步步给你拆解怎么做：

1. 编写VBA宏 #

首先打开VBA编辑器（按下Alt+F11就行），在左侧的项目窗口里右键点击你的工作簿，选择插入→模块，然后把下面的代码粘贴进去：

Sub WrapSelectedFormulaInParentheses()
    Dim formulaText As String
    Dim selectedStart As Long, selectedLength As Long
    
    ' 获取当前单元格的公式，以及你在公式栏选中内容的位置信息
    formulaText = ActiveCell.Formula
    selectedStart = Application.SelectionStart
    selectedLength = Application.SelectionLength
    
    ' 确保确实选中了公式里的某段内容
    If selectedLength > 0 Then
        ' 给选中的内容前后加上括号，重新拼接公式
        formulaText = Left(formulaText, selectedStart) & "(" & _
                      Mid(formulaText, selectedStart + 1, selectedLength) & ")" & _
                      Right(formulaText, Len(formulaText) - selectedStart - selectedLength)
        
        ' 更新单元格的公式
        ActiveCell.Formula = formulaText
        
        ' 优化体验：把光标移到括号后面，方便继续编辑公式
        Application.SelectionStart = selectedStart + selectedLength + 2
        Application.SelectionLength = 0
    End If
End Sub

这个宏的逻辑很简单：它会抓取你当前编辑的公式，定位你选中的文本段，给这段内容前后套上括号，然后自动更新公式，还会把光标移到括号末尾，不用你手动调整位置。

2. 给宏绑定自定义快捷键 #

接下来给这个宏设置你想要的快捷键（比如你举例的Alt+Q+E，不过要注意Excel默认快捷键的冲突，比如Alt+Q是打开开发者工具的快捷键，所以可以选Ctrl+Shift+B这类不常用的组合）：

• 回到Excel主界面，按下Alt+F8打开宏对话框
• 选中刚才创建的WrapSelectedFormulaInParentheses宏，点击对话框右侧的选项按钮
• 在弹出的窗口里，在“快捷键”输入框中按下你想要的组合键（比如按住Ctrl+Shift再按B），然后点击确定保存

3. 实际使用方法 #

现在当你在公式栏里选中想要加括号的内容（比如你例子里的5+4），按下你设置好的快捷键，就能瞬间给选中内容套上括号，直接完成=4×(5+4)的修改，完全替代之前繁琐的剪切粘贴步骤！

小提示 #

• 这个宏只有在编辑单元格公式且选中了公式里的文本段时才会生效，单纯选中单元格是没用的哦
• 如果遇到快捷键冲突的情况，换一个组合键就行，比如Ctrl+Alt+P这类组合
• 就算公式里已经有嵌套括号，这个宏也能正常工作，它只会给你选中的那部分加一层括号

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