Excel'de birden çok çalışma sayfasına satır veya sütun eklemek/silmek için örnek makro

Özet

Bu makale, Microsoft Excel'de birden çok çalışma sayfasına satır veya sütun eklemek veya silmek için kullanabileceğiniz örnek bir Microsoft Visual Basic for Applications makrosu (Alt yordamı) içerir.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmeyeceklerdir. Birden çok çalışma sayfasında satır veya sütun eklemek veya silmek için ya gerekli tüm sayfalarda döngü yapmak üzere bir For Each...Next deyimi kullanın ya da ekleme veya silme işlemini gerçekleştirmeden önce satırları veya sütunları seçin.

Birden çok çalışma sayfasına satır eklemek için döngü kullanan örnek makro

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

Sütun seçmek ve yeni sütun eklemek için örnek makro

Aşağıdaki örnek makro, yeni sütunlar eklemeden önce sütunun tamamını seçer:

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