Excel에서 다른 행 또는 모든 nth 행을 삭제하는 방법

이 튜토리얼은 Microsoft Excel에서 다른 행 또는 Nth 행을 효율적으로 삭제하는 방법을 보여줍니다. 필터링과 VBA 코드의 두 가지 방법을 다룰 것입니다.

특정 행을 제거하는 것이 필요한 많은 시나리오가 있습니다. 예를 들어, 홀수 주간 데이터를 별도의 시트로 전송하는 동안 균일 한 주부터 데이터를 유지해야 할 수도 있습니다. 프로세스의 핵심은 대상 행을 선택한 다음 삭제하는 것입니다.

행동 양식:

• 필터링을 통해 다른 행을 삭제합니다
• VBA로 대체 행을 삭제합니다
• 모든 n 번째 행 삭제

방법 1 : 필터링을 사용하여 다른 행을 삭제합니다

이 방법은 헬퍼 열과 Excel의 필터링 기능을 사용합니다.

1. 헬퍼 칼럼 : 데이터 옆에 새 열을 추가하십시오. 이 열의 첫 번째 셀에서 =MOD(ROW(),2) 입력하고 아래로 드래그하십시오. 이 공식은 짝수 행에 대해 0, 홀수 행의 경우 1을 반환합니다.

   

2. 필터링 : 필터를 도우미 열에 바르십시오 (데이터> 정렬 및 필터> 필터). 0 (짝수 행을 삭제하려면) 또는 1 (홀수 행을 삭제하려면)을 선택하십시오.

   

3. 삭제 : 가시 행 (필터 기준과 일치하는 행)을 선택하고 마우스 오른쪽 버튼을 클릭 한 다음 "행 삭제"를 선택하십시오.

   

4. 필터 제거 : 필터를 끄십시오 (필터 버튼을 다시 클릭하십시오). 도우미 열을 삭제하십시오.

   

   워크 시트에는 이제 보관하고 싶은 행 만 포함되어 있습니다.

   

팁 : 행을 삭제하는 대신 행을 이동 하려면 필터링 행을 삭제하기 전에 필터링 행을 복사하여 새 위치에 붙여 넣습니다.

방법 2 : VBA로 대체 행을 삭제합니다

이 VBA 매크로는 프로세스를 자동화합니다.

 sub delete_alternate_rows_excel ()
  범위로 희미한 소스 세포
  sourcerange = application.selection을 설정합니다
  SET SONCERANGE = Application.Inputbox ( "범위 :", "범위 선택", sourcerange.address, type : = 8)
  worncerange.rows.count> = 2 인 경우
    Dim FirstCell은 범위로
    정수로 Dim Rowindex
    application.screenupdating = false
    rowindex = sourcerange.rows.count- (sourcerange.rows.count mod 2) ~ 1 단계 -2
      set firstCell = sourcerange.cells (RowIndex, 1)
      FirstCell.Entirerow.delete
    다음
    application.screenupdating = true
  끝 If
종료 서브

1. VBA 편집기 (Alt F11)를 엽니 다.

2. 모듈 삽입 (삽입> 모듈).

3. 코드를 모듈에 붙여 넣습니다.

4. 매크로 (F5)를 실행하십시오.

5. 프롬프트가 표시되면 데이터 범위를 선택하십시오.

   

   매크로는 선택한 범위의 다른 행을 삭제합니다.

   

방법 3 : 모든 n 번째 행 삭제

이것은 필터링 방법에서 확장됩니다. 이 공식을 도우미 열에서 사용하십시오.

=MOD(ROW() - *m*, *n*)

어디:

• m 첫 번째 데이터 행에서 1 행의 행 번호입니다.
• n 삭제할 n 번째 행입니다.

예를 들어, 행 2에서 시작하여 3 번째 행을 삭제하려면 =MOD(ROW()-1,3) . 그런 다음 0을 필터링하고 가시 행을 삭제하십시오.

이를 통해 Nth Row를 효율적으로 삭제할 수 있습니다. 시작 행을 기준으로 m 조정해야합니다.

위 내용은 Excel에서 다른 행 또는 모든 nth 행을 삭제하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!