2 qq 17353091 qq_17353091 于 2016.04.05 20:11 提问

关于EXCEL中宏操作,如何用宏处理重复数据

如何使用EXCEL中的宏啊,EXCEL版本为2010,我想通过宏将表中应用账号相同的数据合并成一条,具体如何操作呢

数据合并成一条,如何操作呢?图片说明

3个回答

CSDNXIAON
CSDNXIAON   2016.04.05 20:22

vim重复操作的宏录制
vim重复操作的宏录制
vim重复操作的宏录制
----------------------同志你好,我是CSDN问答机器人小N,奉组织之命为你提供参考答案,编程尚未成功,同志仍需努力!

qq_34271943
qq_34271943   2016.04.05 23:34

好像有一个按钮是可以删除的,数据选项里找找呢

yangsa1516
yangsa1516   2016.06.08 00:07

实现你需求的宏代码如下:

Sub 处理重复数据()

Dim i As Integer, m As Integer, n As Integer

i = ActiveSheet.Range("A65536").End(xlUp).Row     '统计数据行数
MsgBox "数据行数:" & i

For m = 1 To i - 1                                '外循环从第1行开始,遍历到倒数第2行
    For n = m + 1 To i                            '内循环从m+1开始,遍历到最后一行
        '如果第2列出现重复的记录,则将后出现的记录的第4列值与前面的值合并
        If (StrComp(Sheets("Sheet1").Cells(m, 2).Text, Sheets("Sheet1").Cells(n, 2).Text, 0) = 0) Then
            Sheets("Sheet1").Cells(m, 4) = Sheets("Sheet1").Cells(m, 4) & Sheets("Sheet1").Cells(n, 4)
        End If
    Next
Next

For m = 1 To i - 1                                '外循环从第1行开始,遍历到倒数第2行
    For n = i To m + 1 Step -1                    '内循环从最后一行,遍历到m+1行
        '从后向前删除重复记录
        If (StrComp(Sheets("Sheet1").Cells(m, 2).Text, Sheets("Sheet1").Cells(n, 2).Text, 0) = 0) Then
            Sheets("Sheet1").Rows(n).Delete
        End If
    Next
Next

End Sub

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
使用Excel宏整理数据
最近用导数工具进行数据导入,基于siebelBC层面导入,所以对数据格式要求比较严格,excel文件较多、问题较集中的情况下,整理以下几种情况: 数据格式居中,导数工具认不出来。。有Picklist的字段有限定值,这需要能修改就修改,不能修改需提示;有字段需要特定字符,需用正则表达式;有些值虽然不用picklist,但也需要先定义好,如客户选择,需查询表数据,这就要连接数据库,写SQL日
使用宏处理多个Excel工作簿-个人工作簿
excel 2007显示开发工具的方法: excel 2007 和2003区别很大,很多设置的地方经常找不到。比如excel的开发工具,在2007里就缺省是没有显示。   个人宏工作簿   个人宏工作簿,是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第
用工资表做工资条详细介绍(excle简单的录制宏操作)
{一、纯文字}{1、 打开工资表(以下用类似表做示范)2、 点击菜单栏里的【文件】(如果菜单栏里有开发工具,直接跳到6) 3、 点击右边菜单栏里的【选项】 4、 点击右边菜单栏里的【自定义功能区】 5、 找到右边选取里的【开发工具】,并且打上勾 6、 点击【开发工具】菜单栏 7、 先点击【使用相对引用】(保证工资条是跨行插入),再点击【录制宏】(宏名可以是中文,但是不可以纯数字;快捷键必须为小写英...
使用Excel宏实现数据自动处理
因为工作关系,需要对一些数据进行一些重复性的处理工作,为了提高效率,录制宏进行重复处理非常有效,但录制的宏有大量无效代码,而且需要处理的数据源有两种不同的格式,通过宏录制和自己的处理,可以很好的解决这些问题。   Option Explicit Sub SpareCatalogueFormat() Dim sMessage As String Dim answer A
xlwings:操作Excel,通过宏调用Pyhton(VBA调Python)
xlwings - 让Excel飞起来xlwings是一个python的库,支持从Excel调用Python,也支持通过Python去操作Excel。官方说明、网上的文章已经有很多了。官方网站:xlwings官网文档链接:xlwings文档这里总结如何从Excel通过加一个Macro(宏),点击一个按钮来调用Python,从而实现对Excel的操作。需求:通过点击Excel中的一个按钮,通过VBA...
利用宏向excel表格中批量插入图片
利用宏向excel表格中批量插入图片 点击打开链接
excel宏写的考勤统计的详细例子
用宏写的对于员工的打卡时间,统计出是否早退和迟到,这里关联的表格包括‘员工考勤表’、‘班次表’、‘排班表’和多个部门表。还有个用函数做的根据考勤表出勤情况汇总出相应的扣款表。宏内附带相应的中文注释,方便大家阅读。 友情提示:下载后记得评价和评分,此网站会将你花费的资源分+1还给你
python3,用win32com操作excel及其宏
它相当于一个桥梁,连接python语言和c语言。其他操作excel的模块也很多,比如xlwt、xwings。但是win32com功能更强大,可以操作word、调用宏等等等。python2这个模块是pywin32里的,python3我找了很久发现是pypiwin32。 首先假设你的D盘里有个hel.xlsm的excel文件,后缀xlsm含义是改文件里带宏,假设这个宏名叫“每日操作”。至于宏这些东西是
EXCEL使用宏破解工作表保护密码
EXCEL工作表保护密码破解 方法: 1,打开文件 2,工具-->宏-->-录制新宏-->输入名字(随便都行)如: xxx  3,停止录制(这样的话,这个宏是空的,里面没内容) 4,工具-->宏-->宏名选xxx,点编辑按钮 5,删除窗口中的所有字符(只有几个),替换为下面的内容:(复制就行了) 6,关闭编辑窗口 7,工具---宏-----宏,选“破解工作表密码”,运行,确定两次,等2分钟,再确定
EXCEL宏常用的函数等
EXCEL常用函数