Vai al contenuto principale

Come trovare e sostituire il testo all'interno dei commenti in Excel?

Come sappiamo, esiste una funzione Trova e sostituisci in Excel e, con questa funzione, possiamo trovare e sostituire rapidamente il contenuto nelle celle. Ma possiamo trovare e sostituire i contenuti nei commenti in Excel?

Utilizzo del codice VBA per trovare e sostituire il testo all'interno dei commenti

Per trovare e sostituire il testo all'interno dei commenti in modo rapido e semplice


freccia blu freccia destra Utilizzo del codice VBA per trovare e sostituire il testo all'interno dei commenti

In Excel, sembra che non ci sia altro modo per risolvere questo problema se non utilizzando il codice VBA, è possibile utilizzare il seguente codice VBA per trovare e sostituire il testo in tutti i commenti. Ad esempio, sostituirò il 2011 con il 2012 in tutti i commenti in Excel.

1. Clic Costruttori >Visual Basic, un nuovo Microsoft Visual Basic per le applicazioni verrà visualizzata la finestra, fare clic su inserire > Moduli e quindi inserisci il seguente codice VBA nel modulo:

VBA: trova e sostituisci il testo in tutti i commenti in Excel.

Sub ReplaceComments ()
Dim cmt come commento
Dim wks come foglio di lavoro
Dim trova come stringa
Dim s Sostituisci come stringa
Dim sCmt come stringa
sFind = "2011"
sReplace = "2012"
Per ogni sett. In ActiveWorkbook.Worksheets
Per ogni cmt In sett. Commenti
sCmt = cmt.Testo
Se InStr (sCmt, sFind) <> 0 Allora
sCmt = Applicazione.WorksheetFunction. _
Sostituisci (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
End If
Successivo
Successivo
Imposta wks = Nothing
Imposta cmt = Nothing
End Sub

Nota: Nel codice sopra, puoi impostare il file sTrova ed sSostituisci variabili per ciò che stai cercando e con ciò che vuoi sostituire.

2. Quindi fare clic dpc-replace-commento-1 pulsante per eseguire il codice e tutto il 2011 in tutti i commenti verrà sostituito con il 2012 nell'intera cartella di lavoro.


freccia blu freccia destra Uno strumento utile per trovare e sostituire il testo all'interno dei commenti in modo rapido e semplice

Possiamo trovare e sostituire rapidamente il testo in tutti i commenti con Kutools for Excel'S Strumenti di commento delle celle.

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Get it Now

Se hai installato Kutools per Excel, potresti facilmente trovare e sostituire il testo in tutti i commenti in Excel.

1. Clic Kutools > Più > Strumenti di commento delle celle. Vedi screenshot:

doc-sostituisci-commento-2

2. Nel Strumenti di commento delle celle la finestra di dialogo:

  • (1.) Fare clic su Trova / Sostituisci scheda;
  • (2.) Selezionare l'ambito a cui si desidera applicare questa utilità, è possibile selezionare Foglio attivo or Tutti i fogli;
  • (3.) Immettere il testo (2011) che si desidera sostituire nel file Trova testo nei commenti casella e immettere il testo specifico (2012) che si desidera utilizzare nel file Sostituire con scatola.

doc-sostituisci-commento-3

3. E poi clicca sostituire pulsante. Tutto il 2011 verrà sostituito con il 2012 all'interno dei commenti nel foglio di lavoro attivo. Vedi screenshot:

doc-sostituisci-commento-4 -2 doc-sostituisci-commento-5

Note:: Se hai controllato Mostra riepilogo, ci sarà una finestra di messaggio per ricordarti quanti commenti di cella sono stati modificati.

Per informazioni più dettagliate su Strumenti di commento delle celle, Si prega di visitare il sito Descrizione delle funzionalità degli strumenti di commento delle celle.


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations