Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #26176 Louro őstag Des1gnR #26169
    Új Válasz #26176
    Ú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

    Louro

    őstag

    válasz Des1gnR #26169 üzenetére

    Ha jól értem transzponálni szeretnél?

    Pl.:
    Élelmiszer_____________Élelmiszer
    Édesség______________Édesség
    Belvita jóreggelt________Orbit eper
    Nettó ár______________Nettó ár

    Vagy

    Élelmiszer______Édesség_____Belvita_____Nettó ár
    Élelmiszer______Édesség_____Orbit_______Nettó ár

    (Az alsóvonások csak az olvashatóság miatt vannak :) )

    Ha minden termék 4 adatból áll, akkor szerencsések vagyunk, mert ciklussal gyorsan feldolgozhatóak. ;) Csak a kérdés, hogy a fentiből melyik kell.

    Ha a 2., akkor
    Sub darabolo()

    Dim LastRow As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count

    For i = 1 To LastRow Step 5
    For j = 0 To 3
    'Vegye ki az első négy sort és illessze be pár oszloppal odébb.
    Cells(i + j, 1).Select
    Selection.Copy
    Cells(i, 3 + j).PasteSpecial xlPasteValues
    Next
    'Az elválasztó sor miatt ugrok 5-öt.
    Next


    End Sub

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