使用 方方格子工具箱 里面的 分类汇总功能即可实现。

1111

学习了 感谢大佬

这个功能可以 

看起来很不错哦，收藏之~~~
谢谢LZ啦！！！

求个附件

真是太好了

又学到了

又学到了

回复：楼主

hello,打开VBA 复制以下代码 ,注意{原始表和目标表格的名称如有需要需要自己替换一下},亲测 OK 跑的正常.

Sub MergeDuplicates()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 定义源表和目标表
    Set wsSource = Sheets("Sheet1") ' 源表
    Set wsDestination = Sheets("Sheet2") ' 目标表
    
    ' 获取源表数据范围
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    Set sourceRange = wsSource.Range("A2:D" & lastRow) ' 假设数据从第2行开始
    
    ' 遍历源表数据，并合并去重
    For Each cell In sourceRange.Columns(1).Cells
        ' 判断身份证、姓名和科室都相同的行是否已存在于目标表中
        If Application.WorksheetFunction.CountIfs(wsDestination.Columns(1), cell.Value, wsDestination.Columns(2), cell.Offset(0, 1).Value, wsDestination.Columns(3), cell.Offset(0, 2).Value) = 0 Then
            ' 找到与当前行身份证、姓名和科室相同的行
            ' 注意：这里假设身份证在第1列，姓名在第2列，科室在第3列
            Set destinationRange = wsDestination.Cells(wsDestination.Rows.Count, 1).End(xlUp).Offset(1, 0)
            
            ' 复制行数据到目标表
            cell.Resize(, 4).Copy destinationRange
        End If
    Next cell
End Sub