[땡큐엑셀vba & 엑셀매크로] 바탕색이 같은 셀값 추출

 

 

 

 

 

 

 

 

' Source by 땡큐엑셀vba & 엑셀매크로
' 바탕색이 같은 셀 추출
'
Sub 같은바탕색추출()

    Dim 범위 As Range
    Dim 바탕색 As Range
    Dim k As Integer
    

    
    'G2부터 맨끝까지 Clear
    Range("G2:G" & Rows.Count).Clear
    
    
    '범위입력
    Set 범위 = Application.InputBox("범위를 지정하세요", "범위지정", , , , , , 8)
    '바탕색 입력
    Set 바탕색 = Application.InputBox("추출할 바탕색셀을 지정하세요", "바탕색", , , , , , 8)
    
    '화면갱신 중지
    Application.ScreenUpdating = False
    
    '범위의 셀 하나하나씩 꺼내어
    '바탕색이 같은지 비교하여
    '아래에 복사
    For Each R In 범위
    
        If R.Interior.Color = 바탕색.Interior.Color Then
            k = k + 1
            
            '지정한 바탕색셀(기준) 밑으로 출력
            R.Copy Destination:=바탕색.Offset(k, 0)
        End If
        
    Next
    
    '화면갱신 재개
    Application.ScreenUpdating = True


    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
 
End Sub

바탕색이 같은 셀값 추출하기-땡큐엑셀vba.xlsm

0.10MB