Fråga : Excelmakroen som ska tas bort, ror baserat villkorar på

Förmiddag som I importerar några html-dokument in i Excel och skulle något liknande till rengöringen upp presentationen för besparing som den som en Excel sparar.  Jag skulle något liknande för att skapa en makro för att ta bort en grupp av tomt ror, såväl som något ror att startnågot liknande detta: dokument för
No för

Z:\websitepublic\ ...... utvalda finnas i denna ovannämnda Directory

The text, är alltid i kolonn D, och E.

I behöver också att ta bort dubblett ror som har efter kolonnöverskrifterna: titelförfattare för

Documents betvingar den nyckelord skapade sparade date_created date_reviewed förmiddagen för skapareversion

I är ny till att skapa makro i Excel, och skulle uppskatta någon rådgivning på hur man gör this. " klar "

Svar : Excelmakroen som ska tas bort, ror baserat villkorar på

Använd detta kodifierar…,

Saurabh…,

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

Underdeleterows ()
Application.ScreenUpdating = falskt

    Dunkel srow som Long
    srow = 1

    Gör till srow > Cells.Find (vad: = " * ", SearchDirection: =xlPrevious SearchOrder: =xlByRows). Ro
        Om InStr (1, celler (srow, ”a”), ”Z:\websitepublic\”, vbTextCompare) > 0 eller InStr (1, celler (srow, ”a”), ”inga utvalda dokument i detta arkiv”, vbTextCompare) > 0 därefter
            Ror (srow). Borttagnings


        ElseIf Application.WorksheetFunction.CountA (spänna (srow & ”: ” & srow)) = 0 därefter
         Ror (srow). Borttagnings
         Annars
            srow = srow + 1
        Avsluta om
    Kretsa


Application.ScreenUpdating = True
Avsluta suben
Andra lösningar  
 
programming4us programming4us