Excel에서 셀 값에 따라 행을 자동으로 삽입하는 방법은 무엇입니까?

특정 데이터 범위가 있고, Excel에서 특정 값 위 또는 아래에 빈 행을 자동으로 삽입하려고 한다고 가정해 보겠습니다. 예를 들어, 아래 스크린샷과 같이 0보다 작은 값 아래에 행을 자동으로 삽입하고 싶다고 해 봅시다. Excel에는 이 작업을 해결할 수 있는 직접적인 방법이 없지만, 특정 값에 따라 행을 자동으로 삽입하는 매크로 코드를 소개해 드리겠습니다.
VBA를 사용하여 셀 값에 따라 행 아래에 삽입하기

Kutools for Excel을 사용하여 셀 값에 따라 행 위에 삽입하기

VBA를 사용하여 셀 값에 따라 행 아래에 삽입하기

VBA를 실행하여 셀 값에 따라 행을 삽입하려면, 아래 단계를 따르세요:

1. Alt + F11 키를 동시에 누르면 Microsoft Visual Basic for Applications 창이 나타납니다.

2. Insert > Module을 클릭한 다음, 나타나는 Module 창에 아래 VBA 코드를 붙여넣습니다.

VBA: 셀 값에 따라 행 아래에 삽입하기.

Sub BlankLine()
	'Updateby20150203
	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)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. 클릭하세요 F5 키 또는 Run 버튼을 누르면 대화 상자가 나타나며, 0 값을 포함하는 열을 선택합니다. 스크린샷 참조:

4. 클릭하세요 OK그러면 0 값 아래에 빈 행이 삽입됩니다.

팁:

1. 다른 값에 따라 행을 삽입하려면, VBA 코드의 If Rng.Value = "0" Then 부분에서 0을 원하는 값으로 변경할 수 있습니다.

2. 0 또는 다른 값 위에 행을 삽입하려면, 아래 VBA 코드를 사용할 수 있습니다.

VBA: 0 값 위에 행 삽입하기:

Sub BlankLine()
	'Updateby20150203
	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)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

Kutools for Excel을 사용하여 셀 값에 따라 행 위에 삽입하기

VBA에 익숙하지 않다면, Kutools for Excel의 특정 셀 선택 기능을 사용한 후, 행을 삽입할 수 있습니다.

Kutools for Excel 설치 후, 아래 단계를 따르세요:

1. 특정 셀을 찾고자 하는 리스트를 선택하고, Kutools > 선택 > 특정 셀 선택을 클릭합니다. 스크린샷 참조:

2. 나타나는 대화 상자에서 전체 행 옵션을 체크하고, 그 다음 동일 을 지정 유형 목록에서 선택한 후, 오른쪽 텍스트 박스에 찾고자 하는 값을 입력합니다. 스크린샷 참조:

3. 확인을 클릭하면 선택된 행의 개수를 알려주는 대화 상자가 나타납니다. 그냥 닫아주세요.

4. 선택된 행 중 하나에 커서를 두고 마우스 오른쪽 버튼을 클릭하여 삽입 을 선택합니다. 스크린샷 참조:

이제 특정 값에 따라 행이 위에 삽입되었습니다.

셀 값에 따라 위에 행 삽입하기

관련 기사:

• Excel에서 빈 행 삽입하기