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

• #45758 Fferi50 Topikgazda karlkani #45754

  Új Válasz 2021-01-12 22:48:37 #45758

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

  Szia!
  Miért ne lehetne úgy átírni.
  Tehát minden második sorban van az a szöveg, amit ki szeretnél cserélni?
  Akkor ilyen legyen a makró:
  Sub modosit()
Dim a As String, cl As Range
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A helyére írd az adataid oszlopát
If InStr(cl.Value, "/") > 0 Then
a = cl.Text
a = Left(a, InStrRev(a, "/")) & "valami_" & Mid(a, InStrRev(a, "\") + 1) ' a valami_ legyen idézőjelek között
cl.Value = a
End If
Next
End Sub
  Remélem, így már tényleg működni fog.
  Üdv.

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