excelä¸å设å¨Aåéè¦æ¾å°ç¸åæ°å¼çåå
æ ¼ï¼å¨B1è¾å
¥ä»¥ä¸å
¬å¼
=IF(COUNTIF($A$1:A1,A1)>1,"éå¤","0")ã
ç¶åå¾ä¸æï¼åªè¦æ¯éå¤ï¼åé¢å°±ä¼æ¾ç¤ºâéå¤â两个åï¼æ¾ç¤º0çå°±æ¯ä¸éå¤ï¼ä¸ç®äºç¶ã
å¦æè¦å é¤éå¤çè¡ï¼é£ä¹ç»§ç»åå®ä¸é¢ç以åï¼æä¸é¢çæ¥éª¤ï¼
1ãéä¸Båå¤å¶ï¼åä¾æ¬¡ç¹å»ç¼è¾ãéæ©æ§ç²è´´ï¼éä¸æ°å¼ï¼ç¡®å®ã
2ãCtrl+Hæ¿æ¢çªå£ï¼æéå¤ä¸¤ä¸ªåæ¿æ¢ä¸ºç©ºï¼å°±æ¯âæ¿æ¢ä¸ºâé£éä»ä¹ä¹ä¸è¾å
¥ï¼ï¼å
¨é¨æ¿æ¢ã
3ãä¾æ§éä¸Båï¼æF5ï¼å¨è·³åºçªå£çå·¦ä¸è§ç¹å»å®ä½æ¡ä»¶ï¼éæ©ç©ºå¼ï¼ç¡®å®ã
4ãä¾æ¬¡ç¹å»ç¼è¾ï¼å é¤ï¼éæ©æ´è¡ï¼ç¡®å®ã
ç¨vba å é¤éå¤çè¡ã
Sub å é¤éå¤è¡2()ã
Dim rCell As Range, rRng As Range, dRng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)
rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True
For Each rCell In rRng
If rCell.EntireRow.Hidden = True Then
If dRng Is Nothing Then
Set dRng = rCell.EntireRow
Else
Set dRng = Application.Union(dRng, rCell.EntireRow)
End If
End If
Next
If Not dRng Is Nothing Then dRng.Delete
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub
温馨提示:答案为网友推荐,仅供参考