Note: The other languages of the website are Google-translated. Back to English

Excel에서 활성 셀 위의 행이나 특정 텍스트를 삭제하는 방법은 무엇입니까?

여러 행이있는 거대한 워크 시트가 있고 활성 셀 위의 모든 행이나 특정 텍스트를 삭제하려는 경우 어떻게 처리 할 수 ​​있습니까? 행을 선택하여 삭제 한 다음 마우스 오른쪽 버튼을 클릭하여 상황에 맞는 메뉴에서 수동으로 삭제를 선택할 수 있습니다. 그러나 여기에는 VBA 코드가 있습니다. 위의 행을 빠르게 삭제하려면 관심이 있으시면 아래 세부 정보를 읽으십시오.

VBA 코드로 위의 행 삭제


화살표 블루 오른쪽 거품 VBA 코드로 위의 행 삭제

여기서는 두 개의 VBA 코드를 소개합니다. 하나는 활성 (선택된 셀) 위의 행을 삭제하고 다른 하나는 지정된 텍스트 위의 행을 제거하는 것입니다.

1. 그 위의 행을 삭제할 셀을 선택하고 Alt + F11 여는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈, 코드 아래에 붙여 넣으십시오. 모듈 스크립트.

VBA : 활성 셀 위의 행 삭제

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

 

문서 삭제 1 위의 행

3. 프레스 F5 키를 누르면 활성 셀 위의 행이 제거되었습니다. 스크린 샷보기 :
문서 삭제 2 위의 행

지정된 텍스트 위의 행을 삭제하려면 아래 VBA를 사용할 수 있습니다.

VBA : 지정된 텍스트 위의 행 삭제

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

문서 삭제 3 위의 행

참고 :

1. 코드에서 총 그룹 찾고자하는 텍스트이므로 필요에 따라 변경할 수 있습니다.

2. 찾은 텍스트가 이미 첫 번째 행에있는 경우이를 알리는 대화 상자가 나타납니다.
문서 삭제 4 위의 행

3. 찾은 텍스트가 시트에없는 경우 아래와 같은 스크린 샷과 같은 대화 상자가 나타나이를 알려줍니다.
문서 삭제 5 위의 행

 

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호