2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    IT café

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #3190 Delila_1 Topikgazda rebel56 #3178
    Új Válasz #3190
    Ú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 rebel56 #3178 üzenetére

    Van itt egy kis makró a problémádra:

    Sub valami()
    usor = ActiveSheet.UsedRange.Rows.Count
    s = 2
    For sor = 2 To 2 * usor - 1 Step 2
    Cells(sor, 2).Select
    ActiveCell.Formula = "=A" & s
    Cells(sor + 1, 2).Select
    ActiveCell.Formula = "=A" & s
    s = s + 1
    Next
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    End Sub

    A Next utáni sorok elhagyhatók, azok a beírt hivatkozásokat alakítják át értékekké.

    lúzer!
    A #3185-ös hozzászólásodban a mintát a saját gépedről tetted fel, így csak akkor látható, mikor te is "képben vagy". Pedig biztosan jó megoldást adtál.

    [ Szerkesztve ]

    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