写一段excel代码，要求先判断c列有相同数值的行，有相同的就合计e列、f列、k列的数值

在Excel中，您可以使用VBA（Visual Basic for Applications）编程来实现您所描述的功能。以下是一个简单的VBA示例代码，用于检查C列中是否有重复的数值，并对这些行的E、F、K列进行合计。

Sub 合计重复数值行()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 或者指定工作表: Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim rng As Range
    Dim cell As Range
    Dim key As Variant
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 定义需要合计的列
    Dim sumColumns As Variant
    sumColumns = Array("E", "F", "K")
    
    ' 初始化字典和范围
    For Each cell In ws.Range("C1:C" & lastRow)
        If Not dict.Exists(cell.Value) Then
            Set dict(cell.Value) = ws.Range(cell.Address).EntireRow
        Else
            For Each col In sumColumns
                ' 将数值累加到字典中对应的行上
                dict(cell.Value).Columns(col).Value = dict(cell.Value).Columns(col).Value + cell.EntireRow.Columns(col).Value
            Next col
        End If
    Next cell
    
    ' 清除原有数据（如果需要）
    For Each key In dict.Keys
        Set rng = dict(key)
        rng.Columns("E:F,K:K").ClearContents
        rng.Range("E" & rng.Row).Value = "合计"
    Next key
End Sub

要使用这段代码，请按照以下步骤操作：

1. 在Excel中按下`Alt + F11`打开VBA编辑器。
2. 在菜单栏中选择“插入” -> “模块”，在打开的模块窗口中粘贴上述代码。
3. 按下`F5`运行代码或者关闭VBA编辑器回到Excel界面，在开发者工具栏中选择“宏”，找到`合计重复数值行`并运行。

请注意，在运行VBA代码之前，请确保您的Excel允许运行宏，并且您已经保存了所有重要数据，以防任何意外发生。