求助：编写通用VBA实现Excel快捷键Alt+=的自动求和功能

以下VBA代码可完全复刻Excel快捷键Alt+=的核心功能：选中单个单元格后，自动对其上方所有连续非空白的数值型单元格求和，并将结果填充到选中单元格中，代码不绑定任何特定工作表或固定区域，可在任意Excel文件中通用。

Sub AutoSumAbove()
    Dim targetCell As Range
    Dim sumRange As Range
    Dim currentRow As Long
    
    ' 限制仅支持单个单元格选中
    If Selection.Cells.Count <> 1 Then
        MsgBox "请仅选中单个单元格执行此操作！", vbExclamation
        Exit Sub
    End If
    
    Set targetCell = Selection
    currentRow = targetCell.Row
    
    ' 向上遍历定位连续有效数值区域的起始行
    Do While currentRow > 1
        currentRow = currentRow - 1
        If IsEmpty(Cells(currentRow, targetCell.Column)) Or Not IsNumeric(Cells(currentRow, targetCell.Column)) Then
            currentRow = currentRow + 1
            Exit Do
        End If
    Loop
    
    ' 计算并填充求和结果
    If currentRow <= targetCell.Row - 1 Then
        Set sumRange = Range(Cells(currentRow, targetCell.Column), Cells(targetCell.Row - 1, targetCell.Column))
        targetCell.Value = Application.WorksheetFunction.Sum(sumRange)
    Else
        targetCell.Value = ""
    End If
End Sub

代码关键细节说明： #

• 输入校验：先判断选中单元格数量，避免批量选中时出现逻辑错误，和原生快捷键的交互逻辑保持一致。
• 精准区域识别：从目标单元格上一行开始向上遍历，直到遇到空白单元格或非数值单元格，确保只对连续的有效数值区域求和。
• 全局通用性：使用Selection和Cells对象，不依赖任何固定工作表名称或单元格地址，在任意工作表中都能正常运行。
• 边界场景处理：当目标单元格上方没有有效数值时，自动清空目标单元格，完全匹配原生Alt+=的行为。

使用步骤： #

1. 打开Excel，按下Alt+F11打开VBA编辑器。
2. 右键点击当前工作簿，选择「插入」→「模块」。
3. 将上述代码粘贴到新建的模块中。
4. 返回Excel界面，选中需要填充求和结果的单元格，按下Alt+F8选择AutoSumAbove宏执行，也可自行设置自定义快捷键。

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