Excel多行去重数据合并求解，这么晚了还有大神说今晚发福利在吗

来源：蜘蛛抓取(WebSpider) 时间：2016-09-20 17:41 标签： 结构力学求解器
怎么把excel里的内容合并在一起，有很多行内容，单纯的合并后就只剩一个行的内容了了_百度知道NGA玩家社区EXCEL两列数据，要求把第一列中相同项合并单元格，第二列中不变，效果如下图。数据链庞大，大神帮忙！EXCEL两列数据，要求把第一列中相同项合并单元格，第二列中-知识宝库
你可能对下面的信息感兴趣查看: 4569|回复: 5
多张表数据叠加合并、去掉重复行，求高人帮忙
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 liuqian0418 于
22:27 编辑
小弟碰到一个多张表数据叠加的问题，恳求高人帮忙解决，不胜感激！！& &（开始发了个帖子，可能没有讲清楚，重新再详细说一遍）
求助问题：在一个excel文件有多张sheet表，其中有部分表的数据格式是一样的，我希望把这些格式相同的几张表的数据合并到一个sheet表里面其他要求
1.保留1-5行的表头，合并表头之后的表格数据，数据只做叠加合并不汇总
2.格式与原表保持一致
3.合并后的数据放到新建的sheet表里面
4.可以自由选择2个或N个sheet表数据进行合并
5.自动去掉空白行数据（D-Q列单元格为空白）：D-Q列所有单元格为空白，就自动删除
6.自动去掉重复行：重复行特指所有列的数据都一样即为重复
具体见附件：表1、表2是原始数据，表《效果》是最后要得到的叠加数据效果请高手帮忙做一个宏来解决，谢谢了！！！
(7.93 KB, 下载次数: 77)
21:24 上传
点击文件名下载附件
阅读权限95
在线时间 小时
本帖最后由 dsmch 于
22:09 编辑
& && & Dim arr, brr, d As Object, i&, j&, k&, s$, a
Sheets(&效果&).Activate
Set d = CreateObject(&scripting.dictionary&)
For k = 1 To Sheets.Count
& && &&&If Sheets(k).Name && &效果& Then
& && && && &arr = Sheets(k).Range(&a6:q& & Sheets(k).Range(&q65536&).End(xlUp).Row)
& && && && &For i = 1 To UBound(arr)
& && && && && & s = &&
& && && && && & For j = 1 To UBound(arr, 2)
& && && && && && &&&s = s & &,& & arr(i, j)
& && && && && & Next
& && && && && & If InStr(s, String(12, &,&)) = 0 Then d(Mid(s, 2)) = &&
& && && && &Next
& && &&&End If
Next
a = d.keys
For i = 0 To d.Count - 1
& & Cells(i + 4, 1).Resize(1, UBound(arr, 2)) = Split(a(i), &,&)
Next复制代码
效果表中有四条重复数据
阅读权限20
在线时间 小时
交待的确实不是很清楚，比如重复行，是指全部列的内容都重复，还是哪些关键列重复。D-Q列单位空白，要具体指到哪一列或那几列为空白需要删除？
阅读权限20
在线时间 小时
Sub 合并()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = &合并&
Sheets(&表1&).Select
n% = Sheets(&表1&).Range(&a60000&).End(xlUp).Row
Range(Cells(1, 1), Cells(n, 1)).Select
Selection.EntireRow.Copy
Sheets(&合并&).Select
Rows(&1:1&).Select
& & ActiveSheet.Paste
& & Application.CutCopyMode = False
Sheets(&表2&).Select
n% = Sheets(&表2&).Range(&a60000&).End(xlUp).Row
Range(Cells(6, 1), Cells(n, 1)).Select
Selection.EntireRow.Copy
Sheets(&合并&).Select
n% = Sheets(&合并&).Range(&a60000&).End(xlUp).Row
Rows(n + 1).Select
ActiveSheet.Paste
& & Application.CutCopyMode = False
&&Dim A, T As String
With ThisWorkbook.Sheets(&合并&)
n% = .Range(&A60000&).End(xlUp).Row
For i% = 1 To n
& &A = .Cells(i, 1).Text
& &For j% = 1 To n
& &&&If .Cells(j, 1).Text = A Then
& && & If j & i Then
& && && &.Cells(j, 1).EntireRow.Delete
& && & End If
& &&&End If
阅读权限20
在线时间 小时
因你的问题交待不清，未写完代码
希望你自己完善吧
阅读权限20
在线时间 小时
本帖最后由 liuqian0418 于
22:31 编辑
fang5852 发表于
交待的确实不是很清楚，比如重复行，是指全部列的内容都重复，还是哪些关键列重复。D-Q列单位空白，要具体指 ...
1.重复行：指这两行的全部列数据都重复
2.空白行：指D-Q列所有单元格如果都为空白，就删除此行
如果有空还想帮忙写完代码，谢谢了！
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 结构力学求解器 的文章

 

随机推荐