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

• #24937 Delila_1 veterán biker #24936

  Új Válasz 2015-01-09 10:01:27 #24937

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

  A =KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;80) nem makró, hanem egy képlet. Egy üres oszlopba írd be az első (dupla) szavad sorába, majd másold le addig, amíg adataid vannak.

  Vagy egyszerre beírhatod a képletet a D oszlopba, D2-től addig, ameddig adatok vannak az A oszlopban.
  Ez a makró modulban legyen. A Munka1 helyett írd a saját lapod nevét.

  Sub angol()
  Dim usor As Long
  
  usor = Application.WorksheetFunction.CountA(Sheets("Munka1").Range("A:A"))
  Range("D2:D" & usor) = "=MID(A2,SEARCH("" "",A2)+1,256)"
  End Sub

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