Fråga : Den XLS-vbaen 2003 ifrågasätter - borttagningsdubblett ror

Hi - överträffa den pröva in I-förmiddagen 2003 för att ställa in en sub som ska utför att ta bort dubblett ror.

I grundar en ta provvba skrivar att fånget startad mig - den är användbar för att ta bort dubblett ror överträffar in men utför inte helt vad jag önskar att ska vara kompetent till dess gåva för do.

In bildar (med några ändringar från mig) mig har den mestadels arbetet, men behöver att tilltala dessa objekt:

1. Jag önskar att vara kompetent att göra en instr testar för att identifiera kolonnen som jag önskar att använda för dubblettkontrollen - rätten, nu den har gjort med mig som ställer in spänna till något att säga ”A1” som visad nedanför, så att kolonn A används -- men kolonnen kan variera - den är bäst, om jag kan göra en stränga testar på row1 (som har titelraden namnger i den och att söka efter något att säga ”*SKU*” (wildcards) i A1: Förmiddag för AA1 - finna cellen, som och bruk, som cellen till uppsättningen kolonnen… e.g. kan, var B1, Etc. - bara I-inte sure hur man skriver kodifiera för att utföra that.

2. Om det finns vad verkar att vara tomma, ror men, de är inte egentligen… e.g. något att säga ror 1-10 har synliga data, men någon skrivade något in i ror 11, 12, då borttaget det, kodifiera är plockning ror upp 11 och 12 som behöva att bearbeta - så kanske där är en len testar gjort på concantonationen av något att säga de första 3 kolonnerna av varje ror (len e.g. (a1+b2+c1) >0), för att se, om ro behöver att bearbeta? utfärda är mig behöver en exakt räkning på, hur många duplicerar, därför att mer sistnämnd bearbetar rely på detta för att bestämma vilken bana som tar (, om fann e.g. dubblett >100 gör detta, annorlunda detta)

3. Jag önskar att vara kompetent att se att resultaten/att specificera av vad togs bort - mig ha skriva att ställa in för att visa nr. av ror den tog bort - ser botten”result_sheet. Spänna (”number_rows_deleted”). Value = CStr (N)” - bara den skulle något liknande specificera - visa att ro sig själv - något liknande skriver i sekvens besegrar ror… ser ”dupkillerresult” flik i xlsna spara - ror 11/12 - om den kunde skriva ro numrerar, tab känt, då ror specificerar….,

PS - I-förmiddagboten med faktumet, att, när ett dubblett finnas, första anföra som exempel/, ror är preserved.

thanks i förskott för någon hjälp! filename” för class= för >

 (169 KB)” javascript för href= " för <-/span>
shows som fliken ställer in, tar prov datausa_datafliken - vbaen är i too<-/div>
<-/div>
" " för >
<-/div> > för 
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:
" codeBody " Public underDeleteDuplicateRows_usa () 'ctrl-u ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''', 'DeleteDuplicateRows 'Detta ska borttagningsdubblettrekord som baserades på aktivkolonnen. Det är, 'om samma värderar finnas mer än en gång i aktivkolonnen, all but 'första (ro lowest numrerar), ska tas bort. ', Välj den hela kolonnen som du önskar att avläsa för, 'att köra makroen 'dubblett, och kört detta tillvägagångssätt. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''', Dunkelt R som Long Dunkelt N som Long Dunkelt V som Variant Dunkla Rng som spänner Dunkel xlSheet_dupkillerresult som Excel.Worksheet Dunkel my_active_source som Excel.Worksheet Fastställd my_active_source = arbetssedlar (”usa_dataen”) my_active_source. Aktivera my_active_source. Spänna (”A1”). Välj Fastställd my_active_source = ingenting På felet GoTo EndMacro Application.ScreenUpdating = falskt Application.Calculation = xlCalculationManual Fastställda Rng = Application.Intersect (ActiveSheet.UsedRange, _, ActiveSheet.Columns (ActiveCell.Column)) Application.StatusBar = ”bearbeta ror: ” & formatera (Rng.Row, ”nr., ##0”) N = 0 För R = Rng.Rows.Count till 2 kliver -1 Om r-ändring 500 = 0 därefter Application.StatusBar = ”bearbeta ror: ” & formatera (R, ”nr., ##0”) Avsluta om V = Rng.Cells (R, 1). Värdera Om V = vbNullString därefter Om Application.WorksheetFunction.CountIf (Rng.Columns (1) som vbNullString) > 1 därefter Rng.Rows (R) .EntireRow.Delete N = N + 1 Avsluta om Annars Om Application.WorksheetFunction.CountIf (Rng.Columns (1), V) > 1 därefter Rng.Rows (R) .EntireRow.Delete N = N + 1 Avsluta om Avsluta om Nästa R EndMacro: Application.StatusBar = falskt Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Fastställd xlSheet_dupkillerresult = arbetssedlar (”dupkillerresult”) xlSheet_dupkillerresult.Activate xlSheet_dupkillerresult.Range (”usa_count”). Värdera = CStr (N) Fastställd xlSheet_dupkillerresult = ingenting 'Det MsgBox ”dubblett ror borttaget: ” & CStr (N) Avsluta suben
" klar "

Svar : Den XLS-vbaen 2003 ifrågasätter - borttagningsdubblett ror

Varför du inte har en look på Daves ledar- addin för dubblett.  Den gör alla som du ber:

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/A_2123-Eliminating-duplicate-data-with-Duplicate-Master-V2.html
Andra lösningar  
 
programming4us programming4us