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