Gerry ha una cartella di lavoro contenente 22 fogli di lavoro. Ogni foglio di lavoro contiene circa 20 commenti. Alcuni commenti fanno riferimento a una divisione aziendale.

Vorrebbe eseguire una ricerca di massa e sostituire i commenti per trovare ogni riferimento (ad esempio, “Divisione ABC”) e sostituirlo con qualcos’altro (ad esempio, “filiale XYZ”).

Non è possibile eseguire questa operazione senza utilizzare una macro. Le normali funzionalità Trova e sostituisci in Excel non ti consentono di trovare il testo all’interno dei commenti, ma puoi usare i comandi macro. Quella che segue è una semplice macro per fare la sostituzione:

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



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         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

Le linee chiave qui sono quelle che impostano le variabili sFind e sReplace.

Dovresti impostarli in modo che riflettano ciò che stai cercando e ciò con cui vuoi che venga sostituito, rispettivamente. La macro passa attraverso ogni commento in ogni foglio di lavoro della cartella di lavoro corrente e apporta le modifiche ovunque si trovino.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (3534) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Finding and Replacing Text in Comments.