Gerry는 22 개의 워크 시트가 포함 된 워크 북을 가지고 있습니다. 각 워크 시트에는 약 20 개의 주석이 있습니다. 일부 의견은 회사 부서를 참조합니다.

그는 대량 검색을 수행하고 주석을 대체하여 각 참조 (예 : “ABC Division”)를 찾고이를 다른 것으로 대체하려고합니다 (예 : “XYZ 자회사”).

매크로를 사용하지 않고는이 작업을 수행 할 수 없습니다. Excel의 일반 찾기 및 바꾸기 기능을 사용하면 주석 내에서 텍스트를 찾을 수 없지만 매크로 명령을 사용할 수 있습니다. 다음은 바꾸기를 수행하는 간단한 매크로입니다.

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

여기서 핵심 라인은 sFind 및 sReplace 변수를 설정하는 라인입니다.

검색중인 내용과 대체 할 내용을 각각 반영하도록 설정해야합니다. 매크로는 현재 통합 문서의 각 워크 시트에있는 각 주석을 단계별로 실행하고 주석이있는 모든 위치에서 변경합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3534)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Finding_and_Replacing_Text_in_Comments [주석에서 텍스트 찾기 및 바꾸기].