Avatar billede JonFossa Praktikant
27. juni 2015 - 07:42 Der er 6 kommentarer og
1 løsning

Excel, VBA, Rense tekst i én kolonne

Har kopieret en text-liste ind i Excel.
Teksten står i 1 kolonne.

Ønsker:
1. Alle rækker, der ikke indeholder teksten " DK." skal slettes
2. Derefter skal kolonnen sorteres i alfabetisk rækkefølge

Er der nogen, der kan hjælpe med dét?

Jon
Avatar billede natkatten Mester
27. juni 2015 - 09:09 #1
Hvad er det præcist, der skal udelades (ikke slettes)? Er det alt, der indeholder strengen " DK." (mellemrum først DK med stort og punktum til slut)? Og skal den være casesensitiv?
Avatar billede JonFossa Praktikant
27. juni 2015 - 09:15 #2
Hej

Ja, rækker der ikke indeholder " DK." skal slettes
Ikke case-sensitive.
Avatar billede natkatten Mester
27. juni 2015 - 09:32 #3
Denne skal tilrettes dit konkrete behov. Så være opmærksom på arknavnet (her benyttes Ark1) og sorteringsområdet (her sorteres kun på kolonne A).

Der er en særskilt Sub til sorteringen. Kan om ønsket indgå i den anden Sub.

Sub SletRækkerUdenDK()
Dim Rk As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = Sheets("Ark1")
For Rk = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
With Ws.Cells(Rk, 1)
    If InStr(.Value, " DK.") = 0 Then _
    Rows(Rk).EntireRow.Delete
End With
Next Rk
Call Sortering
Application.ScreenUpdating = True
End Sub

Sub Sortering()
Dim SidsteRk As Long
SidsteRk = Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Ark1").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("A1:A" & SidsteRk), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A1:A" & SidsteRk)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Avatar billede natkatten Mester
27. juni 2015 - 09:34 #4
Hmm der mangler end End Sub i Sorterings Sub'en.
Avatar billede natkatten Mester
27. juni 2015 - 09:53 #5
Eksempel uploadet her:

http://gratisupload.dk/f/8scdnpo5w9/

Kan naturligvis "smukkeseres" en del.
Avatar billede JonFossa Praktikant
27. juni 2015 - 12:51 #6
Natkatten, du er min helt.
Opret et svar, så godkender jeg straks.
Tak for hjælpen!
Jon
Avatar billede natkatten Mester
27. juni 2015 - 15:20 #7
:-)
/natkatten
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester