Excel'de Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirme

Hugh West

16-10-2023 Excel Temelleri
  • Bunu Paylaş
Hugh West

Excel'de çalışırken gerçekleştirmemiz gereken en önemli ve yaygın olarak kullanılan görevlerden biri, herhangi bir veri kaybetmeden hücreleri dikey olarak birleştirmektir. Bugün size Excel'de veri kaybetmeden hücreleri dikey olarak nasıl birleştirebileceğinizi göstereceğim.

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

Veri Kaybetmeden Hücreleri Dikey Olarak Birleştirme.xlsm

4 Excel'de Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirmenin Kolay Yöntemleri

Burada, Martin Bookstore adlı bir kitapçıdaki bazı Yazarların ve Kitaplarının Adlarını içeren bir veri kümemiz var.

Bugünkü amacımız, aynı yazara ait kitap adlarını herhangi bir veri kaybı olmadan tek bir hücrede dikey olarak birleştirmektir.

1. Excel'deki Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirmek için Excel Araç Çubuğundan Birleştir ve Ortala Aracını Çalıştırın

Adım 1:

➤ Birleştirmek istediğiniz ilk hücre grubunu seçin (Bu örnekte Charles Dickens'ın kitapları).

Adım 2:

➤ Şuraya gidin Ana Sayfa> Birleştir & Merkez adlı bölümün altındaki Excel araç çubuğundaki Hizalama .

Adım 3:

➤ Açılır menüye tıklayın.

➤ Mevcut seçenekler arasından şunları seçin Birleştir & Merkez .

Adım 4:

➤ üzerine tıklayın Birleştir & Merkez .

➤ Seçtiğiniz hücre grubunun tek bir hücrede birleştirildiğini, ancak yalnızca ilk hücredeki değeri içerdiğini göreceksiniz (bu örnekte Büyük Dickens).

Adım 5:

➤ Tek bir hücrede birleştirmek için aynı prosedürü diğer hücre grupları için de tekrarlayabilirsiniz.

Daha fazlasını okuyun: Excel'de Hücreler Nasıl Birleştirilir ve Ortalanır

2. Excel'de Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirmek için Ampersand (&) Sembolünü Kullanın

Yukarıda bahsedilen yöntem, hücre grubunu tek bir hücrede birleştirir, ancak gereksinimimizi tam olarak karşılamaz.

Tüm hücrelerin değil, yalnızca ilk hücrenin değerini tutar.

Bu, veri kaybettiği anlamına gelir.

Bir grup hücredeki değerleri tek bir hücrede birleştirmek için, aşağıdakileri içeren bir formül kullanabilirsiniz Ampersand (&) sembolü.

İlk hücre grubu için formül şöyle olacaktır:

=C4&", "&C5&", "&C6

Not:

  • Burada kullandığım virgül (,) Kitap isimleri arasında şık görünmek için istediğiniz herhangi bir şeyi kullanabilirsiniz.

Ardından, tüm hücre grupları için aynı prosedürü tekrarlayın.

3. Excel'de Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirmek için Formül Kullanın

Kullanmak yerine Ampersand (&) sembolünü kullanmak için CONCATENATE işlevi Excel'in bir grup hücreyi tek bir hücrede birleştirmek için.

İlk hücre grubunu birleştirmek için formül şöyle olacaktır:

=CONCATENATE(C4,", ",C5,", ",C6)

Not:

  • Burada da kullandım virgül (,) kitap isimleri arasında. İstediğiniz herhangi bir şeyi kullanabilirsiniz.

Ardından, geri kalan hücre grubunu tek bir hücrede birleştirmek için bu formülü kullanabilirsiniz.

4. Excel'deki Hücreleri Veri Kaybetmeden Dikey Olarak Birleştirmek için VBA Kodlarını Çalıştırın

Yukarıda bahsedilen tüm yöntemler gayet iyi çalışıyor, ancak yine de amacımızı tam olarak yerine getirmiyorlar.

Tüm hücre gruplarını tek bir tıklama ile tek bir hücreye birleştirecek böyle bir yöntem türetmek istiyoruz.

Ve evet, bunu yapmanın yolları var. Bu bölümde, bir yöntem türeteceğiz. VBA Tüm hücre gruplarını mümkün olan en kolay şekilde tek hücreler halinde birleştirecek kod.

Adım 1:

➤ Basın ALT+F11 klavyenizde. VBA penceresi açılacaktır.

Adım 2:

➤ Şuraya git Ekleme VBA penceresindeki sekme.

➤ Mevcut seçenekler arasından şunları seçin Modül .

Adım 3:

➤ Adında yeni bir modül penceresi "Modül 1" açılacak.

➤ Aşağıdakileri ekleyin VBA modüldeki kod.

Kod: 

 Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub

Adım 4:

➤ Çalışma kitabını şu şekilde kaydedin Excel Makro Etkin Çalışma Kitabı .

Adım 5:

➤ Çalışma kitabınıza geri dönün ve veri kümesini seçin ( Sütun Başlıkları ).

Adım 6:

➤ Basın ALT+F8 klavyenizde.

➤ Adında bir diyalog kutusu Makro açılacaktır. seçin Merging_Rows ve üzerine tıklayın Koşmak .

Adım 6:

➤ Hücreleri birleştirdiğinizde yalnızca sol üst hücre değerinin kalacağını ve diğer değerlerin atılacağını söyleyen bir uyarı kutusu alacaksınız

➤ Tıklayınız TAMAM. .

Adım 7:

➤ Aynı uyarı kutusunu birkaç kez alacaksınız. TAMAM. Her seferinde.

➤ Son olarak, tüm hücre gruplarınızın dikey olarak birleştirilerek aşağıdaki gibi tek bir hücre haline getirildiğini göreceksiniz.

Sonuç

Bu yöntemleri kullanarak Excel'deki hücreleri veri kaybetmeden dikey olarak birleştirebilirsiniz. Bildiğiniz başka bir yöntem veya sorunuz var mı? Bize sormaktan çekinmeyin.

Önceki yazı Excel'de SUMIFS Fonksiyonu Nasıl Kullanılır (6 Kullanışlı Örnek)
Sonraki Gönderi Excel'de Sayıyı Kelimelere Dönüştürme (4 Uygun Yol)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.