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

如：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 MsgBox 共合并了 Num 个工作薄下的全部工作表。如下： Chr(13) WbN, vbInformation, 提示 End Sub