UC知道EXCEL如何自动判断相同数值单元格后合并
来源：百度知道 编辑：UC知道 时间：2024/06/16 04:23:12
我有这么一些数据:
编码 姓名 入学时间 毕业时间 学历
001 张三 1992 1995 初中
001 张三 1995 1998 高中
001 张三 1998 2002 本科
002 李四 2001 2003 高中
002 李四 2003 2005 大专
希望得到的结果是将前两个字段:相同的编码和姓名分别合并,后三个字段不进行变化.因为数据量庞大,想用宏完成,不知道怎么设置自动合并单元格的公式.(编码是唯一的,但是姓名不是)
不能简单的下面的单元格比对上面的单元格,因为还有几个字段我没列出来,比如"性别",这个很容易就把两个不同的人合并了.
编码 姓名 入学时间 毕业时间 学历
001 张三 1992 1995 初中
001 张三 1995 1998 高中
001 张三 1998 2002 本科
002 李四 2001 2003 高中
002 李四 2003 2005 大专
希望得到的结果是将前两个字段:相同的编码和姓名分别合并,后三个字段不进行变化.因为数据量庞大,想用宏完成,不知道怎么设置自动合并单元格的公式.(编码是唯一的,但是姓名不是)
不能简单的下面的单元格比对上面的单元格,因为还有几个字段我没列出来,比如"性别",这个很容易就把两个不同的人合并了.
用VBA。
按Alt+F8，宏名输“合并等值”后，点创建
把以下代码：
Sub 合并等值()
End Sub
改成以下
Sub 合并等值()
Dim rgScan As Range, rgPrev As Range, rgFirst As Range
Application.DisplayAlerts = False
Set rgFirst = Selection(1, 1)
Set rgPrev = Selection(1, 1)
For Each rgScan In Selection
If rgScan <> rgFirst Then
Range(rgFirst, rgPrev).Merge
Set rgFirst = rgScan
End If
Set rgPrev = rgScan
Next rgScan
Range(rgFirst, rgPrev).Merge
Application.DisplayAlerts = True
End Sub
关闭弹出的窗口
回到 Excel 选中需处理的区域。（只能选一列。）
再按 Alt+F8
点 合并等值 后再执行。
你可以简单的去解决这个问题，
新建一个工作表，
然后通过分别判断A、B列的当前单元格是否同上面相等，
来建立同源数据的引用。
比如可以在新工作表的A2输入公式
=if(sheet1!$A2=sheet1!$A1,"",sheet1!A2)
然后向A、B列填充。
补充：
可以加判断条件呀，比如你说的可以用逻辑与判断：
AND(条件1，条件2，...)
假设你的数据中性别在C列