Bagaimana cara menggunakan vba untuk menggabungkan string?

Untuk menggabungkan dua string menggunakan kode VBA, Anda harus menggunakan ampersand. Anda dapat menggunakan tanda ampersand di antara dua string untuk menggabungkannya, lalu menetapkan nilai baru ini ke sel, variabel, atau kotak pesan. Demikian pula, Anda juga dapat menggabungkan lebih dari dua nilai.

Nanti kita akan melihat contoh sederhana untuk memahaminya.

Langkah-langkah menggunakan VBA untuk menggabungkan

1. Pertama masukkan string pertama menggunakan tanda kutip ganda.
2. Setelah itu, ketikkan ampersand.
3. Selanjutnya, masukkan teks kedua menggunakan tanda kutip ganda.
4. Pada akhirnya, tetapkan nilai ini ke sel atau variabel, atau gunakan kotak pesan untuk melihatnya.

 Sub vba_concatenate() Range("A1") = "Mike" & "Ross" End Sub

Gabungkan dengan pembatas

Anda juga dapat menggunakan pembatas antara dua string hanya dengan menambahkan ampsand ketiga. Perhatikan kode berikut.

 Range("A1") = "Mike" & "-" & "Ross"

Pada kode di atas, Anda menggunakan pembatas dalam dua string dan menggabungkannya hanya dengan menggunakan ampersand. Jadi pada dasarnya, kapan pun Anda perlu menyertakan sesuatu, Anda perlu menggunakan tanda ampersand di dalamnya.

Gabungkan menggunakan variabel

Anda juga dapat menyimpan nilai dalam variabel dan kemudian menggabungkan nilai kedua variabel tersebut. Perhatikan kode berikut.

Dalam kode di atas Anda memiliki variabel yang dideklarasikan sebagai variabel dan kemudian Anda menetapkan nilai ke variabel tersebut. Dan pada akhirnya, kami menggunakan ampersand untuk menggabungkan ketiga variabel dan kemudian menetapkan hasilnya ke sel A1.

Gabungkan rentang menggunakan VBA

Anda juga dapat menggabungkan nilai dari rentang sel menggunakan VBA. Perhatikan makro berikut.

 Sub vba_concatenate() Dim rng As Range Dim i As String Dim SourceRange As Range Set SourceRange = Range("A1:A10") For Each rng In SourceRange i = i & rng & " " Next rng Range("B1").Value = Trim(i) End Sub

Pada kode di atas, Anda menggunakan FOR NEXT (For Loops) untuk mengulang rentang yang ingin Anda gabungkan.

Jadi ia pergi ke setiap sel dalam rentang (A1:A10) menyimpan nilai itu dalam variabel I dan menggunakan ampersand untuk menggabungkan nilai di setiap iterasi. Pada akhirnya, atur saluran gabungan ke rentang B1.

Dan kode berikut menggabungkan nilai dari rentang yang dipilih. Yang perlu Anda lakukan hanyalah memilih rentang dan kemudian menjalankan kodenya.

 Dim rng As Range Dim i As String For Each rng In Selection i = i & rng & " " Next rng Range("B1").Value = Trim(i)

Gabungkan seluruh kolom atau baris

Jika Anda ingin menggabungkan seluruh kolom atau baris, dalam hal ini lebih baik tidak menggunakan metode loop. Anda bisa menggunakan fungsi lembar kerja “TextJoin” yang bisa menggabungkan seluruh baris atau kolom (pertimbangkan kode berikut).

 'join values from column A. Dim myRange As Range Dim myString As String Range("B1") = WorksheetFunction.TextJoin(" ", True, Range("A:A")) 'join values from row 1. Dim myRange As Range Dim myString As String Range("B1") = WorksheetFunction.TextJoin(" ", True, Range("1:1"))