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

이번 포스팅은 3탄에서 작성했던 코드에서 선택하기가 귀찮을 때 선택해주는 코드를 추가하였습니다.

2탄에서 닉네임 'QWE'님의 질문으로 게시글을 작성하게 되었습니다.

Sub 특정_행_전체삭제_업그레이드_Ver()

	ActiveSheet.Columns(1).Select //추가된 코드
    
    For i = 0 To Selection.Rows.Count - 1 // 0 ~ (선택한 행 개수 - 1)만큼 반복
        
        If ActiveCell.Offset(i, 0).Value <> "" Then // 공백인 경우 함수를 종료
        
            If ActiveCell.Offset(i, 0).Value = "목표" Then // 목표인 경우
            
                ActiveCell.Offset(i, 0).EntireRow.Delete //행 삭제
                
                i = i - 1 // 행을 삭제했으니 다시 원래 위치로 돌아감
                
            End If
            
        Else
        
            Exit For
            
        End If
        
    
    Next i
    

End Sub

※ 코드 설명

 - 'ActiveSheet.Columns(1).Select'

   : 열을 선택해주는 코드

 

 

 

A열을 선택하지 않은 상태에서

 

위 예제소스로 작성한 함수를 실행한다.

 

자동으로 A열이 선택이 되면서 '목표'가 전부 제거된다.