Jika Anda bekerja dengan Microsoft Excel untuk sementara waktu, Anda tahu pentingnya AutoFill. Untuk menyalin rumus di seluruh baris atau kolom, kami menggunakan metode ini. Sekarang, kita dapat menggunakan ini secara manual dengan mouse. Tetapi, jika Anda memiliki baris besar dengan data, akan sulit untuk menyalin rumus apa pun ke baris atau kolom terakhir. Anda dapat menggunakan kode VBA untuk Mengisi otomatis rumus ke baris atau kolom terakhir denganmudah.

Dalam tutorial ini, Anda akan belajar MengisiOtomatis rumus ke baris terakhir di Excel menggunakan kode VBA. Tutorial ini akan tepat sasaran dengan contoh yang sesuai dan ilustrasi yang tepat. Jadi, tetaplah bersama kami.

Unduh Buku Kerja Praktik

Formula IsiOtomatis ke Baris Terakhir.xlsm

Apa itu IsiOtomatis di Excel?

Sekarang, IsiOtomatis adalah fitur bawaan Microsoft Excel yang memungkinkan pengguna untuk secara otomatis mengisi sisa baris atau kolom dengan nilai, format, atau rumus. Anda dapat mengidentifikasinya saat Anda mengarahkan kursor ke sudut kanan bawah sel mana pun. Kami menyebutnya penangan IsiOtomatis Excel.

Lihatlah tangkapan layar berikut ini:

Di sini, Anda bisa melihat dua angka. Kami akan mengisi sisa baris menggunakan autofill di Excel.

Pertama, pilih rentang sel B5: B6. Setelah itu, Anda akan melihat pegangan IsiOtomatis di sudut kanan bawah.

Sekarang, seret gagang IsiOtomatis ini ke bawah.

Seperti yang Anda lihat, Excel secara otomatis mengisi sisa sel. Ini adalah penggunaan dasar dari isi otomatis di Excel.

Cara Menggunakan IsiOtomatis dengan Excel VBA

Jika Anda memiliki banyak baris atau kolom dalam rentang tertentu, Anda harus menyeret gagang IsiOtomatis ke baris atau kolom terakhir. Ini adalah proses yang sangat sibuk. Syukurlah Anda dapat meminimalkannya menggunakan kode VBA di Excel. Anda dapat menggunakan kode VBA untuk mengisi otomatis sel dengan nilai, rumus, atau format.

Sintaksis Generik:

Range.AutoFill Destination, Tipe

Di sini,

Rentang ("B5"): Sel yang memiliki pola utama untuk mengisi sisa rangkaian.

Tujuan: Rentang sel tempat Anda ingin mengisi dengan rangkaian pola.

Ketik sebagai xlAutoFillType: Jenis isian seri. Ada berbagai jenis isian otomatis yang bisa Anda pilih.

Baca selengkapnya: Cara Menggunakan IsiOtomatis VBA di Excel

4 Jenis IsiOtomatis di Excel VBA

Di bagian ini, saya akan membahas beberapa jenis autofill. Kita sudah melihat bahwa kita bisa memilih jenis autofill apa pun dengan menggunakan perintah xlJenis IsiOtomatis. Di sini, saya tunjukkan beberapa contohnya.

1. xlFillDefault

Kita sudah melihat jenis pengisian otomatis ini dalam contoh sebelumnya.

Lihatlah tangkapan layar:

Ketikkan kode VBA berikut untuk mengisi otomatis sisa sel:

 Sub xlDefault_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillDefault End Sub 

Sekarang, jalankan makro VBA dan setelah itu, Anda akan melihat yang berikut ini:

Secara otomatis mengisi sisa sel menggunakan makro VBA.

2. xlFillCopy

Untuk menyalin nilai yang sama, Anda bisa menggunakan tipe xlFillCopy dalam jenis isi otomatis.

Lihatlah tangkapan layar:

Ketikkan kode VBA berikut untuk mengisi otomatis sisa sel:

 Sub xlFillCopy_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillCopy End Sub 

Sekarang, jalankan makro VBA dan setelah itu, Anda akan melihat yang berikut ini:

Excel mengisi sel lainnya dengan pola nilai yang sama.

3. xlFillMonths

Anda juga bisa mengisi bulan dengan menggunakan xlFillMonths jenis isi otomatis.

Lihatlah tangkapan layar:

Di sini, kita telah memasuki dua bulan Januari dan Februari.

Ketikkan kode VBA berikut untuk mengisi otomatis sisa sel:

 Sub xlFillMonths_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillMonths End Sub 

Sekarang, jalankan makro VBA dan setelah itu, Anda akan melihat yang berikut ini:

Excel secara otomatis memahami pola-pola dan mengisinya dengan pola-pola tersebut.

4. xlFillFormats

Anda juga dapat menyalin format ke sel lain menggunakan autofill VBA. Untuk itu, Anda harus menggunakan perintah xlFillFormats jenis isi otomatis.

Lihatlah tangkapan layar:

Di sini, kita telah mengisi kedua sel dengan beberapa warna.

Sekarang, ketikkan kode VBA berikut untuk mengisi otomatis sisa sel:

 Sub xlFillFormats_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillFormats End Sub 

Sekarang, jalankan makro VBA dan setelah itu, Anda akan melihat yang berikut ini:

Seperti yang bisa Anda lihat, makro VBA kita menggunakan autofill untuk mengisi baris kolom B secara efektif.

Baca selengkapnya: Cara Mengisi Otomatis Bulan di Excel

5 Contoh dengan Rumus IsiOtomatis ke Baris Terakhir di Excel VBA

1. VBA untuk Mengisi Otomatis Formula ke Baris Terakhir yang Digunakan

Demikian pula, Anda dapat mengisi otomatis rumus menggunakan VBA. jika Anda telah membaca bagian sebelumnya, Anda dapat dengan mudah melakukan ini. Masalah muncul ketika Anda harus mengisi rumus secara otomatis ke baris terakhir. Anda harus mengidentifikasi baris terakhir yang digunakan terlebih dahulu. Setelah itu, kode VBA akan mengisinya secara otomatis.

Lihatlah dataset berikut ini:

Di sini, kami memiliki kumpulan data penjualan dari beberapa tenaga penjual. Tujuan kami adalah menambahkan penjualan bulan Januari dan Februari ke kolom Total. Setelah itu, kami akan menggunakan metode IsiOtomatis menggunakan VBA ke baris terakhir yang digunakan di Excel.

Untuk mengeksekusi ini, ketikkan kode berikut:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Ini mengembalikan baris terakhir yang digunakan dari kolom B. Anda dapat memilih kolom apa pun dari dataset Anda.

Range("E5").Formula = "=SUM(C5:D5)": Kami menambahkan penjualan Sel C5 dan D5.

Range("E5").AutoFill Destination:=Range("E5:E" & last_row): Setelah mendapatkan hasilnya, kita menggunakan autofill. Ini mulai mengisi otomatis dari Sel E5 ke baris terakhir yang digunakan yang kita dapatkan sebelumnya.

Sekarang, jalankan makro VBA. Setelah itu, Anda akan melihat output berikut:

Seperti yang Anda lihat, kode VBA kami menambahkan hasil pertama dan mengisi otomatis rumus ke baris terakhir di Excel.

Baca selengkapnya: Cara Mengisi Baris Terakhir dengan Data di Excel

2. VBA IsiOtomatis dari ActiveCell ke Baris Terakhir

Sekarang, jika Anda tidak ingin menggunakan rentang tertentu dalam metode IsiOtomatis, Anda dapat menggunakan nilai, rumus, atau format sel aktif. Saat Anda mengklik sel dan ingin mengisi otomatis sisa baris dengan rumus sel aktif, gunakan metode ini.

Ini mirip dengan contoh sebelumnya. Kita menggunakan dataset sebelumnya:

Sekarang, kami akan menambahkan penjualan Januari dan Februari dan mengisi otomatis rumus ke baris terakhir menggunakan Excel VBA.

Sekarang, ketikkan kode berikut ini:

 Sub autofill_active_cell() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row ActiveCell.Formula = "=SUM(C5:D5)" ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row) End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Ini mengembalikan baris terakhir yang digunakan dari kolom B. Anda dapat memilih kolom apa pun dari dataset Anda.

ActiveCell.Formula = "=SUM(C5:D5)": Kami menambahkan penjualan Sel C5 dan D5 di sel yang Anda pilih.

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row): Setelah mendapatkan hasilnya, kita gunakan autofillnya. Ia mulai mengisi otomatis dari cell aktif ke baris terakhir yang digunakan yang kita dapatkan sebelumnya.

Sekarang, pilih Sel E5 .

Setelah itu, jalankan makro VBA untuk menambahkan rumus dan isi otomatis ke baris terakhir.

Seperti yang Anda lihat, kami berhasil menggunakan makro VBA untuk mengisi otomatis rumus ke baris terakhir.

Bacaan Serupa

• Cara Mengulangi Baris Beberapa Kali Tertentu di Excel (4 Cara)
• Nomor Baris Secara Otomatis di Excel (8 Metode)
• Cara Mengisi Kolom di Excel dengan Nilai yang Sama (9 Trik)
• Terapkan Pintasan IsiOtomatis di Excel (7 Metode)

3. IsiOtomatis ke Baris Terakhir Menggunakan Rentang Dinamis dengan Excel VBA

Sebelumnya kami menunjukkan beberapa makro VBA untuk mengisi otomatis ke baris terakhir di Excel. Sekarang, dalam contoh tersebut, kami sudah menggunakan rentang dinamis.

Untuk memahami rentang statis, lihatlah kode berikut ini:

 Sub last_used_row() Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E11") End Sub 

Pada dasarnya, kita menyuruh Excel untuk memasukkan formula di Sel E5 dan mengisinya secara otomatis dari Sel E5 untuk Sel E11 Bagaimana jika Anda menambahkan lebih banyak baris? Dalam hal ini, VBA kita tidak akan mengisi otomatis baris-baris tambahan tersebut karena kita sudah memerintahkannya untuk mengisi otomatis rentang tertentu.

Untuk mengatasi masalah ini, saya menemukan solusi yang dapat mengambil rentang dinamis:

 Sub last_used_row() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("E5").Formula = "=SUM(C5:D5)" Range("E5").AutoFill Destination:=Range("E5:E" & last_row) End Sub 

Seperti yang bisa Anda lihat, pertama-tama kita menemukan baris terakhir dengan baris kode ini:

 last_row = Cells(Rows.Count, 2).End(xlUp).Row 

Setelah itu, kami mengisi otomatis ke baris terakhir menggunakan rentang dinamis:

 Range("E5").AutoFill Destination:=Range("E5:E" & last_row) 

Tidak peduli berapa banyak baris yang Anda tambahkan ke kumpulan data Anda, kode VBA ini akan berhasil mengidentifikasinya. Dan itu akan mengisinya secara otomatis dengan rumus.

Rentang dinamis pada dasarnya berarti Anda tidak perlu memasukkan rentang secara manual. Excel akan memperbaruinya dari waktu ke waktu.

Baca selengkapnya: Excel VBA: Metode IsiOtomatis Kelas Rentang Gagal

4. IsiOtomatis ke Kolom Terakhir di Excel Menggunakan VBA

Jika Anda telah membaca bagian sebelumnya untuk mengisi otomatis ke baris terakhir, maka Anda dapat mengisi otomatis ke kolom terakhir dengan mudah. Anda hanya perlu menemukan nomor kolom terakhir dan mengisinya secara otomatis dengan Excel VBA.

Lihatlah dataset berikut ini:

Di sini, kami memiliki kumpulan data yang mewakili anggaran 3 bulan seseorang. Sekarang, kami akan menambahkan pengeluaran semua bulan dan mengisi otomatis rumus ke kolom terakhir menggunakan Excel VBA.

Sekarang, ketikkan kode berikut ini:

 Sub Sub last_used_column() Dim last_row As Long last_column = Cells(6, Columns.Count).End(xlToLeft).Column Range("D9").Formula = "=SUM(D6:D8)" Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)) End Sub 

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: Ini mengembalikan kolom yang terakhir digunakan dari baris 6. Anda dapat memilih baris mana saja untuk memulai dari dataset Anda.

Range("D9").Formula = "=SUM(D6:D8)": Kami menambahkan biaya tiga bulan (Januari, Februari, Maret).

Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)): Setelah mendapatkan hasilnya, kita gunakan autofill. Di sini, baris utama kita adalah baris nomor 9. Semua data kita akan berada di baris ini. Ini mulai mengisi otomatis dari kolom D ke kolom terakhir yang digunakan yang kita dapatkan sebelumnya oleh last_column .

Setelah menjalankan makro, Anda akan melihat output berikut ini:

Seperti yang Anda lihat, kami berhasil menggunakan VBA untuk mengisi otomatis rumus ke kolom terakhir di Excel.

Baca selengkapnya: Cara Mengisi Otomatis Kolom di Excel

5. Isi Otomatis Nomor Berurutan ke Baris Terakhir di Excel Menggunakan VBA

Anda juga dapat mengisi otomatis nomor urut menggunakan autofill di VBA. Di sini, Anda harus menggunakan xlFillSeries Excel akan memahami pola dan mengisinya dengan itu.

Lihatlah tangkapan layar berikut ini:

Di sini, kita memiliki beberapa nama. Dan kita ingin memberi mereka ID secara berurutan. Untuk melakukan ini, kita akan menggunakan VBA autofill.

Nomor Urut IsiOtomatis dengan Rentang Statis:

 Sub sequential_number_2() Range("C5").AutoFill Destination:=Range("C5:C11"), Type:=xlFillSeries End Sub 

Setelah Menjalankan kode, Anda akan melihat outputnya:

Jika Anda ingin menggunakan dynamic range, maka gunakan kode berikut ini:

 Sub sequential_number_1() Dim last_row As Long last_row = Cells(Rows.Count, 2).End(xlUp).Row Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries End Sub 

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Ini mengembalikan baris terakhir yang digunakan dari kolom B.

Range("C5").AutoFill Destination:=Range("C5:C" & last_row), Type:=xlFillSeries: Ini akan mengambil ID dari Sel C5 dan mengisi otomatis ke baris yang terakhir digunakan di Kolom C menggunakan xlFillSeries ,

Dalam kedua kasus tersebut, Anda akan mendapatkan output yang sama:

Seperti yang Anda lihat, kami berhasil menggunakan kode VBA untuk mengisi otomatis nomor urut di Excel.

Baca selengkapnya: Rumus Excel untuk Mengisi Angka Urutan Bawah Melewati Baris Tersembunyi

💬 Hal-hal yang Perlu Diingat

✎ Anda bisa hentikan pengisian otomatis dengan berbagai cara jika Anda tidak menginginkannya .

✎ Anda tidak bisa mengisi otomatis beberapa baris dan kolom secara bersamaan. Lakukan satu per satu.

Kesimpulan

Sebagai penutup, saya harap tutorial ini telah memberi Anda sepotong pengetahuan yang berguna untuk mengisi ulang rumus secara otomatis ke baris terakhir menggunakan kode VBA. Kami sarankan Anda mempelajari dan menerapkan semua instruksi ini ke dataset Anda. Unduh buku kerja latihan dan coba ini sendiri. Juga, jangan ragu untuk memberikan umpan balik di bagian komentar. Umpan balik Anda yang berharga membuat kami termotivasi untuk membuat tutorial sepertiini.

Jangan lupa untuk memeriksa situs web kami Exceldemy.com untuk berbagai masalah dan solusi terkait Excel.

Teruslah mempelajari metode baru dan teruslah berkembang!