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

• #47000 Fferi50 Topikgazda zsolti_20 #46999

  Új Válasz 2021-06-17 17:28:42 #47000

  Ú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

  

  Fferi50

  Topikgazda

  válasz zsolti_20 #46999 üzenetére

  Szia!
  Itt egy pár sorral rövedebb makró:
  Sub splitel()
Dim cl As Range, clstr
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A oszlop celláin végigmegyünk
clstr = Split(Replace(Replace(cl.Value, ",", "."), " ", "."), ".") 'átcserélünk minden elválasztó pontra és tömbbé alakítjuk az értéket
clstr(UBound(clstr)) = "." & clstr(UBound(clstr)) ' az utolsó tömbérték elé betesszük a pontot
cl.Offset(0, 1).NumberFormat = "@" 'szövegformátumú legyen a célcella
cl.Offset(0, 1).Value = Join(clstr, "") 'a B oszlopba összefűzzük az értéket
Next
ActiveSheet.UsedRange.Columns("B").AutoFit 'a B oszlop szélességét méretre igazítjuk
End Sub
  Üdv.

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