특정 열에서 찾은 특정 텍스트를 기반으로 모든 행을 삭제하기 위해 VBA 코드를 진지하게 찾고 있다면이 기사가 적합합니다. 이 기사에서는 특정 텍스트가 열에있는 경우 행을 삭제하는 방법에 대해 알아 봅니다.

질문) : B 열에 “제품 B”가있는 행만 필요한 파일이 있습니다. 다른 모든 항목을 삭제하고 싶습니다. 누군가 매크로 작성을 도와 주시겠습니까? 다음은 우리가 가지고있는 데이터의 스냅 샷입니다.

img1

아래 단계를 따라야합니다.

개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오

img2

===

표준 모듈에 다음 코드를 입력하십시오.

하위 DeleteRow ()

Sheet1.Cells (1) .CurrentRegion.Columns (2) 사용

EntireRow.Delete End With End Sub

img3

코드 설명 :

1 단계) 위 코드는 2 열에서 현재 지역을 선택합니다.

제품 열 2 단계) 필터 적용

img4

3 단계) 보이는 셀이 전체 행과 함께 삭제됩니다. 코드를 삭제하십시오.

나머지 데이터 즉, B 열에 제품 B가있는 위치가 출력됩니다.

img5

이런 식으로 VBA 코드를 사용하여 특정 조건을 충족하는 행을 삭제할 수 있습니다.

image 19