我会分手动操作和**自动化（VBA）**两种方案来给你说明，按需选择就行：

手动操作方案 #

方法1：「删除重复值」+「数据透视表」组合 #

• 选中你的数据区域，点击「数据」选项卡 → 「删除重复值」，选择用来判断重复的列（比如网络名称列），删除重复行后保留每个网络的唯一标识行。
• 插入数据透视表：选中数据区域 → 「插入」选项卡 → 「数据透视表」，把网络名称拖到「行」区域，需要聚合的数值字段拖到「值」区域，点击值字段下拉菜单就能选择聚合方式（求和、计数、平均值等）。

方法2：「高级筛选」+「SUBTOTAL」函数 #

• 点击「数据」选项卡 → 「高级」筛选，选择「将筛选结果复制到其他位置」，勾选「选择不重复的记录」，设置好列表区域和复制目标位置，得到去重后的网络列表。
• 在对应聚合列使用SUBTOTAL函数，比如对每个网络的数值求和，就用=SUBTOTAL(9, 对应数值区域)，这个函数会自动忽略隐藏行，很适合配合筛选使用。

自动化（VBA）方案 #

如果需要批量重复操作，可以用这段代码，它会自动去重并对指定列完成求和聚合：

Sub RemoveDuplicatesAndAggregate()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 假设数据从A1开始，第一行是表头，网络名称在A列，要聚合的数值在C列
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 删除重复值，保留每个网络的唯一行（默认保留第一行，可根据需求调整）
    ws.Range("A1:C" & lastRow).RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 对聚合列求和（这里以C列为例，可根据实际修改列标识）
    ws.Range("D2:D" & lastRow).FormulaR1C1 = "=SUMIF(C[-3],RC[-3],C[-1])"
    ws.Range("D2:D" & lastRow).Value = ws.Range("D2:D" & lastRow).Value ' 将公式转换为固定值
End Sub

针对你说的每个网络有多行数据，需要自动分段、排序，还在每个网络最后一行计算指标的需求，我写了一段通用的VBA代码，你可以根据自己的实际列名和指标需求修改：

代码功能说明 #

这段代码会完成以下操作：

• 先按网络名称列排序，确保同一网络的行连续排列
• 遍历数据，自动识别每个网络的最后一行
• 在指定列计算你需要的指标（示例为求和，可替换为平均值、计数等）
• 可选给每个网络块添加边框，方便视觉区分分段

Sub SegmentNetworksAndCalculateMetrics()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow As Long, i As Long
    Dim currentNetwork As String, prevNetwork As String
    Dim startRow As Long
    
    ' 假设网络名称在A列，要计算的数值在B列，结果放在C列，第一行是表头
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 按网络名称排序，确保同网络行连续
    ws.Sort.SortFields.Clear
    ws.Sort.SortFields.Add Key:=ws.Range("A2:A" & lastRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws.Sort
        .SetRange ws.Range("A1:C" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 初始化变量
    startRow = 2
    prevNetwork = ws.Cells(2, "A").Value
    
    ' 遍历处理每一行数据
    For i = 2 To lastRow + 1
        currentNetwork = ws.Cells(i, "A").Value
        
        ' 当网络名称变化或到达最后一行时，处理当前网络块
        If currentNetwork <> prevNetwork Or i = lastRow + 1 Then
            ' 在网络最后一行计算指标（示例为对B列求和，可替换为其他函数）
            ws.Cells(i - 1, "C").Value = "=SUM(B" & startRow & ":B" & i - 1 & ")"
            ws.Cells(i - 1, "C").Value = ws.Cells(i - 1, "C").Value ' 转成固定值
            
            ' 可选：给网络块添加边框，方便视觉分段
            ws.Range("A" & startRow & ":C" & i - 1).BorderAround _
                LineStyle:=xlContinuous, Weight:=xlThick
            
            ' 更新变量，准备处理下一个网络
            startRow = i
            prevNetwork = currentNetwork
        End If
    Next i
    
    MsgBox "网络分段和指标计算完成！", vbInformation
End Sub

使用方法 #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 插入新模块：右键点击你的工作簿 → 「插入」→ 「模块」
3. 将上述代码粘贴到模块中
4. 根据你的实际数据列，修改代码里的列标识（比如把"A"改成网络名称所在的列字母）
5. 按F5运行代码，或者回到Excel界面，点击「开发工具」→ 「宏」选择该宏运行

自定义调整点 #

• 如果需要计算的不是求和，把代码里的SUM改成AVERAGE（平均值）、COUNT（计数）等函数即可
• 不需要边框分段的话，把添加边框的两行代码注释掉（在代码前加'）
• 若网络名称、数值列的位置不同，直接修改代码中的列字母即可

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