Vraag : De Macro van Excel om Rijen te schrappen die op Voorwaarden worden gebaseerd

Ik voer sommige HTML- documenten in Excel in en zou de presentatie vóór het bewaren van het als dossier van Excel willen schoonmaken.  Ik zou een macro willen tot stand brengen om een bos van lege rijen evenals sommige rijen te verwijderen die als dit beginnen: de

Z:\websitepublic\ ....../>No Geselecteerde die Documenten

The- tekst worden gevonden is hierboven altijd in Kolom D en E.

I moeten ook dubbele rijen verwijderen die de volgende kolomrubrieken hebben:

Documents- Titel Gespaard date_reviewed schepper version

I am nieuw aan het creëren van macro's in Excel en zouden waarderen wat raad op hoe te om this. te doen

Antwoord : De Macro van Excel om Rijen te schrappen die op Voorwaarden worden gebaseerd

Gebruik deze code…

Saurabh…

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

Sub deleterows ()
Application.ScreenUpdating = Vals

    Schemerige srow zoals lang
    srow = 1

    Doe tot srow > Cells.Find (wat: = " * ", SearchDirection: =xlPrevious, SearchOrder: =xlByRows). Rij
        Als InStr (1, Cellen (srow, „a“), „Z:\websitepublic\“, vbTextCompare) > 0 of InStr (1, Cellen (srow, „a“), „Geen geselecteerde documenten in deze folder“, vbTextCompare) > 0 toen
            Rijen (srow). Schrap


        ElseIf Application.WorksheetFunction.CountA (Waaier (srow & „: “ & srow)) = 0 toen
         Rijen (srow). Schrap
         Anders
            srow = srow + 1
        Eind als
    Lijn


Application.ScreenUpdating = Waar
Sub van het eind
Andere oplossingen  
 
programming4us programming4us