Bagaimana cara menggunakan makro untuk menyisipkan baris di bawah tabel di Excel dengan rumus yang dipertahankan?

Kami biasa menambahkan baris kosong di bagian bawah tabel tertentu untuk memperluas tabel dan menambahkan konten baru. Artikel ini berbicara tentang menggunakan makro untuk menyisipkan baris baru di bawah tabel yang ditentukan dan menyimpan rumus sel di atas di Excel.

Gunakan makro untuk menyisipkan baris di bawah tabel di Excel

Gunakan makro untuk menyisipkan baris di bawah tabel di Excel

Harap lakukan hal berikut untuk menyisipkan baris kosong di bawah tabel yang ditentukan dengan makro.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul untuk membuka jendela Module. Kemudian salin dan tempel kode VBA di bawah ini ke jendela.

Kode VBA: gunakan makro untuk memasukkan baris kosong di bawah tabel yang ditentukan

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. tekan F5 kunci untuk menjalankan kode. Dan a Kutools untuk Excel kotak dialog muncul, pilih rentang tabel tertentu yang akan Anda tambahkan baris kosong di bawah ini, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian Anda dapat melihat baris kosong baru ditambahkan di bagian bawah tabel yang ditentukan. Dan rumus di sel di atas juga dicadangkan di baris yang baru dimasukkan seperti di bawah ini lihat gambar yang ditampilkan: