Excel에서 여러 시트에 행 또는 열을 삽입/삭제하는 예제 매크로

요약

이 문서에는 Microsoft Excel의 여러 워크시트에서 행 또는 열을 삽입하거나 삭제하는 데 사용할 수 있는 Microsoft Visual Basic for Applications 매크로(하위 프로시저) 샘플이 포함되어 있습니다.

추가 정보

Microsoft는 예시 목적으로만 프로그래밍 예제를 제공하며, 명시적이든 묵시적이든 어떠한 보증도 하지 않습니다. 이는 상품성이나 특정 목적에 대한 적합성의 묵시적인 보증을 포함하며 이에 제한되지 않습니다. 이 문서에서는 예제에 사용되고 있는 프로그래밍 언어와 프로시저를 만들고 디버깅하는 데 사용되는 도구를 사용자가 잘 알고 있는 것으로 가정합니다. Microsoft 지원 엔지니어는 특정 절차의 기능을 설명하는 데 도움을 줄 수 있습니다. 사용자의 특정 요구 사항에 맞도록 예제를 수정하여 추가 기능을 제공하거나 프로시저를 구성하지는 않습니다. 여러 시트에 행 또는 열을 삽입하거나 삭제하려면 For Each...를 사용합니다. 다음 문은 모든 필수 시트를 반복하거나 삽입 또는 삭제를 수행하기 전에 행 또는 열을 선택합니다.

비고

다음 샘플 매크로는 연속된 열 또는 행 범위에서만 작동합니다.

루프를 사용하여 여러 시트에 행을 삽입하는 샘플 매크로

Sub Insert_Rows_Loop()
     Dim CurrentSheet As Object

     ' Loop through all selected sheets.
     For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 5 rows at top of each sheet.
        CurrentSheet.Range("a1:a5").EntireRow.Insert
     Next CurrentSheet
End Sub

열을 선택하고 새 열을 삽입하는 샘플 매크로

다음 샘플 매크로는 새 열을 삽입하기 전에 전체 열을 선택합니다.

Sub Select_Insert_Column()
    Dim MyRange as Object
    ' Store the selected range in a variable.
    Set MyRange = Selection
    ' Select the entire column.
    Selection.EntireColumn.Select
    ' Insert Columns in all selected sheets.
    Selection.Insert
    ' Reselect the previously selected cells.
    MyRange.Select
End Sub