You are here:---Rispondi a: [RISOLTO] Sostituire caratteri speciali
Rispondi a: [RISOLTO] Sostituire caratteri speciali 2018-12-08T01:00:14+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Sostituire caratteri speciali Rispondi a: [RISOLTO] Sostituire caratteri speciali

sidsid
Moderatore
    Post totali: 502

    Questa macro è adattata al file di prova che hai mandato.
    Inserisce le stringhe modificate nella colonna B.
    Se va bene possiamo adattarlo al file originale.

    Sub prova()
    
    Dim vAccento As Variant, vNoAccento As Variant
    Dim rng As Range, cl As Range
    Dim j As Long
    
    vAccento = Array("à", "á", "è", "é", "ì", "í", "ò", "ó", "ù", "ú", _
                "À", "Á", "È", "É", "Ì", "Í", "Ò", "Ó", "Ù", "Ú", "&", "°", "'", ",")
    vNoAccento = Array("a", "a", "e", "e", "i", "i", "o", "o", "u", "u", _
                "A", "A", "E", "E", "I", "I", "O", "O", "U", "U", "e", "", "", ".")
    
    Set rng = Sheets("Foglio1").Range("A1:A35") 'nome tuo foglio
    
    For Each cl In rng
        For j = LBound(vAccento) To UBound(vAccento)
            If InStr(1, cl.Value, vAccento(j), vbBinaryCompare) > 0 Then
                cl.Offset(0, 1).Value = Application.WorksheetFunction.Substitute(cl.Value, vAccento(j), vNoAccento(j))
            End If
        Next j
    Next cl
    Set rng = Nothing
    End Sub

    fa sapere, ciao.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi