매크로 여러 번 나타날 수있는 작업 표에서 문자열을 검색합니다.

Question

나는 5 개의 시트와 500 개의 행이있는 통합 문서를 가지고 있습니다. 통합 문서에서 여러 번 나타날 수있는 문자열을 검색 할 수있는 매크로가 필요합니다. 이걸 도와주세요. 문자열을 발견하면

안부, MDS

Answer 1

당신은 무엇을 원하는가? 매크로가 아닌 방법은 편집 - 찾기를 클릭하고 옵션 버튼을 클릭합니다. 통합 문서로 "within"을 설정하고 모두 찾기를 클릭하십시오. 그러면 모든 문자열을 찾을 수 있습니다.

매크로가 실제로 필요한 경우이 위치는 직접 실행 창에 위치를 인쇄합니다.

Sub FindAll() 

    Dim sh As Worksheet 
    Dim rFound As Range 
    Dim sFirst As String 
    Dim sWhat as String 

    sWhat = Application.InputBox("Search for:") 

    For Each sh In ThisWorkbook.Worksheets 
     Set rFound = sh.UsedRange.Find(sWhat, , xlValues, xlPart) 
     If Not rFound Is Nothing Then 
      sFirst = rFound.Address 
      Debug.Print rFound.Address(, , , True) 
      Do 
       Set rFound = sh.UsedRange.FindNext(rFound) 
       If rFound Is Nothing Then Exit Do 
       Debug.Print rFound.Address(, , , True) 
      Loop Until rFound.Address = sFirst 
     End If 
    Next sh 

End Sub