Hirdetés

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

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

  • #29967 Delila_1 veterán biker #29966
    Új Válasz #29967
    Ú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

    veterán

    válasz biker #29966 üzenetére

    A rendezett lapon kell futtatnod a makrót.

    A makró elején a B és az AD oszlop adataiból törlöm a felesleges, ismétlődő adatokat, hogy tisztább legyen a kép, majd az AD oszlopban – vesszővel elválasztva – gyűjtöm kategóriákat.
    A Sheets("Munka1").Select sorban a Munka1 helyére a saját lapod nevét írd be.

    Sub Tisztitas()
    Dim sor As Long, usor As Long

    'Előkészítés
    Sheets("Munka1").Select 'Ide a saját lapod nevét írd be
    usor = Range("A" & Rows.Count).End(xlUp).Row
    Range("AJ2:AJ" & usor).FormulaR1C1 = "=LEFT(RC[-34],SEARCH("")"",RC[-34]))"
    Range("AJ2:AJ" & usor).Copy
    Range("B2").PasteSpecial xlPasteValues
    Range("AJ2:AJ" & usor) = ""

    With Columns("AD:AD")
    .Replace What:="Transpak alkatrészek>>", Replacement:=""
    .Replace What:=">>", Replacement:=""
    End With

    'Sortörlés
    For sor = usor To 2 Step -1
    If Cells(sor, "K") = Cells(sor - 1, "K") Then
    Cells(sor - 1, "AD") = Cells(sor - 1, "AD") & "," & Cells(sor, "AD")
    Rows(sor).Delete Shift:=xlUp
    End If
    Next
    End Sub

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