Excel'de birleştirme, tek bir dize oluşturmak için iki dizeyi bir araya getirme işlemidir. Basitçe söylemek gerekirse, bir sütunda adları ve diğerinde soyadları olan bir tablomuz varsa, bunları bir saniyede tek bir hücrede birleştirmek ve birleştirmek için birleştirme yordamını kullanabiliriz. Excel'de, aşağıdaki gibi adlandırılan bir işlevimiz vardır CONCATENATE () bu birleştirme işlemini yapmamızı sağlar. VBA 'yi kullanamayız, bu tür bir fonksiyona izin verilmez. CONCATENATE () VBA kodunda çalışmayacaktır. Çünkü VBA yerleşik işlevlerden yoksundur ve elektronik tablo işlevlerini kullanamayız. Bu nedenle, bu ders size nasıl kullanılacağını gösterecektir VBA Excel'de birden çok hücreyi, sütunu ve satırı birleştirmek için birleştir.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

VBA Concatenate Fonksiyonuna Giriş

Excel'in VBA Concatenate için yerleşik bir işlevi olmadığını belirtmiştik, ancak farklı dizeleri operatörlerle birleştirerek bir işlev olarak çalışmasını sağlayabiliriz. Burada ve işaretini kullanıyoruz (&) operatörümüz olarak.

⟴ Sözdizimi

String1 = " İlk Metin"

String2 = " İkinci Metin"

⟴ Dönüş Değeri

Return_value = String1 & String2

Excel'de VBA Concatenate Fonksiyonunun 4 Farklı Kullanımı

Burada, birleştirme işlemini gerçekleştirmek için 4 farklı yaklaşım kullanacağız. Farklı operatörleri aşağıdakilerle birlikte uygulayacağız VBA Bunu başarmak için kod.

1. VBA Birleştirmede Hücreleri Birleştirmek için Ampersand (&) Operatörünü Kullanın

Aşağıdaki ekran görüntüsünde gösterildiği gibi, bir sütunda ilk adlar ve diğerinde soyadlar bulunan iki sütunlu bir veri koleksiyonumuz var. İki sütunu birleştirerek artık tüm adları alabiliriz. Çünkü VBA birleştirme için herhangi bir yerleşik yönteme sahip olmadığından, ve işaretini kullanacağız (&) operatörünü aşağıdaki talimatlarda ayrıntılı olarak açıklandığı şekilde seçin.

Adım 1:

• Her şeyden önce, basın Alt + F11 açmak için Makro Etkin Çalışma Sayfası.
• Ardından, tıklayın
• Seçiniz Modül .

Adım 2:

• İki hücreyi tek bir hücrede birleştirmek için aşağıdakileri kopyalayıp yapıştırın 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 

İşte,

• String1 = Cells(5, 2).Value ilk hücre konumudur B5 , sıra 5, ve sütun 2 .
• String2 = Cells(5, 3).Value ikinci hücre konumudur C5 , sıra 5, ve sütun 3 .
• Cells(5, 5).Value = String1 & String2 sonuç hücresi konumudur E5 , sıra 5 ve sütun 5 .
• String1 & String2 ve işareti ile birleştirilen iki dizedir (&)

Adım 3:

• Kaydet ve tuşuna basın F5 programı çalıştırmak için.

Bu nedenle, sonucu E5 geçerli çalışma sayfanızın hücresi.

Adım 4:

• Geri kalan hücreler için adımları takip edin ve tekrarlayın ve aşağıdaki resimde gösterildiği gibi sonuçları elde edin.

Daha Fazla Oku: Excel'de VBA StrComp Nasıl Kullanılır (5 Yaygın Örnek)

2. VBA Birleştirmede Hücreleri Birleştirmek için Artı (+) Operatörünü Kullanın

Önceki bölümde açıklandığı gibi, ve işaretini kullandık (&) işleci ile hücre dizelerini birleştirebilirsiniz. Aynı sonucu artı işlecini uygulayarak da elde edebilirsiniz (+) işareti yerine ve işareti (&) Operatör. Yaptırmak için aşağıdaki adımları izleyin.

Adım 1:

• Açmak için Makro Excel'de, tuşuna basın Alt + F11 .
• Tıklayın Ekleme ve seçin
• Program sayfasını açtıktan sonra aşağıdakileri yapıştırın 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 

İşte,

• Cells(5, 5).Value = String1 + String2 kullandığımız bu satır artı (+) işareti yerine ampersand (&)

Adım 2:

• Yapıştırdıktan sonra kaydedin ve F5 Sonuç olarak, hücredeki değişikliği göreceksiniz E5 .

• Nihai sonuçları elde etmek için, önceki adımları tekrar uygulayarak gerekli hücreleri doldurun.

Daha fazlasını okuyun: VBA StrConv Fonksiyonu Nasıl Kullanılır (5 Örnek)

Benzer Okumalar:

• Excel'de VBA'da Bir Sub Nasıl Çağrılır (4 Örnek)
• VBA İşlevinde Değer Döndürme (Hem Dizi Hem de Dizi Olmayan Değerler)
• Excel'de VBA DIR Fonksiyonu Nasıl Kullanılır (7 Örnek)
• Excel'de VBA UCASE İşlevini Kullanma (4 Örnek)
• VBA'da InStr Fonksiyonu Nasıl Kullanılır (3 Örnek)

3. VBA Concatenate Kullanarak Birden Fazla Sütun Ekleme

Önceki iki yaklaşımda, iki hücrenin nasıl birleştirileceğini tartıştık. Ancak, bunu tüm sütuna uygulamak istiyorsak, tek tek eklemek uzun zaman alacaktır. Size birden çok sütunu toplam olarak nasıl ekleyeceğinizi öğreteceğiz VBA bunun için kod.

Adım 1:

• İlk olarak, açmak için Makro basın Alt + F11
• Seçin Modül bir şey yok. Ekleme sekmesi
• Ardından, aşağıdakileri yapıştırın VBA

 Sub ConcatCols() 'B & C sütunlarını E sütununda birleştir 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 Sub 

İşte,

• Çalışma Sayfaları("Sayfa3") ile geçerli çalışma sayfanızın adıdır.
• LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row ilk sütun adıdır.
• With .Range("E5:E" & LastRow) sonuç dönüş hücre aralığıdır.
• .Formula = "=B5&C5" aralığın ilk hücresine katılacak formüldür.

Adım 2:

• Ardından, son olarak kaydedin ve F5 programı çalıştırmak için.

Sonuç olarak, sonuçları tamamen bir sütunda elde edeceksiniz.

Daha Fazla Oku: Excel'de VBA Rnd Nasıl Kullanılır (4 Yöntem)

4. VBA Concatenate Kullanarak Birden Fazla Satırı Birleştirme

Birden fazla sütun eklemenin yanı sıra şunları da uygulayabiliriz VBA Aşağıdaki ekran görüntüsünde gösterildiği gibi, üç satırı tek bir satırda birleştirmek istiyoruz. Satırları birleştirmek için aşağıdaki basit adımları izleyin.

Adım 1:

• Etkinleştirmek için Makro Excel'de, tuşuna basın Alt + F11 .
• Ardından, şunları seçin Modül bir şey yok. Ekleme
• Satırları birleştirmek için 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 

İşte,

• Set SourceRange = Range("B5:D5") kaynak hücre aralığıdır.
• Range("B8").Value = Trim(i) dönüş hücre numarasıdır.

Adım 2:

• Son olarak, programı kaydedin ve F5 koşmak için.

Böylece, üç satırın birleştirilmesiyle elde edilen nihai sonuç hücrede gösterilecektir B8 .

Daha fazlasını okuyun: Excel'de Üst Satırlar Nasıl Gösterilir (7 Yöntem)

Sonuç

Özetlemek gerekirse, umarım bu yazı aşağıdakilerin nasıl kullanılacağına dair açık talimatlar sağlamıştır VBA Excel'de çeşitli şekillerde birleştirme. Tüm bu teknikler öğrenilmeli ve verileriniz üzerinde kullanılmalıdır. Uygulama kitabını inceleyin ve yeni edindiğiniz bilgileri kullanın. Nazik desteğiniz sayesinde, bunun gibi atölyeler oluşturmaya devam etmek için motive oluyoruz.

Herhangi bir sorunuz varsa lütfen bizimle iletişime geçmekten çekinmeyin. Lütfen aşağıdaki yorum alanında ne düşündüğünüzü bize bildirin.

Bu Exceldemy Ekip sorularınıza sürekli yanıt verecektir.