ricerca e sostituzione con caratteri jolly

[cd7019]

ciao,

Come posso sostituire i seguenti caratteri?
433s576
con 433w576.

oppure
29s1
con 29w1

for i=1to 10
for j=1 to 20
if cells(i,j) like "#s#" then cells(i,j)=...
next j
next i

Grazie

[scossa]

ciao,

Come posso sostituire i seguenti caratteri?
433s576
con 433w576.

oppure
29s1
con 29w1

Senza entrare nel merito del codice:

Codice: Seleziona tutto

for i=1to 10
for j=1 to 20
cells(i,j).value = replace( cells(i,j).value, "s", "w")
next j
next i


[cd7019]

grazie,
ma desideravo sostituire i 3 caratteri :
numero-s-numero
con
numero-w-numero


ciao.

[ricky53]

Ciao,
ed il codice di Scossa cosa fa?

Lo hai provato? ... Forse no!

[cd7019]

All'interno del mio intervallo ho dei testi che contengono anche la "s", con il comando replace mi sostituisce tutto dove trova la "s", io desidero che venga sostituito il blocco di 3 caratteri: numero "s" numero .


Grazie

[Anthony47]

Prova questa versione:

Codice: Seleziona tutto

Dim I As Long, J As Long, myS As Long, myScr As String
'
For I = 1 To 10
    For J = 1 To 2
        myS = InStr(1, Cells(I, J), "s", vbTextCompare)
        If myS > 1 Then
            myScr = Mid(Cells(I, J), myS - 1, 3)
                If IsNumeric(Left(myScr, 1) & Right(myScr, 1)) Then
                Cells(I, J).Value = Replace(Cells(I, J).Value, "s", "w")
                End If
        End If
    Next J
Next I


Ciao

[cd7019]

GRAZIE, GRAZIE, GRAZIE.