Excel에서 부분 행을 삽입하거나 삭제하는 방법은 무엇입니까?

Excel에서 전체 행을 삽입하거나 삭제하는 것은 쉽습니다. 하지만 워크시트에서 부분 행만 삽입하거나 삭제하려면 어떻게 해야 할까요? 이 문서는 이를 도와줄 것입니다.

삽입/삭제 셀 기능을 사용하여 부분 행 삽입 또는 삭제
VBA 코드를 사용하여 부분 행 삽입 또는 삭제

삽입/삭제 셀 기능을 사용하여 부분 행 삽입 또는 삭제

예를 들어, 5행에 세 개의 셀로 부분 행을 삽입하거나 삭제하려면 다음 단계를 따르세요.

부분 행 삽입

1. 5행에서 세 개의 셀을 선택한 후(선택된 셀 수는 삽입될 셀 수와 같아야 함), 홈 탭에서 삽입 > 셀 삽입을 클릭합니다. 스크린샷 보기:

2. 삽입 대화 상자에서 셀을 오른쪽으로 이동하거나 셀을 아래로 이동 옵션을 선택하고 확인 버튼을 클릭합니다.

그러면 아래 스크린샷과 같이 세 개의 셀이 있는 부분 행이 삽입됩니다.

부분 행 삭제

1. 삭제하려는 부분 행을 선택한 후, 홈 탭에서 삭제 > 셀 삭제를 클릭합니다.

2. 삭제 대화 상자에서 필요에 따라 셀을 왼쪽으로 이동하거나 셀을 위로 이동을 선택하고 확인 버튼을 클릭합니다. 스크린샷 보기:

그러면 선택한 부분 행이 삭제됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 부분 행 삽입 또는 삭제

다음 VBA 코드를 적용하여 Excel에서 부분 행을 삽입하거나 삭제할 수도 있습니다.

1. 부분 행을 삽입하려는 특정 행의 아무 셀이나 선택한 후 Alt + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 복사하여 코드 창에 붙여넣습니다.

VBA 코드: Excel에서 부분 행 삽입하기

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

참고: VBA 코드에서 숫자 1은 부분 행이 첫 번째 열부터 삽입됨을 의미하며, 숫자 3은 열 사이에 세 개의 셀이 삽입됨을 의미합니다. 필요에 따라 변경할 수 있습니다.

3. 코드를 실행하기 위해 F5 키를 누르면 Kutools for Excel 대화 상자가 나타나며, 필요한 행 수를 입력하고 확인 버튼을 클릭하세요.

상자에 3을 입력한 경우 확인 버튼을 클릭하면 지정된 위치에 세 개의 셀을 가진 세 개의 부분 행이 삽입됩니다.

부분 행을 삭제하려면 아래 VBA 코드를 실행할 수 있습니다.

VBA 코드: Excel에서 부분 행 삭제하기

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

코드를 실행한 후, 삭제하려는 부분 행의 수를 묻는 Kutools for Excel 대화 상자가 나타납니다. 숫자를 입력하고 확인 버튼을 클릭하세요. 그러면 지정된 부분 행이 즉시 삭제됩니다.