Questione : VBA eccellono o accedono al crollo di dati

I miei dati sono disponibili in eccellono o accedono a, in modo da quale fanno il problema della soluzione easier.

My è io sto andando rimuovere i nomi di azienda duplicati ma non tutte le annotazioni hanno telefono, fax e
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 telefono del

company di email.

per esempio. cancello i duplicati, non voglio slacciare i dati che potrebbero essere disponibili da un'altra annotazione per lo stesso company.

From che cosa potete vedere non tutte le annotazioni avere telefono #, fax & email, se le hanno atall.

After che fa funzionare il vba, vorrei i dati qui sopra per assomigliare al email

abc 123 del fax del telefono 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 che posso cancellare i duplicati senza difficoltà.  
 class= del

Risposta : VBA eccellono o accedono al crollo di dati

fare funzionare il sommergibile nel libro di esercizi allegato
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 il runme ()

Oscurare la s come manuale
Regolar s = Sheet1

irow = 2

Telefoni fiochi come stringa, faxS come stringa, email come stringa

Fare mentre LenB (s.Cells (irow, “A„). Valore) > 0

    irow2 = irow
    telefoni = vbNullString
    faxS = vbNullString
    email = vbNullString
    
    Fare mentre LenB (s.Cells (irow, “A„). Valore) > 0
        Se LenB (s.Cells (irow, “B„). Valore) > 0 allora
            telefoni = s.Cells (irow, “B„). Valore
        Concluder se
        Se LenB (s.Cells (irow, “C„). Valore) > 0 allora
            faxS = s.Cells (irow, “C„). Valore
        Concluder se
        Se LenB (s.Cells (irow, “D„). Valore) > 0 allora
            email = s.Cells (irow, “D„). Valore
        Concluder se
        irow = irow + 1
    Ciclo
    irow = irow2
    Fare mentre LenB (s.Cells (irow, “A„). Valore) > 0
        s.Cells (irow, “B„). Valore = telefoni
        s.Cells (irow, “C„). Valore = faxS
        s.Cells (irow, “D„). Valore = email
        irow = irow + 1
    Ciclo
    
    Fare mentre LenB (Trim$ (s.Cells (irow, “A„). Valore)) = 0 e irow  < s="">
 
example.xls (26 Kb) (tipo di lima particolari) 
esempio
 
Altre soluzioni  
 
programming4us programming4us