<17 특정 색상이 칠해진 여러 셀 선택하기>

<17 특정 색상이 칠해진 여러 셀 선택하기> 
   Dim rng As Range, cf As Range, uni As Range 
   Dim adr As String 
    
   Application.FindFormat.Clear 
   Application.FindFormat.Interior.ColorIndex = 6 
    
   Set rng = Columns("a").SpecialCells(2) 
   Set cf = rng.Find("*", searchformat:=True) 
    
   If cf Is Nothing = 0 Then 
      adr = cf.Address 
      Do 
         If uni Is Nothing Then 
            Set uni = cf 
         Else 
            Set uni = Union(uni, cf) 
         End If 
          
         Set cf = rng.Find("*", after:=cf, searchformat:=True) 
      Loop While cf.Address <> adr 
   End If 

   If uni Is Nothing = 0 Then uni.Select 

   Application.FindFormat.Clear

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]