excel怎么合并重复的数据啊，谁帮帮我，谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/25 03:47:41
A B C D E
甲 有
乙 有
丙 有
丁 有
甲 有
乙 有

像上面这样的一个表，A例有一些是重复的，甲和乙都有两条记录，但每一一条记录只有一个数据。把它合并成

A B C D E
甲 有 有
乙 有 有
丙 有
丁 有

谁告诉我怎么弄啊，谢谢了
上面的表格显示有错误，我说好了，甲在第一行的B列有，在第五行的E例上有，乙在第二行的B例上有，在第六行的C例上有

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，返回Excel按Alt+F8运行CombinData即可实现，虽然我这个回答较长，但操作起来最简单，呵呵，好像有两个一样的问题啊。
Sub CombinData()
Dim NewSheet As Worksheet, C As Integer, CC As Integer, R As Integer, RC As Integer, RI As Integer, I As Integer
'关闭屏幕刷新，提高程序运行速度
Application.ScreenUpdating = False
'新工作表的名字为“Combin_” & 当前工作表名
NewSheetName = "Comibn_" & ActiveSheet.Name
'在当前的工作表之后复制自身一份
Worksheets.Copy After:=ActiveSheet
'为新工作表命名“Combin_” & 当前工作表名
ActiveSheet.Name = NewSheetName
'以下操作针对复制后的工作表
With ActiveSheet
'C=已使用的区域的开始列
C = .UsedRange.Column
'CC=已使用的区域的列数
CC = .UsedRange.Columns.Count
'R=已使用的区域的开始行
R = .UsedRange.Row
'R=已使用的区域的行数
RC = .UsedRange.Rows.Count
'在已使用区域前插入一列，作为序号列，并填入已1开始的序号，最后根据这些序号恢复行原来的次序
Columns(C).Insert
'序号起始为1
Cells(R, C) = 1
'填充到最后一行
Cells(R, C).AutoFill Range(Cells(R