Questione : Domanda 2003 di vba di XLS - cancellare le file duplicate

Ciao - dentro eccellere 2003 che sto provando ad installare un sommergibile che compirà la cancellazione delle file duplicate. il

I ha trovato uno scritto di vba del campione che lo ha ottenuto iniziato - è utile per la cancellazione delle file duplicate dentro eccelle ma interamente non non compire che cosa voglio potere a do.

In la relativa forma attuale (con alcune modifiche da me) che la ho principalmente funzionare ma deve richiamare questi articoli:

1. Voglio potere effettuare una prova del instr per identificare la colonna che voglio usare per il controllo duplicato - ora ha fatto con me che regolo la gamma per dire “A1„ come indicato sotto, di modo che la colonna A è usata -- ma la colonna può variare - è meglio se posso effettuare una prova della stringa su row1 (che ha l'intestazione chiama in esso, cercando dice “il *SKU*„ (caratteri sostitutivi) in A1: AA1 - trovare la cellula che ed uso che la cellula regolare la colonna… per esempio potrebbe essere B1, ecc. - ma non sono sicuro come scrivere il codice per compire that.

2. Se ci sono che cosa sembrano essere file in bianco ma non sono realmente… per esempio dicono che la fila 1-10 ha dati visibili, ma qualcuno ha scriv qualcosa a macchina nelle file 11, 12, quindi cancellato esso, il codice stanno prendendo remano 11 e 12 come avendo bisogno dell'elaborazione - così forse là è una prova di len effettuata sul concantonation di dice le prime 3 colonne di ogni fila (per esempio len (a1+b2+c1) >0) per vedere se la fila deve procedare? l'edizione è io ha bisogno di un conteggio esatto su quanti duplicati perché i processi successivi contano su questo per determinare che percorso per prendere (per esempio se i duplicati >100 trovati fanno questo, altrimenti su questo)

3. Voglio potere vedere che i risultati/particolare di che cosa è stato cancellato - io avere la messa a punto dello scritto per mostrare # delle file ha cancellato - vede result_sheet della parte inferiore “. Gamma (“number_rows_deleted„). Value = CStr (N)„ - ma gradirebbe il particolare - mostrare alla fila in se - come in sequenza annotare le file… vedono “il dupkillerresult„ linguetta nella lima dei xls - le file 11/12 - se potesse scrivere il numero di fila, il nome della linguetta, quindi il particolare di fila….

PS - sono benissimo con il fatto che quando un duplicato è trovato, il primo caso/fila è in anticipo preserved.

thanks per tutto l'aiuto! nome di schedario„ " vuoto " >

 (169 Kb) il Javascript„ del href= " " dei attachmentDetails del class= di (tipo di lima particolari) linguetta di usa_data di dati del campione di messa a punto della linguetta dei >shows " di descrizione " del class= di
del >
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 secondario >Public " notpretty " () 'Ctrl-u del 
 1 allora
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Concluder se
Altrimenti
    Se Application.WorksheetFunction.CountIf (Rng.Columns (1), V) > 1 allora
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Concluder se
Concluder se
R seguente

EndMacro:

Application.StatusBar = falso
Application.ScreenUpdating = allineano
Application.Calculation = xlCalculationAutomatic
Regolare il xlSheet_dupkillerresult = i manuali (“dupkillerresult„)
xlSheet_dupkillerresult.Activate
xlSheet_dupkillerresult.Range (“usa_count„). Valore = CStr (N)
Regolare il xlSheet_dupkillerresult = niente
Le file duplicate 'di MsgBox “hanno cancellato: „ & CStr (N)

Sommergibile dell'estremità
class= del

Risposta : Domanda 2003 di vba di XLS - cancellare le file duplicate

Perché non avete uno sguardo al addin matrice duplicato del Dave.  Fa tutti che stiate chiedendo:

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