Predefinição:Taxonomia/Helenieae

Sub HighlightAllKeywords()

   ' 키워드를 직접 VBA 배열에 정의
   Dim keywords As Variant
   keywords = Array("키워드1", "키워드2", "키워드3", "키워드4") ' 여기에 필요한 키워드를 추가

   ' 대상 워크시트 선택 (예: Sheet1)
   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets("Sheet1")

   ' J열 범위 내 모든 셀 선택 (J2부터 마지막 행까지)
   Dim lastRow As Long
   lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
   Dim rangeToSearch As Range
   Set rangeToSearch = ws.Range("J2:J" & lastRow)

   ' 강조할 셀 및 키워드 반복
   Dim cell As Range
   Dim keyword As Variant
   Dim startPos As Long
   Dim length As Long
   Dim searchPos As Long

   ' 각 키워드에 대해 J열의 모든 셀을 순회하며 강조
   For Each cell In rangeToSearch
       If Not IsEmpty(cell.Value) Then
           For Each keyword In keywords
               startPos = 1
               searchPos = InStr(startPos, cell.Value, keyword, vbTextCompare)

               ' 키워드가 발견될 때마다 강조
               Do While searchPos > 0
                   length = Len(keyword)

                   ' 키워드 부분만 굵게 설정 및 텍스트 색 변경
                   With cell.Characters(Start:=searchPos, Length:=length).Font
                       .Bold = True
                       .Color = RGB(0, 0, 255) ' 파란색 텍스트
                   End With

                   ' 다음 인스턴스를 찾기 위해 검색 위치를 업데이트
                   startPos = searchPos + length
                   searchPos = InStr(startPos, cell.Value, keyword, vbTextCompare)
               Loop
           Next keyword
       End If
   Next cell

End Sub