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
Moderatori: Anthony47, Flash30005
cd7019 ha scritto:ciao,
Come posso sostituire i seguenti caratteri?
433s576
con 433w576.
oppure
29s1
con 29w1
for i=1to 10
for j=1 to 20
cells(i,j).value = replace( cells(i,j).value, "s", "w")
next j
next i
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
Torna a Applicazioni Office Windows
Ricerca valore su colonna altro foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
ricerca file anche nelle sottocartelle Autore: deniel69 |
Forum: Applicazioni Office Windows Risposte: 3 |
Outlook non effettua la ricerca in nessuna cartella acco Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 13 ospiti