Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Typ " 1 " A1 " , 2 " A2 " 2 " A3 " 3 " A4 " , 4 " na A5 , a " 4 " v A6 . Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie VB editora . . Kliknite na " Vložiť " menu a kliknite na " modul " pridať nový modul
2
Vytvoriť nový čiastkový postup zadaním nasledujúci kód : Spojené
Private Sub RemoveDuplicates ( )
3
Nastavte rozsah stĺpci , kde chcete odstrániť duplicity , napríklad A1 až A6
rozsah .. ( " A1 : A6 " ) Vyberte
4
Pridajte nasledujúci riadok kódu odstrániť duplikáty z A1 až A6 :
ActiveSheet.Range . ( " $ A $ 1 : $ A $ 6 " ) RemoveDuplicates stĺpce : = 1 , záhlavie : = xlNo
5
Zobrazí sa okno so správou , kedy boli odstránené duplicity . " boli odstránené duplicity v A1 ! "
MsgBox
6
End sub postup tým , že pridá " End sub " na konci . Stlačením tlačidla " F5 " spustiť procedúru .
Copyright © počítačové znalosti Všetky práva vyhradené