EXCEL數(shù)據(jù)重復(fù)突出顯示及合并多個(gè)工作表的方法

1、如：A列的數(shù)據(jù)是下面： A B C D E F G A D I S F G O P F 我需要找出哪些數(shù)據(jù)是重復(fù)的，很簡(jiǎn)單： 選中A列 格式 條件格式 公式 =countif(a$1:a1,a1)>1 格式設(shè)置成紅色 重復(fù)的數(shù)據(jù)變紅色了 還有一種方法是在B列 輸入：=countif(a$1:a1,a1)>1 回車，把公式往下拖即可。 重復(fù)數(shù)據(jù) 會(huì)顯示 TRUE或者 =IF(COUNTIF(a:a,a1)>1,"有重復(fù)","") 這樣比較人性化一點(diǎn)=條件情況下使用數(shù)組公式即可。 比如：下表中有數(shù)據(jù)A、B兩列，C列為計(jì)數(shù)列，要求查找A、B列

2、出現(xiàn)重復(fù)的記錄： A B C D 1 A A 1 2 A B 1 3 B A 1 4 B B 1 5 A B 1 重復(fù) 6 B C 1 在D1單元格寫入如下公式： =IF(COUNT(IF($A$1:$A1=$A1)*($B$1:$B1=$B1),$C$1:$C1)=1,"","重復(fù)") 輸入完成后，同時(shí)按下Shift、Ctrl、Enter這三個(gè)鍵 這三個(gè)鍵一定要同時(shí)按下，才能正確形成數(shù)組公式。 完成后，在編輯欄上的表現(xiàn)形式為： =IF(COUNT(IF($A$1:$A1=$A1)*($B$1:$B1=$B1),$C$1:$C1)=1,"&qu

3、ot;,"重復(fù)") 比如這些序號(hào)在A列，在B1輸入公式=COUNTIF(A:A,A1)公式向下復(fù)制，再自定義篩選B列，條件為大于1，確定，這樣就篩選出超過(guò)1次的所有序號(hào)COUNTIF只適用于15位以內(nèi)的數(shù)據(jù)新建一個(gè)工作表，命名后保存到和與合并的100個(gè)文件同一個(gè)文件文件夾，摁 alt + f11,雙擊工程資源管理器里面的sheet1(sheet1),在右側(cè)的代碼區(qū)粘貼如下代碼。運(yùn)行。等候一會(huì)就OK了。 Sub 合并當(dāng)前目錄下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String

4、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 = Workboo

5、ks.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 & "個(gè)工作薄下