Excel 'de birden çok sayfaya satır veya sütun ekleme/silme örneği

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Özet

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

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ğinin açıklanmasına yardımcı olabilir. Bununla birlikte, belirli gereksinimlerinizi karşılayacak ek işlevler veya yordamlar oluşturmak için bu örnekleri değiştirmeyecektir. Birden çok sayfaya satır veya sütun eklemek veya silmek için, her biri Için bir Için kullanın... Sonraki ifadede, ekleme veya silme işlemini gerçekleştirmeden önce tüm gerekli sayfalarda döngü veya satırları veya sütunları seçin.

Not

Aşağıdaki örnek makrolar yalnızca bitişik bir sütun veya satır aralığında çalışır.

Birden çok sayfaya satır eklemek için döngü kullanan makro örneği

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ütunu seçmek ve yeni sütun eklemek için makro örneği

Aşağıdaki makro örneği, yeni sütunlar eklemeden önce tüm sütunu 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