Question : La question 2003 de vba de XLS - supprimer les rangées doubles

Salut - exceler dedans 2003 où j'essaye d'installer un sous-marin qui accomplira supprimer des rangées doubles. le

I a trouvé un manuscrit de vba d'échantillon qui m'a mis en route - il est utile pour supprimer les rangées doubles excellent dedans mais n'accomplissent pas entièrement ce qui je veux que puissent en mesure à do.

In sa forme (avec quelques modifications de moi) que je l'ai fonctionner la plupart du temps mais doivent adresser ces articles :

1. Je veux pouvoir faire un essai d'instr pour identifier la colonne que je veux employer pour le contrôle double - en ce moment il a fait avec moi plaçant la gamme pour dire « A1 » comme montré ci-dessous, de sorte que la colonne A soit employée -- mais la colonne peut varier - il est le meilleur si je peux faire un essai de corde sur row1 (qui a l'en-tête appelle dans lui, recherchant dit le « *SKU* » (des cartes d'invitation) dans A1 : AA1 - trouver la cellule qui et utilisation que la cellule pour placer la colonne… par exemple pourrait être B1, etc. - mais je ne suis pas sûr comment écrire le code pour accomplir that.

2. S'il y a ce qui semblent être des rangées blanches mais ne sont-elles pas vraiment… par exemple disent-elles que la rangée 1-10 a des données évidentes, mais quelqu'un a dactylographié quelque chose dans les rangées 11, 12, alors supprimé lui, le code reprend rame 11 et 12 comme ayant besoin de traitement - est-ce que là un essai de len fait sur le concantonation de disent est-il tellement peut-être les 3 premières colonnes de chaque rangée (par exemple len (a1+b2+c1) >0) pour voir si la rangée a besoin traiter ? l'issue est moi a besoin d'un compte précis sur combien de reproductions parce que les processus postérieurs se fondent sur ceci pour déterminer quel chemin pour prendre (par exemple si les reproductions >100 trouvées font ceci, autrement ceci) le

3. Je veux pouvoir voir que les résultats/détail de ce qui a été supprimé - j'avoir l'installation de manuscrit pour montrer # des rangées qu'il a supprimées - result_sheet voit fond « . Gamme (« number_rows_deleted »). Value = CStr (N) » - mais voudrait le détail - montrer à la rangée elle-même - comme séquentiellement noter les rangées… voient « le dupkillerresult » étiquette dans le dossier de xls - les rangées 11/12 - s'il pourrait écrire le nombre de rangée, le nom d'étiquette, puis le détail de rangée….

PS - je suis très bien avec le fait que quand une reproduction est trouvée, le premier exemple/rangée est preserved.

thanks à l'avance pour n'importe quelle aide ! nom de fichier » " de >
dup-killer.xls " fileSize " > (169 KBs) Javascript de href= le " de " attachmentDetails de class= » de (type de dossier détails) étiquette d'usa_data de données d'échantillon d'installation d'étiquette de >shows de description " de class= de
le " le " de >
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
id= " codeSnippet823394 " class= DeleteDuplicateRows_usa secondaire >Public " notpretty " () 'CTRL-u de 
 1 puis
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Finir si
Autrement
    Si Application.WorksheetFunction.CountIf (Rng.Columns (1), V) > 1 puis
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Finir si
Finir si
Prochain R

EndMacro :

Application.StatusBar = faux
Application.ScreenUpdating = rectifient
Application.Calculation = xlCalculationAutomatic
Placer le xlSheet_dupkillerresult = les feuilles de travail (le « dupkillerresult »)
xlSheet_dupkillerresult.Activate
xlSheet_dupkillerresult.Range (« usa_count »). Valeur = CStr (N)
Placer le xlSheet_dupkillerresult = rien
'Les rangées doubles de MsgBox « ont supprimé :  » Et CStr (N)

Sous-marin d'extrémité
class= de

Réponse : La question 2003 de vba de XLS - supprimer les rangées doubles

Pourquoi vous n'allez pas voir l'addin principal double de Dave.  Il fait tout que vous demandez :

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/A_2123-Eliminating-duplicate-data-with-Duplicate-Master-V2.html
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us