17. maj 2001 - 12:19Der er
14 kommentarer og 3 løsninger
opdeling af celler.
Jeg ligger inde med en database hvor post nr og by er i samme celle. \"2400 København NV\". Hvordan får man denne splittet op i 2 celler. \"2400\" og \"København NV\"??
Desuden er der mellem hver data-række, 2 tomme rækker. findes der en funktion, der kan slette tomme rækker??
6 tallet er vel og mærke hvis du har to mellemrum mellem postnummer og by - skriv 5, hvis du kun har 1 mellem rum, og ændre samtidig det sidste 5 tal til 4.
Hvad nu hvis antallet af rækker ændrer sig, så skal du ind og kontrollere makroen hver gang!
Denne tæller antal rækker hver gang:
Sub DeleteEmptyRows(DeleteRange As Range) \' Deletes all empty rows in DeleteRange \' Example: DeleteEmptyRows Selection \' Example: DeleteEmptyRows Range(\"A1:D100\") Dim rCount As Long, r As Long If DeleteRange Is Nothing Then Exit Sub If DeleteRange.Areas.Count > 1 Then Exit Sub With DeleteRange rCount = .Rows.Count For r = rCount To 1 Step -1 If Application.CountA(.Rows(r)) = 0 Then .Rows(r).EntireRow.Delete Next r End With End Sub
Man kan jo lave det på mange måder - min er meget simpel og meget hurtig, hvorimod jeg synes, at din er lidt overdrevet når den kun skal køres 1 gang. Desuden skal du have en anden makro til at kalde den, når du har DeleteRange As Range inde i parantesen!
Undskyld - du behøves ingen makro til dette job. Hvis det ingen betydning har for dig, at sorterer dine data via Data/Sorter. Når du sorterer, så får du de tomme rækker enten øverst eller nederst - det må da være det nemmeste :-)
Hvis man f.eks. har en kolonne A, med et antal rækker, hvoraf nogle er blanke, kan man også ved hjælp af formler lave en kolonne B, hvor data i kolonne A er \"trukket sammen\" altså UDEN de blanke celler.
Med hensyn til de tomme rækker, er det næmmeste så ikke bare at marker den kolonne dataene er i, herefter aktiver menu ctrl+G - speciel - tomme celler - ok - højre klik på mus - slet - hel række - ok.
>>>natsort - mangler du informationer for at have det svar du har brug for ? Hvis ikke så Accepter et eller flere svar, så spørgsmålet kan blive lukket.
Synes godt om
Ny brugerNybegynder
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.