如何選擇性的刪除表格重復(fù)的行

zkyt

如何選擇性的刪除表格中重復(fù)的行

tmtony

如何有選擇性呢，最好列個 內(nèi)容格式或上傳上示例，才好幫你

zkyt

tmtony 發(fā)表于 2016-9-26 10:43
如何有選擇性呢，最好列個 內(nèi)容格式或上傳上示例，才好幫你

已經(jīng)上傳，麻煩給解決一下，謝謝！

zkyt

求高手指點

roych

如果你的Office是2007版本以上，可以按顏色篩選后刪除。如圖所示，選擇數(shù)據(jù)/篩選/按顏色篩選

依次刪除紅色底紋和黃色底紋的就好了。

zkyt

roych 發(fā)表于 2016-9-26 21:07
如果你的Office是2007版本以上，可以按顏色篩選后刪除。如圖所示，選擇數(shù)據(jù)/篩選/按顏色篩選

依次刪除紅 ...

十分感謝您的回復(fù)。不過表格實際是沒有顏色區(qū)分的，我是為了突出重復(fù)項才加的顏色。就是為了有選擇性的刪除和保留重復(fù)行。采用高級篩選功能，會把所有重復(fù)行都刪除掉的，但是我想保留一些重復(fù)行。求再次指教，謝謝。

xcharmer

制作來了一個vba代碼
使用前提是：
1、當(dāng)前表在最左邊的第一個。
2、刪除是刪除整行，如果有其他需要，請發(fā)示例過來
3、判斷是用“材料費(fèi)中：暫估價合計”這個語句為判斷。如果表格式不變則可以使用

1. <div class="blockcode"><blockquote>Sub 查找刪除()
   
2.   Dim i
   
3.   '定義一個變量記錄行號
   
4.   For i = ActiveWorkbook.Sheets(1).Range("c1").End(xlDown).Row To 1 Step -1
   
5.     '從最后一排向前循環(huán)
   
6.     If Cells(i, 3) = "材料費(fèi)中：暫估價合計" Then
   
7.     '如果第N行的第三列的值是“材料費(fèi)中：暫估價合計”
   
8.       Rows(i & ":" & i).Delete Shift:=xlUp
   
9.       '將第N行全行刪除
   
10.     End If
    
11.   Next i
    
12. End Sub

復(fù)制代碼

pureshadow

就是要把C列里有“材料費(fèi)用：暫估價合計”的那一整行刪除嗎？直接篩選可以不？

zkyt

pureshadow 發(fā)表于 2016-9-28 17:11
就是要把C列里有“材料費(fèi)用：暫估價合計”的那一整行刪除嗎？直接篩選可以不？

剛才使用了你的方法，確實不錯，十分感謝。
除了“材料費(fèi)用：暫估價合計”那一行要刪除外，還要刪除表格中重復(fù)的表頭（黃色行）。
用你的方法篩選刪除表頭，會出現(xiàn)一個空白行，可能是表頭占用兩行單元格的原因。不過可以再次運(yùn)用篩選的方法，篩選出空白行，再次刪除，就達(dá)到目的了。
謝謝你的幫助！

zkyt

xcharmer 發(fā)表于 2016-9-27 21:29
制作來了一個vba代碼
使用前提是：
1、當(dāng)前表在最左邊的第一個。

謝謝您的回帖。
由于沒有在excel中運(yùn)用過vba代碼，所以不清楚如何把您的代碼運(yùn)用到excel中。在百度上查了一下，但是操作還是失敗了。沒能驗證您的代碼程序。不過您的程序肯定應(yīng)該能解決的，我會再次驗證您的方法。
再次向您表示謝意�。�！