Cara Menggunakan Concatenate di Excel VBA (4 Metode)

Hugh West

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

Di Excel, penggabungan adalah proses menggabungkan dua string bersama untuk membentuk satu string. Sederhananya, jika kita memiliki tabel dengan nama depan di satu kolom dan nama belakang di kolom lain, kita dapat menggunakan prosedur penggabungan untuk menggabungkan dan menggabungkannya dalam satu sel dalam sepersekian detik. Di Excel, kami memiliki fungsi yang disebut CONCATENATE () yang memungkinkan kita melakukan penggabungan ini. Namun, dalam VBA fungsi seperti ini tidak diizinkan. Kita tidak bisa menggunakan CONCATENATE () dalam kode VBA karena tidak akan berfungsi. VBA tidak memiliki fungsi bawaan dan kita tidak dapat menggunakan fungsi spreadsheet. Jadi, pelajaran ini akan mendemonstrasikan kepada Anda cara menggunakan VBA menggabungkan untuk menggabungkan beberapa sel, kolom, dan baris di Excel.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Fungsi Penggabungan VBA.xlsm

Pengenalan Fungsi Penggabungan VBA

Seperti yang telah kami sebutkan bahwa Excel tidak memiliki fungsi bawaan untuk VBA Concatenate, tetapi kami dapat membuatnya berfungsi sebagai fungsi dengan menggabungkan string yang berbeda dengan operator. Di sini kami menggunakan ampersand (&) sebagai operator kami.

⟴ Sintaksis

String1 = " Teks Pertama"

String2 = " Teks Kedua"

⟴ Nilai Pengembalian

Return_value = String1 & String2

4 Penggunaan Berbeda dari Fungsi Gabungan VBA di Excel

Di sini, kita akan menggunakan 4 pendekatan yang berbeda untuk melakukan proses penggabungan. Kita akan menerapkan operator-operator yang berbeda dalam kombinasi dengan VBA kode untuk mencapai hal ini.

1. Gunakan Operator Ampersand (&) untuk Menggabungkan Sel dalam VBA Concatenate

Seperti yang ditunjukkan pada screenshot di bawah ini, kita memiliki koleksi data dua kolom dengan nama depan di satu kolom dan nama belakang di kolom lainnya. Dengan menggabungkan dua kolom, sekarang kita bisa mendapatkan seluruh nama. Karena VBA tidak memiliki metode bawaan untuk penggabungan, kita akan menggunakan ampersand (&) operator seperti yang diperinci dalam petunjuk di bawah ini.

Langkah 1:

  • Pertama-tama, tekan Alt + F11 untuk membuka Lembar Kerja yang Diaktifkan Makro.
  • Kemudian, klik
  • Pilih Modul .

Langkah 2:

  • Untuk menggabungkan dua sel menjadi satu, salin dan tempelkan yang berikut ini VBA 
 Sub Concatenate2() Dim String1 As String Dim String2 As String Dim full_string As String String1 = Cells(5, 2).Value String2 = Cells(5, 3).Value Cells(5, 5).Value = String1 & String2 MsgBox (full_string) End Sub

Di sini,

  • String1 = Cells(5, 2).Value adalah lokasi sel pertama B5 , baris 5, dan kolom 2 .
  • String2 = Cells(5, 3).Value adalah lokasi sel kedua C5 , baris 5, dan kolom 3 .
  • Cells(5, 5).Value = String1 & String2 adalah lokasi sel hasil E5 , baris 5 dan kolom 5 .
  • String1 & String2 adalah dua string yang disatukan oleh ampersand (&)

Langkah 3:

  • Simpan dan tekan F5 untuk menjalankan program.

Oleh karena itu, Anda akan mendapatkan hasilnya dalam E5 sel dari lembar kerja Anda saat ini.

Langkah 4:

  • Ikuti dan ulangi langkah-langkah untuk sel lainnya dan dapatkan hasilnya seperti yang ditunjukkan pada gambar di bawah ini.

Catatan. Untuk menjalankan VBA kode, setiap kali pastikan file Excel Anda disimpan di Excel Lembar Kerja yang Diaktifkan Makro (xlsm.) format.

Baca Juga: Cara Menggunakan VBA StrComp di Excel (5 Contoh Umum)

2. Gunakan Operator Plus (+) untuk Menggabungkan Sel di VBA Concatenate

Seperti yang dijelaskan dalam bagian sebelumnya, kita telah menggunakan ampersand (&) untuk menggabungkan sel string. Anda bisa mendapatkan hasil yang sama dengan menerapkan operator plus (+) sebagai pengganti tanda ampersand (&) Untuk melakukannya, ikuti langkah-langkah berikut ini.

Langkah 1:

  • Untuk membuka Makro di Excel, tekan Alt + F11 .
  • Klik Sisipkan dan pilih
  • Setelah membuka halaman program, tempelkan yang berikut ini VBA 
 Sub Concatenate2() Dim String1 As String Dim String2 As String Dim full_string As String String1 = Cells(5, 2).Value String2 = Cells(5, 3).Value Cells(5, 5).Value = String1 + String2 MsgBox (full_string) End Sub

Di sini,

  • Sel(5, 5).Value = String1 + String2 adalah baris ini yang kita gunakan ditambah (+) sebagai pengganti tanda ampersand (&)

Langkah 2:

  • Setelah menempelkan, simpan dan tekan F5 untuk menjalankan program. Akibatnya, Anda akan melihat perubahan pada sel E5 .

  • Untuk mendapatkan hasil akhir, isi sel yang diperlukan dengan melakukan kembali langkah-langkah sebelumnya.

Baca selengkapnya: Cara Menggunakan Fungsi VBA StrConv (5 Contoh)

Bacaan serupa:

  • Cara Memanggil Sub dalam VBA di Excel (4 Contoh)
  • Kembalikan Nilai dalam Fungsi VBA (Baik Nilai Array dan Non-Array)
  • Cara Menggunakan Fungsi VBA DIR di Excel (7 Contoh)
  • Gunakan Fungsi VBA UCASE di Excel (4 Contoh)
  • Cara Menggunakan Fungsi InStr di VBA (3 Contoh)

3. Tambahkan Beberapa Kolom Menggunakan VBA Concatenate

Dalam dua pendekatan sebelumnya, kita membahas cara menggabungkan dua sel. Namun, jika kita ingin menerapkannya ke seluruh kolom, menambahkan satu per satu akan memakan waktu yang lama. Kami akan mengajarkan Anda cara menambahkan beberapa kolom secara total dengan VBA kode untuk ini.

Langkah 1:

  • Pertama, untuk membuka Makro tekan Alt + F11
  • Pilih Modul dari Sisipkan tab
  • Kemudian, tempelkan yang berikut ini VBA 
 Sub ConcatCols() 'menggabungkan kolom B & C dalam kolom E Dim LastRow As Long With Worksheets("Sheet3") LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With .Range("E5:E" & LastRow) .Formula = "=B5&C5" .Value = .Value End With End With End Sub

Di sini,

  • Dengan Lembar Kerja ("Sheet3") adalah nama lembar kerja Anda saat ini.
  • LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row adalah nama kolom pertama.
  • Dengan .Range("E5:E" & LastRow) adalah hasil pengembalian rentang sel.
  • Formula = "=B5&C5" adalah rumus untuk menggabungkan sel pertama dari rentang tersebut.

Langkah 2:

  • Kemudian, terakhir, simpan dan tekan F5 untuk menjalankan program.

Hasilnya, Anda akan mendapatkan hasil seluruhnya dalam kolom.

Baca Lebih Lanjut: Cara Menggunakan VBA Rnd di Excel (4 Metode)

4. Gabungkan Beberapa Baris Menggunakan VBA Concatenate

Selain menambahkan beberapa kolom, kita juga bisa menerapkan VBA untuk menggabungkan beberapa baris menjadi satu. Seperti yang ditunjukkan pada gambar di bawah ini, kami ingin menggabungkan tiga baris menjadi satu. Untuk menggabungkan baris, ikuti langkah-langkah sederhana di bawah ini.

Langkah 1:

  • Untuk mengaktifkan Makro di Excel, tekan Alt + F11 .
  • Kemudian, pilih Modul dari Sisipkan
  • Untuk menggabungkan baris-baris, tempelkan VBA 
 Sub vba_concatenate() Dim rng As Range Dim i As String Dim SourceRange As Range Set SourceRange = Range("B5:D5") For Each rng In SourceRange i = i & rng & " " Next rng Range("B8").Value = Trim(i) End Sub

Di sini,

  • Set SourceRange = Range ("B5:D5") adalah rentang sel sumber.
  • Range("B8").Value = Trim(i) adalah nomor sel yang dikembalikan.

Langkah 2:

  • Terakhir, simpan program dan tekan F5 untuk dijalankan.

Dengan demikian, hasil akhir yang menggabungkan ketiga baris akan ditampilkan dalam sel B8 .

Baca selengkapnya: Cara Menampilkan Baris Atas di Excel (7 Metode)

Kesimpulan

Sebagai rangkuman, saya harap postingan ini telah memberikan petunjuk yang jelas tentang cara memanfaatkan VBA Semua teknik ini harus dipelajari dan digunakan pada data Anda. Periksa buku latihan dan gunakan pengetahuan yang baru Anda temukan untuk digunakan. Karena dukungan Anda yang baik, kami termotivasi untuk terus membuat lokakarya seperti ini.

Harap jangan ragu untuk menghubungi kami jika Anda memiliki pertanyaan apa pun. Beri tahu kami pendapat Anda di kolom komentar di bawah ini.

The Exceldemy Tim akan terus-menerus menanggapi pertanyaan Anda.

Postingan sebelumnya Cara Menyalin Horizontal dan Tempel Vertikal di Excel
Postingan berikutnya Cara Menyisipkan Bagan Kolom Berkerumun 3D di Excel (dengan Langkah 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.