24. marts 2014 - 13:51Der er
9 kommentarer og 1 løsning
Sortering og sammentrækning af data
Hej
Jeg har en logfil, hvor hver aktivitet bliver skrevet ud linje for linje og det er lidt besværligt at arbejde med - Tænker Excel må kunne hjælpe lidt....
Min log skulle helst se sådan ud:
C1 5A 00 00 00 00 00 2A 00 01 01 03 AB
Skulle havde været: AB 03 01 01 00 2A 00 00 00 00 00 5A C1
AB vil være den første nogle gange, og det kan variere, men et eller andet der kan løbe data igennem,...... syntes ikke lige at kunne spotte den rigtige funktion -Nogle gode bud?
Alle mine tal står i een og samme kolonne, men jeg ønsker at trække dem op i een række. Her vil jeg gerne at rækker som ikke er lig "AB", flyttes op på en række, når den møder "AB" eller "A/", skiftes der linje og processen gentages....
marker dine data og prøv så at køre denne makro, den skriver i B kolonnen
Public Sub Test() Dim Data As Variant, UD As String, U As Long, X As Integer, S As Long Data = Selection U = 1 B = 1 For I = 1 To UBound(Data, 1) If UCase(Left(Data(I, 1), 1)) = "A" Then S = I For X = S To B Step -1 UD = UD & Replace(Data(X, 1), " ", "") Next X Range("b" & U) = UD U = U + 1 B = S End If Next End Sub
Public Sub Test() Dim Data As Variant, UD As String, U As Long, X As Integer, S As Long Data = Selection U = 1 B = 1 For I = 1 To UBound(Data, 1) If UCase(Left(Data(I, 1), 1)) = "A" Then S = I For X = S To B Step -1 UD = UD & Replace(Data(X, 1), " ", "") & " " Next X Range("b" & U) = UD UD = "" U = U + 1 B = S + 1 End If Next End Sub
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.
