Finne og erstatte tekst i Kommentarer

February 15  by Eliza

Gerry har en arbeidsbok som inneholder 22 regneark. Hvert regneark har ca 20 kommentarer. Noen av kommentarene gjør referanse til et selskap divisjon. Han ønsker å gjøre en masse søk og erstatt av kommentarene for å finne hver referanse (for eksempel "ABC Division") og erstatte den med noe annet (for eksempel "XYZ datterselskap").

Det er ingen måte å gjøre dette uten å bruke en makro. Det vanlige finne og erstatte evner i Excel ikke tillate deg å finne tekst i kommentarer, men du kan bruke makrokommandoer. Følgende er en enkel makro å gjøre den erstatter:

Sub ReplaceComments ()
Dim cmt Som Kommentar
Dim wks Som regneark
Dim sFind As String
Dim sReplace As String
Dim SCMT As String

sFind = "ABC Division"
sReplace = "XYZ datterselskapet"

For hver wks I ActiveWorkbook.Worksheets
For Hver cmt I wks.Comments
SCMT = cmt.Text
Hvis InStr (SCMT, sFind) <> 0 Then
SCMT = Application.WorksheetFunction. _
Substitute (SCMT, sFind, sReplace)
cmt.Text Tekst: = SCMT
End If
Neste
Neste
Satt wks = Nothing
Satt cmt = Nothing
End Sub

De sentrale linjer her er de som setter sFind og sReplace variabler. Du bør sette dem til å reflektere hva du søker etter og hva du vil ha det erstattet med henholdsvis. Makro skritt gjennom hver kommentar i hvert regneark av gjeldende arbeidsbok og gjør endringene uansett hvor de befinner seg.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3534) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Finne og erstatte tekst i kommentarer.