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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
