VBA 예제 ] VBA코드로 선택한 값이 특정값일 때 행전체 삭제

이번 포스팅은 VBA코드로 선택한 값중 특정 값이 있을 때 행전체를 삭제하는 코드를 알려드리고자 합니다.

 

저번 포스팅처럼 소스, 풀이 순으로 작성하겠습니다.

 

---

Sub 특정_행_전체삭제()

    Dim r

    For Each r In Selection
    
        If r = "목표" Then

            r.EntireRow.Delete
            
        End If
        
    Next r

End Sub

(소스만 필요하신 분은 위에 코드블럭을 이용해주세요.)

Sub 특정_행_전체삭제()

    Dim r

    For Each r In Selection //선택한 값들을 각각 하나하나씩 r에 저장한다.
    
        If r = "목표" Then // 현재 위차한 r 즉, 셀값이 목표인 경우를 찾는다.

            r.EntireRow.Delete // 셀값이 목표이면 행전체를 삭제한다.
            
        End If
        
    Next r

End Sub

---

 

매크로 실행 전

매크로 실행 후

 

 

 

 

 

 

 

VBA 예제 ] VBA코드로 선택한 값이 특정값일 때 행전체 삭제(2탄)

https://jfbta.tistory.com/68

VBA 예제 ] VBA코드로 선택한 값이 특정값일 때 행전체 삭제(2탄)