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

Excel에서 값이 변경 될 때 빈 행을 삽입하는 방법은 무엇입니까?

데이터 범위가 있고 이제 값이 변경 될 때 데이터 사이에 빈 행을 삽입하여 다음 스크린 샷과 같이 하나의 열에서 순차적으로 동일한 값을 분리 할 수 ​​있다고 가정합니다. 이 기사에서는이 문제를 해결할 수있는 몇 가지 트릭에 대해 설명합니다.

소계 함수로 값이 변경되면 빈 행 삽입

도우미 열로 값이 변경되면 빈 행 삽입

VBA 코드로 값이 변경되면 빈 행 삽입

강력한 기능으로 값이 변경 될 때 특정 수의 빈 행 삽입


소계 함수로 값이 변경되면 빈 행 삽입

와 더불어 소계 다음 단계에 따라 값이 변경 될 때 데이터 사이에 빈 행을 삽입 할 수 있습니다.

1. 사용할 데이터 범위를 선택하십시오.

2. 딸깍 하는 소리 데이터 > 소계 를 열려면 소계 대화 상자 및 소계 대화 상자에서 다음 옵션을 수행하십시오.

1: 값이 변경되는 시점을 기준으로 빈 행을 삽입 할 열 이름을 선택합니다. 변경 될 때마다 섹션에서;
2: 선택 카운트 인사말 사용 기능 드롭 다운 목록;
3: 부분합을 삽입 할 열 이름을 다음에 소계 추가 리스트 박스

3. 그런 다음 OK, 다른 제품 사이에 소계 선이 삽입되었으며 테이블 왼쪽에 개요 기호가 표시됩니다. 스크린 샷 참조 :

4. 그런 다음 외곽선 기호 맨 위에있는 숫자 2를 클릭하여 부분합 선만 표시합니다.

5. 그런 다음 소계 범위 데이터를 선택하고 Alt +; 보이는 행만 선택하는 단축키, 스크린 샷 참조 :

6. 보이는 행만 선택한 후 . 키를 누르고 모든 부분합 행이 제거되었습니다.

7. 그런 다음 다른 셀을 클릭하고 돌아가십시오. 데이터 > 그룹 해제 > 명확한 개요 윤곽선을 제거하려면 스크린 샷을 참조하십시오.

8. 개요 기호는 한 번에 지워졌으며 값이 변경되면 데이터 사이에 빈 행이 삽입 된 것을 볼 수 있습니다. 스크린 샷을 참조하십시오.

9. 마지막으로 필요에 따라 열 A를 삭제할 수 있습니다.


값이 빠르게 변경 될 때 페이지 나누기, 빈 행, 아래쪽 테두리 또는 채우기 색상 삽입

당신이 있으면 Excel 용 Kutools's 차이점 구별 기능을 사용하면 필요에 따라 값이 변경 될 때 페이지 나누기, 빈 행, 아래쪽 테두리 또는 채우기 색상을 빠르게 삽입 할 수 있습니다. 아래 데모를 참조하십시오.         Excel 용 Kutools를 다운로드하려면 클릭하십시오!


도우미 열로 값이 변경되면 빈 행 삽입

도우미 열을 사용하면 먼저 수식을 삽입 한 다음 찾기 및 바꾸기 함수는 마지막으로 변경되는 값 사이에 빈 행을 삽입합니다. 다음과 같이하십시오 :

1. 빈 셀 C3에 다음 수식을 입력하십시오. = A3 = A2, D4 셀에 다음 수식을 입력하십시오. = A4 = A3, 스크린 샷 참조 :

2. 그런 다음 C3 : D4를 선택하고 이러한 수식을 적용하려는 범위로 채우기 핸들을 드래그하면 참된 or 거짓 셀에서 스크린 샷을 참조하십시오.

3. 그런 다음 Ctrl + F 키를 눌러 찾기 및 바꾸기 대화 상자에서 튀어 나온 대화 상자에서 그릇된무엇을 찾기 아래 텍스트 상자 발견 탭을 클릭하고 옵션 중 버튼을 눌러이 대화 상자를 확장하고 마케팅은: 인사말 잠깐 들여다보다 드롭 다운 목록, 스크린 샷 참조 :

4. 모두 찾기 버튼을 누른 다음 Ctrl + 모든 검색 결과를 선택하려면 모든 FALSE 셀이 한 번에 선택되었습니다. 스크린 샷을 참조하십시오.

6. 닫기 찾기 및 바꾸기 대화 상자, 다음 단계에서 클릭하여 빈 행을 삽입 할 수 있습니다. > 끼워 넣다 > 시트 행 삽입, A 열을 기준으로 값이 변경 될 때 빈 행이 데이터에 삽입되었습니다. 스크린 샷을 참조하십시오.

7. 마지막으로 필요에 따라 도우미 열 C와 D를 삭제할 수 있습니다.


VBA 코드로 값이 변경되면 빈 행 삽입

위의 방법을 사용하는 데 지쳤다면 변경된 값 사이에 빈 행을 한 번에 삽입하는 데 도움이되는 코드도 있습니다.

1. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 값이 변경되면 빈 행 삽입

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 값이 변경 될 때 빈 행을 삽입 할 하나의 열 데이터를 선택할 수있는 프롬프트 상자가 나타납니다 (스크린 샷 참조).

4. 그런 다음 OK, A 열을 기준으로 값이 변경되면 데이터 사이에 빈 행이 삽입되었습니다.


강력한 기능으로 값이 변경 될 때 특정 수의 빈 행 삽입

위의 번거로운 방법으로 시도해 보시면 여기에서 유용한 도구를 소개하겠습니다. Excel 용 Kutools's 차이점 구별 셀 값이 빠르고 쉽게 변경 될 때 페이지 나누기, 빈 행, 아래쪽 테두리 또는 채우기 색상을 삽입 할 수 있습니다.

팁 :이것을 적용하려면 차이점 구별 먼저 기능을 다운로드해야합니다. Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴 > 형성 > 차이점 구별, 스크린 샷 참조 :

2. 에서 키 열로 차이점 구분 대화 상자에서 다음 작업을 수행하십시오.

  • 사용할 데이터 범위를 선택한 다음 빈 행을 삽입 할 키 열을 선택합니다.
  • 그런 다음 확인 빈 행 옵션에서 옵션 중 섹션을 클릭하고 삽입 할 빈 행 수를 입력합니다.

3. 그런 다음 Ok 버튼을 클릭하고 셀 값이 변경되면 특정 수의 빈 행이 데이터에 삽입되었습니다. 스크린 샷을 참조하십시오.

Excel 용 Kutools 및 무료 평가판을 지금 다운로드하려면 클릭하십시오!


최고의 사무 생산성 도구

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 하단
코멘트 (16)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
숫자 5,4,3,2 및 1(많은 수)이 있는 열이 있고 다음과 같이 5를 다른 것과 분리하고 싶습니다. 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 숫자는 내림차순이고 항상 20140716 아래에 8가 있으므로 시도했습니다. Sub InsertRowsAtValueChange() 'Update 2 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=1) Application.ScreenUpdating = False For i = WorkRng.Rows.Count를 1 Step -5 If WorkRng.Cells(i, 1)로 설정합니다. Value = 1 And WorkRng.Cells(i - 4, 1).Value = XNUMX Then WorkRng.Cells(i, XNUMX).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub 하지만 작동하지 않았습니다. 도와주세요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
공식은 잘 작동하지만 인식하지 못하는 몇 가지 예가 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다. 모든 곳을 보았고 이것이 일반 영어로도 작동하는 유일한 솔루션이었습니다. 다른 모든 Excel 자습서 웹 사이트는 당신이 한 방식으로 단계별로 분류하지 않았습니다. 대단히 감사합니다. 건배 : )
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
문제에 대한 여러 솔루션을 설명해주셔서 대단히 감사합니다. Visual Basic을 사용하고 [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] 빈 줄 대신 값이 변경되는 행 사이에 선을 그립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드에서 둘 이상의 행을 포함하도록 수정해야 하는 위치는 각 중단 후에 10을 추가해야 합니다. 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 여러분 감사합니다!! 굉장합니다. VBA 또는 Excel을 통해 값이 변경될 때 2개의 행을 삽입하는 방법도 알려주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 거의 유용합니다! 첫 번째 방법은 단계를 명시적으로 수행할 때 부분합 창에서 삭제한 데이터가 내가 정렬한 전체 열을 삭제하기 때문에 작동하지 않습니다. 두 번째 방법에서 시트 행을 삽입하는 단계에 도달하면 행이 데이터를 분할하는 FALSE 셀 위에 삽입되지만 모든 그룹의 마지막 선택 항목은 아래 그룹에 추가됩니다. 어떤 충고???
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용]안녕하세요 모두 감사합니다!! 굉장합니다. VBA 또는 Excel을 통해 값이 변경될 때 2개의 행을 삽입하는 방법도 알려주세요.허드슨[/인용] 1행 이상 삽입하는 방법을 알려주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 얼마 동안 내 자신의 솔루션을 사용해 왔습니다.
1. A열에 도우미 열 삽입
2. A2에 "if(B2=B1,A1,A1+1)"을 입력합니다.
3. 해당 수식을 마지막 행까지 복사합니다.
4. A 열의 채워진 모든 셀을 복사하고 그 위에 선택하여 붙여넣기(값)
5. 모든 셀을 다시 복사하여 채워지지 않은 첫 번째 셀의 A열에 붙여넣습니다(예: 데이터 행 104개와 머리글 행이 있는 경우 A106 셀에 붙여넣을 것).
6. 데이터 및 중복 제거를 클릭합니다(5단계에서 방금 붙여넣은 셀에만 해당, 모든 행에는 적용되지 않음)
7. A열 전체 정렬
8. A열 삭제

많은 단계처럼 보이지만 몇 초 밖에 걸리지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드는 처음으로 작동했고 내가 하려는 일을 정확히 수행했습니다. 정말 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
RE: vba 코드로 값이 변경될 때 빈 행 삽입
범위를 저장하고 실행할 때마다 선택하지 않아도 되는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
1개의 행을 삽입해야 하는 경우에 매우 유용하지만 spwcific 열의 데이터가 변경될 때마다 145개의 행을 삽입해야 하는 경우 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 하산입니다.
특정 열에서 값이 변경될 때 여러 개의 빈 행을 삽입하려면 다음 VBA 코드를 적용해야 합니다.

참고: 아래 코드에서 필요에 따라 숫자 99를 변경해야 합니다. 예를 들어 145개의 빈 행을 삽입할 때 숫자 99를 144로 변경해야 합니다. 시도해 보시고 도움이 되길 바랍니다!

하위 InsertRowsAtValueChange()
범위로 딤 Rng
Dim WorkRng As Range
오류에 대한 다음 재개
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection 설정
WorkRng 설정 = Application.InputBox("범위", xTitleId, WorkRng.Address, 유형:=8)
Application.ScreenUpdating = False
i = WorkRng.Rows.Count ~ 2단계 -1의 경우
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value 다음
범위(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).삽입
END IF
다음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 도움이 됩니다. 위의 skyyang이 보여주는 코드는 완벽하게 작동했습니다. 데이터에 이미 공백이 없는지 확인하십시오.

VBA를 이해하지 못하지만 이미 간격이 있는 데이터 아래에 더 많은 행을 추가하려면 공백을 무시하는 방법이 있어야 한다고 생각합니다.

빈 줄을 무시하거나 건너뛰기 위해 줄을 추가할 수 있습니까? 필요한 경우 이 코드를 보다 보편적이고 반복 가능하게 만들 수 있습니다. 또한 이와 유사한 삭제 기능이 유용할 수 있으므로 실행 취소가 필요하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 방법을 적용하여 빈 셀을 무시할 수 있습니까? 두 개의 다른 열을 기반으로 행을 삽입해야 하는 파일이 있지만 두 번째 열에서 매크로를 실행하면 첫 번째 매크로가 삽입된 행을 실행하는 세 개의 빈 행으로 끝납니다.
아니면 동시에 두 개의 열에서 실행할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 하산입니다.

이 vba는 놀라운 반면 시퀀싱 번호가 변경된 후 하나의 빈 행을 삽입하기 위한 대체 코드가 하나 더 필요합니다. 예:- 1, 2, 3, 5, 6, 9 등과 같은 숫자 계열이 있는 열에서...
3과 5, 6과 9 사이에 하나의 빈 행을 추가해야 합니다.
이것으로 당신을 할 수 있습니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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