Excel 열이 비어있을 때까지 행을 반복하는 방법은 무엇입니까?

여기에 빈 셀이 포함 된 데이터가있는 긴 열이 있으며 빈 셀을 만날 때까지 행을 반복하려고합니다. Excel에는이 작업을 처리 할 수있는 기본 제공 기능이 없지만 몇 가지 매크로를 소개해 드릴 수 있습니다.

VBA로 공백이 될 때까지 행을 반복합니다.

VBA로 공백이 될 때까지 행을 반복합니다.

1. 프레스 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈을 클릭하고 코드 아래 빈 스크립트에 붙여 넣습니다.

VBA : 공백이 될 때까지 반복

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

코드에서 A1은 루프하려는 첫 번째 셀이며 필요에 따라 변경할 수 있습니다.

3. 프레스 F5 키를 눌러 열 루프를 시작하면 커서가 처음 만난 빈 셀에서 멈 춥니 다.

주의 사항: 연속 된 빈 셀을 만날 때까지 데이터를 반복하려면이 매크로 코드를 사용할 수 있습니다.

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

그런 다음 반복 할 첫 번째 셀을 선택해야합니다. Excel 용 Kutools 대화 상자에서 OK, 커서가 첫 번째 연속 된 빈 셀에서 중지됩니다.

여러 시트 / 통합 문서를 하나의 단일 시트 또는 통합 문서로 쉽게 결합

여러 시트 또는 통합 문서를 하나의 시트 또는 통합 문서로 결합하는 것은 Excel에서 지루할 수 있지만 결합 Excel 용 Kutools의 기능을 사용하면 수십 개의 시트 / 통합 문서를 하나의 시트 또는 통합 문서로 병합 할 수 있으며 몇 번의 클릭만으로 시트를 하나로 통합 할 수 있습니다.  모든 기능을 갖춘 30일 무료 평가판을 보려면 클릭하십시오!

Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다.

최고의 사무 생산성 도구

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

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

자세히보기 ... 무료 다운로드... 매수... 

---

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

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성이 50% 증가하고 매일 수백 번의 마우스 클릭이 줄어듭니다!

자세히보기 ... 무료 다운로드... 매수...