EXCEL数据重复突出显示及合并多个工作表的方法.doc_第1页
EXCEL数据重复突出显示及合并多个工作表的方法.doc_第2页
EXCEL数据重复突出显示及合并多个工作表的方法.doc_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

如:A列的数据是下面: A B C D E F G A D I S F G O P F 我需要找出哪些数据是重复的,很简单: 选中A列 格式 条件格式 公式 =countif(a$1:a1,a1)1 格式设置成红色 重复的数据变红色了 还有一种方法是在B列 输入:=countif(a$1:a1,a1)1 回车,把公式往下拖即可。 重复数据 会显示 TRUE或者 =IF(COUNTIF(a:a,a1)1,有重复,) 这样比较人性化一点=条件情况下使用数组公式即可。 比如:下表中有数据A、B两列,C列为计数列,要求查找A、B列出现重复的记录: A B C D 1 A A 1 2 A B 1 3 B A 1 4 B B 1 5 A B 1 重复 6 B C 1 在D1单元格写入如下公式: =IF(COUNT(IF($A$1:$A1=$A1)*($B$1:$B1=$B1),$C$1:$C1)=1,重复) 输入完成后,同时按下Shift、Ctrl、Enter这三个键 这三个键一定要同时按下,才能正确形成数组公式。 完成后,在编辑栏上的表现形式为: =IF(COUNT(IF($A$1:$A1=$A1)*($B$1:$B1=$B1),$C$1:$C1)=1,重复) 比如这些序号在A列,在B1输入公式=COUNTIF(A:A,A1)公式向下复制,再自定义筛选B列,条件为大于1,确定,这样就筛选出超过1次的所有序号COUNTIF只适用于15位以内的数据新建一个工作表,命名后保存到和与合并的100个文件同一个文件文件夹,摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & & *.xls) AWbName = ActiveWorkbook.Name Num = 0 Do While MyName If MyName AWbName Then Set Wb = Workbooks.Open(MyPath & & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range(A1).Select Application.ScreenUpdating = True Msg

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论