Sostituire testo da una parola fino alla fine

di Anonimizzato24755 il
4 risposte
/
Anonimizzato24755
Utente anonimizzato
Ciao,
avrei bisogno di sostituire in una cella il testo che va dalla parola "Q.TA" fino alla fine di esso.

Quindi se ho un testo originale:
ABC DEF GHILMNO Q.TA 50
ABCDEFGHILMNO Q.TA 1

Sostituire gli ultimi valori con 100 (esempio):

ABC DEF GHILMNO Q.TA 100
ABCDEFGHILMNO Q.TA 100

4 Risposte

  • /
    Anonimizzato25379
    Utente anonimizzato
    Puoi usare la funzione RICERCA per trovare "Q.TA" e poi STRINGA.ESTRAI per prendere una sotto-stringa.
  • /
    Anonimizzato24755
    Utente anonimizzato
    Giustamente non ho specificato scusate.. avrei bisogno di farlo in una macro.
  • Utente Attivo
    Iscritto da
    set, 2015
    Messaggi
    170
    Ciao
    Poniamo che i tuoi dati siano in col.A, prova con questa macro [CODE]Sub quant() ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To ur pos = InStr(Cells(i, 1).Value, "Q.TA") aa = Left(Cells(i, 1).Value, pos + 4) & 100 Cells(i, 4) = aa Next i End Sub Fai sapere. Ciao,
    Mario
  • /
    Anonimizzato24755
    Utente anonimizzato
    Meraviglioso!
    Sbagliavo il segno della Left.

    Grazie!!
Devi accedere o registrarti per scrivere nel forum
4 risposte