含公式单元格下Range("A1:B3").Sort的VBA宏失效求助

嘿，我来帮你搞定这个问题！首先你的代码里有两个小拼写错误，这会直接导致宏跑不起来：

• Descending 应该写成 xlDescending（Excel VBA里的常量要加xl前缀）
• x1No 是个笔误，应该是 xlNo（是字母l不是数字1）

不过核心问题是：你用的Worksheet_Change事件只会在用户手动修改单元格内容时触发，但A列是公式（比如A1=C1），当C1变化时A1的数值更新是公式计算的结果，这种情况不会触发Change事件，所以你的排序宏根本没机会运行。

给你一个最简单的解决方案，改用Worksheet_Calculate事件——这个事件会在工作表里任何公式计算完成后自动触发，完美适配你的场景。

替换成下面的代码就行：

Private Sub Worksheet_Calculate()
    ' 先关闭事件触发，避免排序导致重复触发计算事件（防止无限循环）
    Application.EnableEvents = False
    
    ' 执行排序：按A1:A3降序排列，A1:B3区域跟着联动，无表头
    Range("A1:B3").Sort Key1:=Range("A1:A3"), Order1:=xlDescending, Header:=xlNo
    
    ' 排序完成后重新开启事件触发
    Application.EnableEvents = True
End Sub

操作步骤： #

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里找到你要设置的工作表（比如Sheet1），双击它
3. 删除原来的Worksheet_Change代码，把上面的代码粘贴进去
4. 保存文件（如果是.xlsx格式，需要另存为.xlsm启用宏）

这样以后，只要C1/C2/C3这些单元格变化，A1:A3的公式更新后，宏就会自动帮你排序A1:B3区域啦！

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