[µo°Ý] Ãö©ó²¾°£­«½ÆÃB¥~¥[¤W¤@¬q§PÂ_

av8d

§Ú§Ñ°O¦b¬YªO¤j¤j©Ò´£¨Ñªºµ{¦¡¦p¤U

1.     Dim Rng As Range, Ar, i%
   
2.     Set Rng = [C1:C10]
   
3.     Ar = Application.Transpose(Rng)
   
4.     For i = UBound(Ar) To 1 Step -1
   
5.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then Rng(i) = ""
   
6.     Next    ''
   
7.     ''''''''''¤W­±µ{¦¡½X  ±N­«½Æ¸ê®Æªº¦ì¸m¬°ªÅ¥Õ ''''''''''''''''''''''''
   
8.     Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@

½Æ»s¥N½X

·í¨S¦³­«½Æªº®É­Ô¡Aµ{¦¡·|¶]¿ù»~
Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@
§Ú¸Ó¦p¦ó§ï¼g§PÂ_©O?ÁÂÁÂ!

§Ú­è§ï¼g¤F¤@¤U¡A¦n¹³¬O³o¼Ë´N¥i¥H¤F¡A¤£ª¾¹D¹ï¤£¤£¹ï¡A¦p¤U

1.     Dim Rng As Range, Ar, i%
   
2.     Set Rng = [C1:C10]
   
3.     Ar = Application.Transpose(Rng)
   
4.     For i = UBound(Ar) To 1 Step -1
   
5.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then
   
6.         Rng(i) = ""
   
7.         Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@
   
8.         End If
   
9.     Next    ''

½Æ»s¥N½X

GBKEE

¦^´_ 1# av8d
     Dim Rng As Range, Ar, i%, Msg As Boolean
    Set Rng = [C1:C10]
    Ar = Application.Transpose(Rng)
    For i = UBound(Ar) To 1 Step -1
        If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then
            Rng(i) = ""
            Msg = True                '»²§U§PÂ_: ¦³¤@­ÓªÅ¥Õ¥H¤W
        End If        
    Next    '
    ''''''''''¤W­±µ{¦¡½X  ±N­«½Æ¸ê®Æªº¦ì¸m¬°ªÅ¥Õ ''''''''''''''''''''''''
    If Msg Then Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@

av8d

¦^´_ 2# GBKEE


    ¤j¤j±z¦n~¦pªG¬O­n§â
If Msg Then Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@

§ó§ï¦¨ªÅ¥Õ¦C~


¦pªG¬OC2´N¬O²Ä2¦C~B3´N¬O²Ä¤T¦C~¸Ó¦p¦ó­×§ï?

GBKEE

¦^´_ 3# av8d
¤£¤Ó¤F¸Ñ§Aªº·N«ä
Set Rng = [C1:C10]    §ï³o¸Ìªº½d³ò ¬Ý¬Ý

Hsieh

¦^´_ 3# av8d

If Msg Then Rng.SpecialCells(xlCellTypeBlanks).Entirerow.Delete