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
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Rimozione parziale di caratteri nella cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
macro excel inserire caratteri nella cella e tutto maiuscolo Autore: turbonet |
Forum: Applicazioni Office Windows Risposte: 2 |
Ricerca valore su colonna altro foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: raimea e 39 ospiti