Excel VBA untuk Memilih Rentang yang Digunakan dalam Kolom (8 Contoh)

Hugh West

02-06-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Tutorial ini akan mendemonstrasikan 8 contoh penggunaan VBA untuk memilih Rentang yang Digunakan dalam sebuah kolom di excel. Secara umum, kolom Kisaran Bekas di excel merepresentasikan bagian dari lembar kerja yang memiliki data di dalamnya. Untuk mengilustrasikan contohnya dengan jelas, kita akan menerapkan properti Kisaran Bekas properti dalam dataset tertentu untuk semua contoh.

Unduh Buku Kerja Praktik

Kita bisa mengunduh buku kerja latihan dari sini.

VBA untuk Memilih UsedRange di Column.xlsm

8 Contoh Mudah VBA untuk Memilih UsedRange di Kolom

Pada gambar berikut ini, kita bisa melihat dataset yang akan kita gunakan untuk semua contoh. Dataset berisi nama-nama dari Tenaga Penjualan mereka Lokasi , Wilayah, dan ' Jumlah Total ' dari penjualan. Dalam dataset ini, rentang yang digunakan akan dianggap termasuk judul. Jadi, rentang yang digunakan dalam dataset berikut adalah ( B2:E15 ).

1. Pilih UsedRange di Kolom dengan VBA di Excel

Pertama dan terutama, kita akan memilih semua kolom dari dataset kita. Untuk melakukan ini, kita akan menggunakan perintah VBA pilih Kisaran Bekas Mari kita lihat langkah-langkah untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Untuk memulainya, klik kanan pada lembar aktif bernama ' Pilih_Kolom '.
  • Selain itu, pilih opsi ' Lihat Kode '.

  • Kemudian, tindakan di atas membuka VBA jendela kode untuk lembar kerja itu. Kita juga bisa mendapatkan jendela kode ini dengan menekan Alt + F11 .
  • Berikutnya, ketikkan kode berikut ini di jendela kode itu: 
 Sub Pilih_Kolom() Lembar("Pilih_Kolom").Pilih ActiveSheet.UsedRange.Select End Sub
  • Setelah itu, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Terakhir, kita mendapatkan hasil seperti gambar berikut. Kita dapat melihat bahwa rentang yang digunakan dalam kolom dari dataset kita dipilih sekarang.

2. Gunakan VBA untuk Menyalin Seluruh UsedRange di Kolom

Pada contoh kedua, kita akan menggunakan VBA untuk menyalin seluruh rentang yang digunakan dalam kolom dari dataset kami. Umumnya, kami menggunakan metode ini untuk menyalin wilayah tertentu dari dataset kami. Kita perlu mengikuti langkah-langkah di bawah ini untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Pertama, buka tab lembar kerja aktif bernama ' Salinan '.
  • Selanjutnya, klik kanan pada tab itu dan pilih opsi ' Lihat Kode '.

  • Ini akan membuka VBA cara lain untuk mendapatkan jendela kode untuk lembar kerja saat ini. Cara lain untuk mendapatkan jendela ini adalah dengan menekan Alt + F11 dari keyboard.
  • Kemudian, masukkan kode di bawah ini di jendela kode itu: 
 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub
  • Sekarang, untuk menjalankan kode, klik pada tombol Lari atau tekan tombol F5 kunci.

  • Akhirnya, kita bisa melihat hasilnya seperti berikut ini. Juga, kita bisa melihat garis batas di sekitar rentang yang digunakan. Ini menunjukkan bahwa kode telah menyalin data di dalam batas ini.

Baca Lebih Lanjut: Excel VBA: Salin Rentang Dinamis ke Buku Kerja Lain

3. Hitung Jumlah Kolom dalam UsedRange Menggunakan VBA

Pada contoh ketiga, kita akan menghitung jumlah kolom dalam dataset kita dengan menggunakan excel VBA pilih Kisaran yang Digunakan Contoh ini akan mengembalikan jumlah total kolom di dalam rentang yang digunakan dalam dataset kita dalam kotak pesan. Ikuti langkah-langkah di bawah ini untuk menjalankan metode ini.

LANGKAH-LANGKAH:

  • Pertama, pilih sheet aktif bernama ' Hitung_Kolom '.
  • Kedua, klik kanan pada nama sheet yang aktif dan klik pada opsi ' Lihat Kode '.

  • Perintah di atas membuka sebuah VBA jendela kode untuk lembar kerja yang aktif. Kita juga bisa mendapatkan jendela kode dengan menekan Alt + F11 dari keyboard.
  • Ketiga, masukkan kode berikut ini ke dalam jendela kode kosong itu: 
 Sub Hitung_Kolom() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub
  • Berikutnya, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Terakhir, kita mendapatkan hasilnya dalam kotak pesan. Jumlah kolom dalam rentang yang digunakan adalah 4 .

Baca Lebih Lanjut: Cara Menggunakan VBA untuk Menghitung Baris dalam Rentang dengan Data di Excel (5 Makro)

4. Excel VBA untuk Menghitung Jumlah Kolom Terakhir dalam Rentang yang Digunakan

Dalam metode sebelumnya, kami mengekstrak nomor kolom terakhir dalam rentang yang digunakan. Namun, dalam contoh ini, kami akan menentukan jumlah kolom terakhir dalam rentang yang digunakan di seluruh lembar kerja menggunakan VBA pilih Kisaran Bekas Mari kita lihat langkah-langkah yang perlu kita ikuti untuk melakukan tindakan ini.

LANGKAH-LANGKAH:

  • Untuk memulainya, klik kanan pada lembar aktif bernama ' Kolom Terakhir '.
  • Berikutnya, pilih opsi ' Lihat Kode '.

  • Jadi, perintah di atas membuka VBA Cara alternatif untuk membuka jendela kode tersebut adalah dengan menekan Alt + F11 .
  • Setelah itu, sisipkan kode berikut ini di jendela kode itu: 
 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub
  • Sekarang, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Pada akhirnya, kita mendapatkan hasil kita dalam kotak pesan. Kolom terakhir dalam rentang yang digunakan adalah 5 kolom lembar kerja.

Bacaan Serupa

  • Cara Menggunakan VBA untuk Setiap Baris dalam Rentang di Excel
  • Gunakan VBA untuk Memilih Rentang dari Sel Aktif di Excel (3 Metode)
  • Makro Excel: Urutkan Beberapa Kolom dengan Rentang Dinamis (4 Metode)

5. Pilih Sel Terakhir dari Kolom Terakhir dari UsedRange dengan VBA

Pada contoh kelima, kita akan menggunakan VBA pilih Kisaran yang Digunakan untuk memilih cell terakhir dari kolom terakhir dalam suatu sheet excel. Untuk mengilustrasikan contoh ini, kita akan melanjutkan dengan dataset kita sebelumnya. Sekarang, lihat langkah-langkah untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Pertama, pilih sheet aktif bernama ' Last_Cell '.
  • Selanjutnya, klik kanan pada nama lembar tersebut. Pilih opsi ' Lihat Kode '.

  • Kemudian, kita mendapatkan kosong VBA Selain itu, kita juga bisa menekan Alt + F11 untuk membuka jendela kode itu.
  • Setelah itu, ketikkan kode berikut ini di jendela kode itu: 
 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub
  • Sekarang, untuk menjalankan kode, klik pada tombol Lari atau tekan tombol F5 .

  • Akhirnya, kita bisa melihat hasilnya pada gambar berikut. Sel terakhir yang dipilih dari kolom terakhir adalah sel E15 .

6. Temukan Rentang Sel dari UsedRange Terpilih dengan Excel VBA

Dalam contoh ini, kita akan menerapkan VBA untuk menemukan cell range dari range yang digunakan yang dipilih dalam suatu lembar kerja excel. Kita akan menggunakan fungsi VBA kode untuk semua kolom dalam rentang yang kami gunakan. Kode akan mengembalikan rentang sel serta alamat kolom dalam rentang yang digunakan. Ikuti langkah-langkah di bawah ini untuk melakukan tindakan ini.

LANGKAH-LANGKAH:

  • Pada awalnya, klik kanan pada tab lembar aktif bernama ' Temukan Rentang Sel '.
  • Kedua, pilih opsi ' Lihat Kode '.

  • Ini akan membuka VBA Metode lain untuk membuka jendela kode ini adalah dengan menekan Alt + F11 .
  • Ketiga, masukkan kode berikut ini di jendela kode itu: 
 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub
  • Kemudian, untuk menjalankan kode, klik pada tombol Lari atau tekan tombol F5 kunci.

  • Pada akhirnya, kotak pesan seperti gambar berikut ini menunjukkan hasilnya.

Bacaan Serupa

  • VBA untuk Mengulang Baris dan Kolom dalam Rentang di Excel (5 Contoh)
  • Cara Mengonversi Rentang ke Larik di Excel VBA (3 Cara)

7. Sisipkan Properti VBA UsedRange untuk Menghitung Sel Kosong

Dalam contoh ini, kita akan menggunakan VBA pilih Kisaran Bekas untuk menghitung sel kosong dalam lembar excel. Terkadang kita mungkin memiliki sel kosong dalam rentang yang digunakan dari dataset kita. Kita dapat dengan mudah menghitung jumlah sel kosong tersebut dengan menggunakan properti Kisaran Bekas Mari kita lihat langkah-langkah untuk melakukan contoh ini.

LANGKAH-LANGKAH:

  • Pertama, klik kanan pada tab lembar aktif bernama ' Empty_Cells '.
  • Berikutnya, pilih opsi ' Lihat Kode '.

  • Tindakan di atas membuka VBA Cara alternatif untuk membuka jendela kode itu adalah dengan menekan Alt + F11 .
  • Kemudian, masukkan kode berikut ini di jendela kode itu: 
 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Jumlah total sel yang digunakan dalam 4 kolom yang digunakan adalah "d" & "d" & "_ "dan dari mereka "d" & "_ j" & "sel kosong." End Sub
  • Setelah itu, klik pada Lari atau tekan tombol F5 untuk menjalankan kode.

  • Terakhir, kita akan mendapatkan hasilnya di kotak pesan. Kotak pesan akan menampilkan jumlah total sel dan sel kosong dalam rentang yang kita gunakan.

8. VBA UsedRange untuk Menemukan Sel Kosong Pertama di Kolom di Excel

Pada contoh terakhir, kita akan menggunakan excel VBA untuk memilih Kisaran yang Digunakan properti di kolom untuk menemukan sel kosong pertama di lembar kerja excel kita. Metode ini akan menemukan sel kosong pertama dari kolom tertentu. Sel kosong akan selalu berada di luar rentang dataset yang digunakan. Jadi, jika ada sel kosong atau kosong dalam rentang yang digunakan, itu tidak akan dipertimbangkan dalam metode ini. Sekarang, ikuti langkah-langkah di bawah ini untuk melakukan metode ini.

LANGKAH-LANGKAH:

  • Untuk memulainya, klik kanan pada tab lembar aktif bernama ' First_Empty '.
  • Selain itu, pilih opsi ' Lihat Kode '.

  • Ini akan membuka VBA kita juga bisa menekan Alt + F11 untuk membuka jendela kode itu.
  • Selanjutnya, ketik kode berikut di bagian kosong VBA jendela kode: 
 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub
  • Kemudian, untuk menjalankan kode, klik pada tombol Lari atau tekan tombol F5 kunci.

  • Terakhir, kode di atas akan menyisipkan nilai ' FirstEmptyCell ' di dalam sel E16 Ini adalah sel kosong pertama dari kolom E setelah rentang dataset yang digunakan.

Baca Juga: Excel VBA untuk Mengulang Rentang hingga Sel Kosong (4 Contoh)

Kesimpulan

Singkatnya, tutorial ini menunjukkan 8 contoh untuk menggunakan VBA pilih Kisaran Bekas Untuk menguji kemampuan Anda, unduh lembar kerja latihan yang digunakan untuk artikel ini. Jangan ragu untuk berkomentar di kotak di bawah ini jika Anda memiliki pertanyaan. Tim kami akan mencoba untuk menanggapi pesan Anda sesegera mungkin. Perhatikan untuk lebih inovatif Microsoft Excel solusi di masa mendatang.

Postingan sebelumnya Cara Menambahkan Tabel Data dalam Bagan Excel (4 Metode Cepat)
Postingan berikutnya Cara Menghitung Persentase Varians di Excel (3 Metode Mudah)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.