excel数据重复突出显示及合并多个工作表的方法

《excel数据重复突出显示及合并多个工作表的方法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、如：A列的数据是下面：ABCDEFGADISFGOPF我需要找出哪些数据是重复的，很简单：选中A列—格式—条件格式—公式=countif(a$1:a1,a1)>1—格式设置成红色重复的数据变红色了还有一种方法是在B列输入：=countif(a$1:a1,a1)>1回车，把公式往下拖即可。重复数据会显示TRUE或者=IF(COUNTIF(a:a,a1)>1,"有重复","")这样比较人性化一点=============================================================条件情况下使用数组公式即可。比如：下表中有数据A、B两列，C列为计数列，要

2、求查找A、B列出现重复的记录：ABCD1AA12AB13BA14BB15AB1重复6BC1在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)公式向下

3、复制，再自定义筛选B列，条件为大于1，确定，这样就筛选出超过1次的所有序号COUNTIF　只适用于15位以内的数据新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁alt+f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=False

4、MyPath=ActiveWorkbook.PathMyName=Dir(MyPath&""&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=Workbooks.Open(MyPath&""&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.S

5、heets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub