Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #3710 Delila_1 veterán Csontikka #3708
    Új Válasz #3710
    Ú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 Csontikka #3708 üzenetére

    Ugyanazt csinálja mint az előbb, csak kicsit kevesebb sorban leírva:

    Sub Tisztítás()
    usor = Range("A65536").End(xlUp).Row 'változtatás, ha nem A oszlopban van az adat
    For sor = 1 To usor
    név = Cells(sor, 1) 'változtatás, ha nem A oszlopban van az adat
    Do While Mid(név, 1, 1) = " " Or Mid(név, 1, 1) = "!"
    név = Right(név, Len(név) - 1)
    Loop
    k = Len(név)
    Do While Mid(név, k, 1) = " " Or Mid(név, k, 1) = "!"
    név = Left(név, Len(név) - 1)
    k = k - 1
    Loop
    Cells(sor, 2) = név 'változtatás, ha nem B oszlopba kell írni a kigyomlált adatot
    Next
    End Sub

  • #3709 Delila_1 veterán Csontikka #3708
    Új Válasz #3709
    Ú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 Csontikka #3708 üzenetére

    Nem írtad, melyik oszlopban vannak az adataid.
    A makró az A oszlopban lévő adatokat tisztítja meg a feleslegtől, és a B oszlopba írja az eredményt.

    Sub Tisztítás()
    usor = Range("A65536").End(xlUp).Row 'Itt írd át az A-t, ha nem az A oszlop adatait ellenőrzöd
    For sor = 1 To usor
    név = Cells(sor, 1) 'Itt az 1-et az oszlopod sorszámára
    név = Right(név, Len(név) - 1)
    név = Left(név, Len(név) - 1)
    Cells(sor, 2) = név 'Itt azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
    k = 1
    Do While Mid(név, k, 1) = " "
    név = Right(név, Len(név) - 1)
    Cells(sor, 2) = név 'Itt is azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
    Loop
    k = Len(név)
    Do While Mid(név, k, 1) = " "
    név = Left(név, Len(név) - 1)
    Cells(sor, 2) = név 'Itt azt az oszlop sorszámot, ahova a tisztított adat kell
    k = k - 1
    Loop
    Next
    End Sub

    A tisztított adatot oda is írathatod, ahol jelenleg a !-es adataid vannak, de jobb máshova, és az eredetit utólag törlöd.

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