VBA új sor

VBA új sor
2018-11-26T21:20:21+01:00
2018-11-27T12:22:46+01:00
2022-10-15T21:40:56+02:00
4gn33
Sziasztok, 
van A oszlopban 500 mező amely 2 vesszővel elválasztott mezőt tartalmaz. 
Hogyan lehet megoldani hogy a 2 számból a másodikat vegye ki és illessze be új sorba? 

Példa:
A oszlop:
1
4
6
13, 5
32
41.21

Elore is köszi
Mutasd a teljes hozzászólást!

  • Hali!

    Mutasd – forráskóddal –, hogy eddig mivel, hogyan próbálkoztál, meddig jutottál el, mi nem megy, miben/hol akadtál el!

    Mutasd a teljes hozzászólást!
  • ennyit sikerült eddig kihozni, viszont ez új oszlopba tette - nem sorba, plusz rájöttem, hogy kötőjellel vannak elválasztva

    A    D
    1     1, 2
    3    3
    4    6
    5    78-89
    6    30
    7    40



    Sub Test()

        Dim lastRow As Long
        Dim dataList As Range

        With ThisWorkbook.Worksheets("Sheet1")
            lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
            Set dataList = .Range("D2").Resize(lastRow, 1)
        End With

        SplitText dataList

    End Sub

    Sub SplitText(MyRange As Range)

        MyRange.TextToColumns Destination:=MyRange.Offset(, 1), DataType:=xlDelimited, _
            TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=True, _
            Space:=True

    End Sub
    Mutasd a teljes hozzászólást!
  • elso=Left(szoveg,search("-",szoveg))
    masodik=right(szoveg,Len(szoveg)-serch("-",szoveg))
    megadja a két új értéket, ezeket kell beraknod a megfelelő helyekre
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd