嘿，我来帮你搞定这个Excel自动计算分数的需求！我准备了两种实用方案，你可以根据自己的情况选：

方案一：不用写代码的公式法（适合快速上手） #

如果你的Excel是365或2021版本，直接用TEXTAFTER函数就能轻松提取“分数”后面的数字，然后相加。在N2单元格输入下面的公式，然后下拉填充到所有行就行：

=VALUE(TEXTAFTER(K2,"分数")) + VALUE(TEXTAFTER(L2,"分数")) + VALUE(TEXTAFTER(M2,"分数"))

要是你用的是旧版Excel（没有TEXTAFTER），就用MID+SEARCH组合来提取数字，公式如下：

=VALUE(MID(K2,SEARCH("分数",K2)+2,LEN(K2)-SEARCH("分数",K2)-1)) + VALUE(MID(L2,SEARCH("分数",L2)+2,LEN(L2)-SEARCH("分数",L2)-1)) + VALUE(MID(M2,SEARCH("分数",M2)+2,LEN(M2)-SEARCH("分数",M2)-1))

如果单元格里的数字位置不固定（比如“分数”前后都有其他字符），可以用这个通用的数字提取公式，不管数字在文本里的哪个位置都能抓到：

=SUMPRODUCT(MID(0&K2,LARGE(INDEX(ISNUMBER(--MID(K2,ROW($1:$255),1))*ROW($1:$255),0),ROW($1:$255))+1,1)*10^ROW($1:$255)/10) + SUMPRODUCT(MID(0&L2,LARGE(INDEX(ISNUMBER(--MID(L2,ROW($1:$255),1))*ROW($1:$255),0),ROW($1:$255))+1,1)*10^ROW($1:$255)/10) + SUMPRODUCT(MID(0&M2,LARGE(INDEX(ISNUMBER(--MID(M2,ROW($1:$255),1))*ROW($1:$255),0),ROW($1:$255))+1,1)*10^ROW($1:$255)/10)

方案二：VBA宏批量处理（适合大量数据或自动化） #

如果你的数据行数特别多，或者想一键完成所有行的计算，可以用VBA宏来实现。步骤很简单：

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 把下面的代码粘贴到模块里：

Sub CalculateTotalScore()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim kVal As Double, lVal As Double, mVal As Double
    
    ' 替换成你的工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动找到K列最后一行有数据的位置
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    
    ' 循环处理每一行（假设第1行是表头，从第2行开始计算）
    For i = 2 To lastRow
        ' 提取K、L、M列的数字
        kVal = ExtractNumber(ws.Cells(i, "K").Value)
        lVal = ExtractNumber(ws.Cells(i, "L").Value)
        mVal = ExtractNumber(ws.Cells(i, "M").Value)
        
        ' 计算总分并写入N列
        ws.Cells(i, "N").Value = kVal + lVal + mVal
    Next i
End Sub

' 辅助函数：从任意文本中提取数字（支持小数）
Function ExtractNumber(text As String) As Double
    Dim i As Integer
    Dim numStr As String
    
    numStr = ""
    ' 遍历文本每个字符，只保留数字和小数点
    For i = 1 To Len(text)
        If IsNumeric(Mid(text, i, 1)) Or Mid(text, i, 1) = "." Then
            numStr = numStr & Mid(text, i, 1)
        End If
    Next i
    
    ' 如果提取到数字就转换为数值，否则返回0
    ExtractNumber = IIf(numStr <> "", CDbl(numStr), 0)
End Function

4. 修改代码里的Set ws = ThisWorkbook.Worksheets("Sheet1")，把Sheet1改成你实际的工作表名称
5. 按F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」→选择CalculateTotalScore执行就行

这个宏会自动遍历所有有数据的行，提取K、L、M列里的数字并相加，结果直接写到N列，完全不用手动操作~

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