Cuestión : La pregunta 2003 del vba de XLS - suprimir las filas duplicados

Hola - adentro sobresalir 2003 que estoy intentando fijar un submarino que logre la supresión de filas duplicados. el

I encontró una escritura del vba de la muestra que me consiguió comenzado - es útil para suprimir las filas duplicados adentro sobresale pero no logra enteramente lo que quisiera que pudieran a do.

In su actual forma (con algunas modificaciones de mí) que la tengo sobre todo el trabajar pero necesita tratar estos artículos:

1. Quiero poder hacer una prueba del instr para identificar la columna que quiero utilizar para el cheque duplicado - ahora ha hecho conmigo que fijaba la gama para decir “A1” como se muestra abajo, para utilizar la columna A -- pero la columna puede variar - es el mejor si puedo hacer una prueba de la secuencia en row1 (que tenga el jefe nombre en ella, buscando diga el “*SKU*” (los comodines) en A1: AA1 - encontrar la célula que y uso que la célula fijar la columna… e.g. pudo ser B1, etc. - pero no estoy seguro cómo escribir el código para lograr that.

2. ¿Si hay qué aparecen ser filas en blanco pero no son… e.g. dicen realmente que la fila 1-10 tiene datos visibles, pero alguien mecanografió algo en las filas 11, 12, después suprimido le, el código está cogiendo rema 11 y 12 como necesitando el proceso - allí está tan quizá una prueba del len hecha en el concantonation de dice las primeras 3 columnas de cada fila (e.g. len (a1+b2+c1) >0) para considerar si la fila necesita procesar? la edición es yo necesita una cuenta exacta en cuántos duplicados porque procesos posteriores confían en esto para determinar qué trayectoria para tomar (e.g. si los duplicados >100 encontrados hacen esto, si no éste) el

3. Quiero poder ver que los resultados/detalle de qué fue suprimida - yo tener la disposición de la escritura para demostrar # de filas que suprimió - ve result_sheet de la parte inferior “. Gama (“number_rows_deleted”). Value = CStr (N)” - pero quisiera el detalle - demostrar a fila sí mismo - como secuencialmente anotar las filas… ven “el dupkillerresult” lengüeta en el archivo de los xls - las filas 11/12 - si podría escribir el número de la fila, el nombre de la lengüeta, después el detalle de la fila….¡

PS - soy muy bien con el hecho de que cuando se encuentra un duplicado, el primer caso/la fila es preserved.

thanks por adelantado para cualquier ayuda! nombre de fichero " vacío " >

 dup-killer.xls " fileSize a.C. " > (169 KB) Javascript del href= " de los " attachmentDetails del class=” de (tipo de archivo detalles) lengüeta del usa_data de los datos de la muestra de la disposición de la lengüeta de los >shows de la descripción " del class= de
del >
class= > " claro " 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:
Ctrl-u notpretty " de DeleteDuplicateRows_usa secundario >Public " del class= " de " codeSnippet823394 del id= del 
 1 entonces
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Terminar si

    Si Application.WorksheetFunction.CountIf (Rng.Columns (1), V) > 1 entonces
        Rng.Rows (R).EntireRow.Delete
        N = N + 1
    Terminar si
Terminar si
R siguiente

EndMacro:

Application.StatusBar = falso
Application.ScreenUpdating = verdad
Application.Calculation = xlCalculationAutomatic
Fijar el xlSheet_dupkillerresult = las hojas de trabajo (el “dupkillerresult”)
xlSheet_dupkillerresult.Activate
xlSheet_dupkillerresult.Range (“usa_count”). Valor = CStr (N)
Fijar el xlSheet_dupkillerresult = nada
'Las filas duplicados de MsgBox “suprimieron: ” Y CStr (N)

Submarino del extremo
class= del

Respuesta : La pregunta 2003 del vba de XLS - suprimir las filas duplicados

Porqué usted no tiene una mirada en el addin principal duplicado de Dave.  Hace todos que usted esté pidiendo:

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