Cuestión : VBA sobresalen o tienen acceso a derrumbamiento de los datos

Mis datos están disponibles en sobresalen o tienen acceso, así que cualquiera hace el problema de la solución easier.

My es yo va a quitar nombres de compañía duplicados pero no todos los expedientes tienen teléfono, fax y el
abc [email protected]
abc 123

def 456
def
def
def [email protected]

ghi
ghi 123
ghi


If del
abc 456 del email

abc 123 del fax del teléfono del

company de email.

por ejemplo. suprimo los duplicados, no quiero soltar los datos que pudieron estar disponibles de otro expediente para el mismo company.

From qué usted puede ver no todos los expedientes tener teléfono #, fax y email, si los tienen atall.

After que funciona el vba, quisiera que los datos arriba parecieran el email

abc 123 del fax del teléfono del this

company 456 [email protected]
abc 123 456 [email protected]
abc 123 456 [email protected]
abc 123 456 [email protected]

def 456 [email protected]
def 456 [email protected]
def 456 [email protected]
def 456 [email protected]

ghi 123
ghi 123
ghi 123


So que puedo suprimir los duplicados sin apuro.  
 class= del

Respuesta : VBA sobresalen o tienen acceso a derrumbamiento de los datos

funcionar con el submarino en el libro de trabajo atado
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:

Sub el runme ()

Amortiguar s como hoja de trabajo
Fijar s = Sheet1

irow = 2

Teléfonos déviles como secuencia, faxS como secuencia, email como secuencia

Hacer mientras que LenB (s.Cells (irow, “A”). Valor) > 0

    irow2 = irow
    teléfonos = vbNullString
    faxS = vbNullString
    email = vbNullString
    
    Hacer mientras que LenB (s.Cells (irow, “A”). Valor) > 0
        Si LenB (s.Cells (irow, “B”). Valor) > 0 entonces
            teléfonos = s.Cells (irow, “B”). Valor
        Terminar si
        Si LenB (s.Cells (irow, “C”). Valor) > 0 entonces
            faxS = s.Cells (irow, “C”). Valor
        Terminar si
        Si LenB (s.Cells (irow, “D”). Valor) > 0 entonces
            email = s.Cells (irow, “D”). Valor
        Terminar si
        irow = irow + 1
    Lazo
    irow = irow2
    Hacer mientras que LenB (s.Cells (irow, “A”). Valor) > 0
        s.Cells (irow, “B”). Valor = teléfonos
        s.Cells (irow, “C”). Valor = faxS
        s.Cells (irow, “D”). Valor = email
        irow = irow + 1
    Lazo
    
    Hacer mientras que LenB (Trim$ (s.Cells (irow, “A”). Valor)) = 0 e irow  < s="">
 
example.xls (26 KB) (tipo de archivo detalles) 
ejemplo
 
Otras soluciones  
 
programming4us programming4us