Excel Makro för att ta bort extra mellanslag.

[akno]

Skriver tabeller i Excel som skall modifieras till en databasskiva och vill kontrollera och plocka bort alla oönskade mellanslag.

 

Jag har gjort det manuellt med lite trixande och formeln Rensa() och kopierande. Har försök få till ett makro som läser igenom hela tabellen men inte lyckats få till nåt vettigt. Tabellen kan innehålla upp till 15 kolumner och upp till 25000 rader, och kan innehålla även tomma celler.

 

Har tänkt mig ett makro där jag anger startcell och slutcell och sen kör så har jag en tabell rensad och klar men inte lyckats så nu behöver jag tips på hur.

 

akke

[Monshi]

formeln RENSA som sagt...

 

men vill du ha kod, okej.

Sub MyCleaner()
    Dim myRn As Range
    Set myRn = Application.InputBox("Markera område(n) för bearbetning", "Rensa", Type:=8)
    If myRn Is Nothing Then Exit Sub
    Dim myCell As Range
    Dim myArea
    For Each myArea In myRn.Areas
        For Each myCell In myArea
            myCell = WorksheetFunction.Trim(myCell)
        Next myCell
    Next myArea

End Sub

bara kör

[akno]

Tackar fungerar utmärkt. Jag har inte ens varit i närheten av liknande kod.

 

akke