Új hozzászólás Aktív témák

• #39036 Delila_1 Topikgazda Teejay83 #39033

  Új Válasz 2018-09-03 11:54:40 #39036

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  Topikgazda

  válasz Teejay83 #39033 üzenetére

  Ha csak 1 ilyen sorod van, az Adatok | Szövegből oszlopok menüponttal egymás mellé írathatod az egyes tagokat, majd a másolás, irányított beillesztés, transzformálva menüponttal egymás alá rendezheted a szétválasztott adatokat.

  Több sornál futtathatod a lenti makrót.

  Sub trans()
Dim sor As Long, usor As Long, ide As Long
Dim szoveg As String, hossz As Integer

usor = Range("A" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
szoveg = Cells(sor, 1)
Do While InStr(szoveg, ",") > 0
hossz = InStr(szoveg, ",")
Cells(ide, "B") = Left(szoveg, hossz - 1)
szoveg = Mid(szoveg, hossz + 1, 100)
ide = ide + 1
Loop
Cells(ide, "B") = szoveg
ide = ide + 1
Next
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Új hozzászólás Aktív témák