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

  • Delila_1
    veterán

    Így van, ez kellene tetszőlegesen sok értékre. Pl. ha Az A oszlop értékei cellánként 1,2,3,4,5 (..). Akkor a B oszlop 1,1,2,2,3,3,4,4,5,5 (..) De bárhogy próbáltam beírni a képleteket, mikor lehúztam mindig elcsúszott valahol a számozás, nem sikerült a kívánt eredményt elérni.

    Ez meg azt automatizálja, amit lúzer írt a #3185-ben, hogy ne kelljen kézzel beszúrni minden sor elé egy másikat, összevonni két-két cellát, és beírni a hivatkozást:

    Sub Sorok_beszurasa()
    usor = ActiveSheet.UsedRange.Rows.Count
    For sor = 1 To usor * 2 Step 2
    Cells(sor, 1).Select
    Selection.EntireRow.Insert
    Range(Cells(sor, 1), Cells(sor + 1, 1)).Select
    Selection.Merge
    Next
    sor = 1
    Do While sor < usor * 2
    Cells(sor, 2).Select
    Selection.Formula = "=A" & sor
    Cells(sor + 1, 2).Select
    Selection.Formula = "=A" & sor
    sor = sor + 2
    Loop
    End Sub

    Ehhez is hozzáírható az a pár sor, ami az előző hozzászólásomban a Next után van.

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