Note: The other languages of the website are Google-translated. Back to English

Come trovare e sostituire il testo quindi preservare la formattazione in Excel?

doc trova sostituisci conserva formato 1
doc trova sostituisci conserva formato 2
La funzione Trova e sostituisci è potente e utile quando è necessario trovare un valore specifico e sostituirlo con un altro. Ma se è presente un intervallo di celle e alcune delle celle includono valori di formattazione diversi. In questo caso, trovare e sostituire il valore con la funzione Trova e sostituisci interromperà la formattazione dei valori nelle celle come mostrato nell'immagine sottostante, come possiamo preservare la formattazione dei valori in ogni cella durante la ricerca e la sostituzione in Excel?

Trova e sostituisci conserva la formattazione con il codice macro

freccia blu freccia destra Trova e sostituisci conserva la formattazione con il codice macro

Non ci sono altri metodi ma il codice macro può aiutarti a trovare e sostituire il testo e preservare la formattazione.

1. Stampa Alt + F11 chiavi per aprire il Microsoft Visual Basic per l'applicazione finestra.

2. Clic inserire > Moduloe incolla il codice sottostante nello script.

VBA: trova e sostituisci conserva la formattazione

Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
  'UpdatebyExtendoffice20160711
    Dim I As Long
    Dim xLenFind As Long
    Dim xLenRep As Long
    Dim K As Long
    Dim xValue As String
    Dim M As Long
    Dim xCell As Range
    xLenFind = Len(FindText)
    xLenRep = Len(ReplaceText)
    If Not MatchCase Then M = 1
    For Each xCell In Rng
        If VarType(xCell) = vbString Then
            xValue = xCell.Value
            K = 0
            For I = 1 To Len(xValue)
              If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
                xCell.Characters(I + K, xLenFind).Insert ReplaceText
                K = K + xLenRep - xLenFind
              End If
            Next
        End If
    Next
End Sub

Sub Test_CharactersReplace()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub

 

doc trova sostituisci conserva formato 5

3. Stampa F5 chiave, viene visualizzata una finestra di dialogo per selezionare un intervallo da trovare e sostituire, vedi screenshot:
doc trova sostituisci conserva formato 6

4. Fare clic su OK e la stringa specifica nella cella selezionata viene sostituita con altra e mantiene la formattazione.
doc trova sostituisci conserva formato 4

Consiglio: Nel codice,  KK è la stringa che vuoi trovare e Kutools è la stringa con cui vuoi sostituire, puoi cambiarli secondo le tue necessità.


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (5)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ho provato la tua soluzione su una cella che supera i 255 caratteri e non cambia nulla. C'è una soluzione per questo caso?
Questo commento è stato fatto dal moderatore sul sito
Ricevo un errore di sintassi in VBA
Questo commento è stato fatto dal moderatore sul sito
Stessa domanda di John Birk, ho bisogno di una soluzione alternativa con Celle che hanno più di 255 segni.
Questo commento è stato fatto dal moderatore sul sito
Il metodo funziona solo con caratteri inferiori a 255 cifre.
Questo commento è stato fatto dal moderatore sul sito
Puoi chiarire se esiste una soluzione che funziona in celle con più di 255 caratteri o è una limitazione di Excel? Il tuo componente aggiuntivo supporta celle con più di 255 caratteri che contengono formattazione?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL