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