Questione : Macro di Excel per cancellare le file basate sulle circostanze

Sto importando alcuni documenti del HTML in Excel e vorrei pulire la presentazione prima del risparmio esso come lima di Excel.  Vorrei generare una macro per rimuovere un mazzo di file in bianco così come alcune file che cominciano come questa: il
No del

Z:\websitepublic\ ...... ha selezionato i documenti trovati in questo testo di Directory

The di cui sopra è sempre in colonna D e E.

I inoltre devono rimuovere le file duplicate che hanno le seguenti intestazioni di colonna: le parole chiavi dell'oggetto dell'autore di titolo del

Documents hanno generato il version

I del creatore nuovo a generare le macro in Excel ed apprezzerebbero un certo consiglio su come fare this. class= del

Risposta : Macro di Excel per cancellare le file basate sulle circostanze

Usare questo codice…

Saurabh…

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Deleterows secondari ()
Application.ScreenUpdating = falso

    Srow fioco come lungamente
    srow = 1

    Fare fino a srow > a Cells.Find (che cosa: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Fila
        Se InStr (1, cellule (srow, “a„), “Z:\websitepublic\„, vbTextCompare) > 0 o InStr (1, cellule (srow, “a„), “nessun documenti selezionati in questo indice„, vbTextCompare) > 0 allora
            File (srow). Cancellazione


        ElseIf Application.WorksheetFunction.CountA (gamma (srow & “: „ & srow)) = 0 allora
         File (srow). Cancellazione
         Altrimenti
            srow = srow + 1
        Concluder se
    Ciclo


Application.ScreenUpdating = allineano
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us