Excel 找出重復(fù)行并只保留一個(gè)的實(shí)現(xiàn)方法
發(fā)布時(shí)間：2009-08-30 22:42:48 作者：佚名 
我要評(píng)論
我要評(píng)論今天一個(gè)朋友叫幫她改幾個(gè)Excel，將表中按某一列查找出重復(fù)的，并且只保留一個(gè)，想了一下辦法很快就搞定了。
方法如下：
1、首先將表格按照需要查找的那一列排序。
2、錄制一個(gè)新宏，這個(gè)宏不用任何操作，將用以下的代碼來完成。如果愿意可以給個(gè)快捷鍵。
3、打開宏編輯器，將如下代碼貼到宏的SUB里，然后執(zhí)行即可，執(zhí)行的時(shí)候記得要讓比較的第一個(gè)單元格做為活動(dòng)單元格：
Sub 你的宏名稱()
x = ActiveCell.Row
Z = ActiveCell.Column
Do While Cells(x, Z).Value <> ""
y = x + 1
Do While Cells(y, Z).Value <> ""
If (Cells(x, Z).Value = Cells(y, Z).Value) Then
'Cells(x, z).Interior.ColorIndex = 3
'Cells(y, z).Interior.ColorIndex = 3
'上面這兩行可以將重復(fù)的標(biāo)為紅色。
Rows(y).Delete
End If
y = y + 1
Loop
x = x + 1
Loop
End Sub
1、首先將表格按照需要查找的那一列排序。
2、錄制一個(gè)新宏，這個(gè)宏不用任何操作，將用以下的代碼來完成。如果愿意可以給個(gè)快捷鍵。
3、打開宏編輯器，將如下代碼貼到宏的SUB里，然后執(zhí)行即可，執(zhí)行的時(shí)候記得要讓比較的第一個(gè)單元格做為活動(dòng)單元格：
復(fù)制代碼
代碼如下:Sub 你的宏名稱()
x = ActiveCell.Row
Z = ActiveCell.Column
Do While Cells(x, Z).Value <> ""
y = x + 1
Do While Cells(y, Z).Value <> ""
If (Cells(x, Z).Value = Cells(y, Z).Value) Then
'Cells(x, z).Interior.ColorIndex = 3
'Cells(y, z).Interior.ColorIndex = 3
'上面這兩行可以將重復(fù)的標(biāo)為紅色。
Rows(y).Delete
End If
y = y + 1
Loop
x = x + 1
Loop
End Sub
相關(guān)文章
陽歷/農(nóng)歷轉(zhuǎn)換對(duì)照表怎么做? Excel制作日歷表/萬年歷的最終版
想要制作陽歷/農(nóng)歷轉(zhuǎn)換對(duì)照表，，通過這個(gè)對(duì)照表，你只需知道陽歷日期，就可以快速準(zhǔn)確的找到對(duì)應(yīng)的農(nóng)歷日期，下面我們就來看看詳細(xì)制作方法2025-04-10三分鐘就搞定! Excel快速制作一個(gè)日歷表/萬年歷的技巧
工作上需要制作一個(gè)日歷表/萬年歷，該怎么制作呢？我們需要使用三個(gè)excel函數(shù)來實(shí)現(xiàn)，詳細(xì)請(qǐng)看下文介紹2025-04-10這個(gè)函數(shù)公式簡直太強(qiáng)了! excel按權(quán)重求和計(jì)算的技巧
Excel中有一個(gè)功能非常強(qiáng)大的函數(shù)，它就是SUMPRODUCT函數(shù)，既能求和、計(jì)數(shù)、權(quán)重計(jì)算，還能排名等，今天我們就來看看Excel根據(jù)權(quán)重求和的技巧2025-04-10tocol函數(shù)哪個(gè)版本能用? excel中tocol函數(shù)的兩種高級(jí)用法
TOCOL函數(shù)公式非常強(qiáng)大，值得一學(xué)，從字面意義可以理解出來，它是將數(shù)據(jù)轉(zhuǎn)換成一列的，今天分享TOCOL函數(shù)的2種高級(jí)用法2025-04-10Excel隱藏行和折疊行有什么不同? 隱藏行和折疊使用方法和區(qū)別介紹
excel表格進(jìn)行操作的時(shí)候，發(fā)現(xiàn)有隱藏和和折疊行，看上去效果一樣，都隱藏了，但是兩者是有很大區(qū)別的，詳細(xì)請(qǐng)看下文介紹2025-03-21Excel工齡計(jì)算不再愁! Excel隱藏函數(shù)DATEDIF輕松計(jì)算精確到天級(jí)的工齡
在日常工作中，我們經(jīng)常需要計(jì)算員工的工齡，以便進(jìn)行人事管理、薪資調(diào)整等工作，本文將詳細(xì)介紹如何在Excel表格中計(jì)算工齡，并提供多種實(shí)用方法供您選擇2025-03-13快速提高工作效率! Excel高手的8個(gè)技巧勸你學(xué)學(xué)
Excel數(shù)據(jù)處理遇到的問題，99%都是由于奇葩的數(shù)據(jù)格式造成的，今天跟大家整理了幾個(gè)Excel表格構(gòu)建的規(guī)則,先不要問為什么，照著做就對(duì)了2025-03-06Excel透視表1月到12月不能排序怎么辦? 數(shù)據(jù)透視表日期無法排序解決方法
如圖對(duì)數(shù)據(jù)透視表日期進(jìn)行升序排序后，仍不是我們想要的結(jié)果，有可能月份是文本，不能排列，下面我們就來看看詳細(xì)解決辦法2025-03-06財(cái)務(wù)審計(jì)必會(huì)! 2分鐘搞定用excel做賬齡劃分的技巧
首先咱們得明確一下賬齡的概念，簡單來說，賬齡就是某個(gè)賬戶的余額從產(chǎn)生到現(xiàn)在的時(shí)間長度，比如，一年以內(nèi)的賬齡就是那些在過去一年內(nèi)產(chǎn)生的債權(quán)或債務(wù)，下面我們就來看看2025-03-06
實(shí)現(xiàn)辦公自動(dòng)化! DeepSeek搭配Excel制作自定義按鈕的技巧
DeepSeek生成想要的代碼很方便，如果將生成的代碼放到excel中作為vba代碼使用，豈不是能實(shí)現(xiàn)辦公自動(dòng)化？下面我們就來看看實(shí)現(xiàn)方法2025-03-05
