Vraag : VBA blinkt of heeft toegang gegevens tot instorting uit

Mijn gegevens zijn beschikbaar in of uitblinken of toegang hebben tot, zodat is welke het oplossingseasier.
My probleem maakt/>

.

company- telefoonfax email

abc 123
abc 456
abc [email protected]
abc 123

def 456
def
def
def [email protected]

ghi
ghi 123
ghi


If ik schrap duplicaten, wil ik geen gegevens losmaken die bij een ander verslag voor zelfde company.

From wat u alle verslagen kunt zien geen telefoon hebben #, fax & e-mail beschikbaar zouden kunnen zijn, als zij hen atall.

After die vba in werking stelt, zou ik hierboven de gegevens als this

company- telefoonfax email

abc 123 456 [email protected]
abc 123 willen kijken 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 ik de duplicaten zonder probleem kan schrappen.  

Antwoord : VBA blinkt of heeft toegang gegevens tot instorting uit

stel sub in het werkboek in werking in bijlage
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 runme ()

Schemerig s als Aantekenvel
Vastgesteld s = Sheet1

irow = 2

Schemerige telefoons als Koord, faxS als Koord, e-mail als Koord

Doe terwijl LenB (s.Cells (irow, „A“). Waarde) > 0

    irow2 = irow
    telefoneert = vbNullString
    faxS = vbNullString
    e-mail = vbNullString
    
    Doe terwijl LenB (s.Cells (irow, „A“). Waarde) > 0
        Als LenB (s.Cells (irow, „B“). Waarde) > 0 toen
            telefoneert = s.Cells (irow, „B“). Waarde
        Eind als
        Als LenB (s.Cells (irow, „C“). Waarde) > 0 toen
            faxS = s.Cells (irow, „C“). Waarde
        Eind als
        Als LenB (s.Cells (irow, „D“). Waarde) > 0 toen
            e-mail = s.Cells (irow, „D“). Waarde
        Eind als
        irow = irow + 1
    Lijn
    irow = irow2
    Doe terwijl LenB (s.Cells (irow, „A“). Waarde) > 0
        s.Cells (irow, „B“). Waarde = telefoons
        s.Cells (irow, „C“). Waarde = faxS
        s.Cells (irow, „D“). Waarde = e-mail
        irow = irow + 1
    Lijn
    
    Doe terwijl LenB (Trim$ (s.Cells (irow, „A“). Waarde)) = 0 en irow  < s="">
 
example.xls (26 KB) (de Details van het Type van Dossier) 
voorbeeld
 
Andere oplossingen  
 
programming4us programming4us