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

• #22331 Delila_1 veterán madrol #22330

  Új Válasz 2014-07-08 11:08:58 #22331

  Ú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 madrol #22330 üzenetére

  Azzal csak annyi a baj, hogy bent maradnak a képletek (erőmű), hacsak nem írod felül őket egy irányított beillesztéssel.
  Azért megírtam a makrót, az A oszlopban lévő vegyes adatokat írja felül. 16000 sorral 1 mp alatt végez.

  Sub CsakSzam()
  Dim sor As Long, usor As Long, b As Integer
  Dim adat As String, szoveg As String
  
  Application.ScreenUpdating = False
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  For sor = 1 To usor
  szoveg = ""
  adat = Cells(sor, "A")
  
  For b = 1 To Len(adat)
  If Mid(adat, b, 1) Like "[0-9]" Then _
  szoveg = szoveg & Mid(adat, b, 1)
  Next
  Cells(sor, "A") = szoveg * 1 '*****************
  Next
  Application.ScreenUpdating = True
  End Sub

  A csillaggal jelzett sort Cells(sor, "B") = szoveg * 1-re átírva a B oszlopba írja a kigyomlált részt.

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