Hirdetés

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

  • martonx
    veterán

    Sziasztok!

    Ismét egy makró kérdéssel fordulok hozzátok. Olyan programra lenne szükségem ami egy adott oszlop adatai alapján sorokat szúr be az azonos adatok után.

    Elvárás, hogy belehessen állítani, hogy melyik oszlop adatai szerint szúrja be a sorokat a táblázatba.

    pl.: legyen egy A, B és C oszlopból álló táblázatunk, ez

    A - B - C
    1 - a - 32
    2 - a - 43
    3 - a - 32
    4 - d - 12
    5 - d - 21
    6 - v - 45
    7 - v - 5
    8 - b - 333

    ebből a táblázatból ezt szeretném makróval kapni:

    A - B - C
    1 - a - 32
    2 - a - 43
    3 - a - 32

    4 - d - 12
    5 - d - 21

    6 - v - 45
    7 - v - 5

    8 - b - 333

    Valakinek erre van megoldás, programja?

    Köszönöm,

    Erik

    Public Sub sorolo()
    sor = 1
    While Cells(sor, 2) <> ""
    If Cells(sor, 2) <> Cells(sor + 1, 2) Then
    Rows(sor + 1 & ":" & sor + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    sor = sor + 1
    End If
    sor = sor + 1
    Wend
    End Sub

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