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