Excel'de tablonun altına satır eklemek için makro nasıl kullanılır?

Tabloyu genişletmek ve yeni içerik eklemek için belirli bir tablonun altına boş satırlar eklememiz yaygındır. Bu makale, belirtilen bir tablonun altına yeni bir satır eklemek ve yukarıdaki hücrenin formülünü Excel'de tutmak için bir makro kullanmaktan bahsediyor.

Excel'de tablonun altına satır eklemek için makroyu kullanın

Excel'de tablonun altına satır eklemek için makroyu kullanın

Makro içeren belirli bir tablonun altına boş bir satır eklemek için lütfen aşağıdaki işlemleri yapın.

1. Tuşuna basın. Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül Modül penceresini açmak için. Ardından aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA kodu: belirtilen bir tablonun altına boş bir satır eklemek için makroyu kullanın

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ve bir Kutools for Excel iletişim kutusu açılır, lütfen aşağıya boş bir satır ekleyeceğiniz belirli tablo aralığını seçin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, belirtilen tablonun altına yeni bir boş satır eklendiğini görebilirsiniz. Ve yukarıdaki hücredeki formül de yeni eklenen satırda aşağıda gösterilen ekran görüntüsüne bakın: