Ana içeriğe atla

Excel'de veri kaybetmeden birden çok hücrenin içeriğini nasıl birleştirebilirim?

Yazarı: Kelly Son Değiştirilme Tarihi: 2020-05-26

Microsoft Excel'de hücreleri ve içeriklerini sık sık birleştirebiliriz. Ancak, hücre içeriğini birleştirmenin en kolay yolunu buluyor musunuz? Burada hücre içeriğinin Excel'de kolayca ve hızlı bir şekilde nasıl birleştirileceğinden bahsedeceğiz.

VBA kodu ile birden çok hücreyi tek bir hücrede birleştirin
Kutools for Excel ile veri kaybetmeden birden çok hücreyi tek bir hücrede birleştirin


VBA kodu ile birden çok hücreyi tek bir hücrede birleştirin

Aşağıdaki VBA kodu, birden çok hücreyi tek bir hücrede birleştirmenize yardımcı olabilir ve kodu aşağıdaki adımlarla uygulayabilirsiniz:

1. tıklayın Geliştirici > Visual Basic, Yeni bir Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle > modülve aşağıdaki kodu Modüle girin:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Sonra tıklayın doc-çarpma-hesaplama-3 kodu yürütmek için düğmesine basın. VBA ile çalışmak üzere bir aralık seçmeniz için bir iletişim kutusu açılır. Ekran görüntülerine bakın:

3. tıklayın Okayırıcıyı belirlemeniz için başka bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:

doc hücre içeriğini birleştir 2

4. tıklayın Ok, ardından seçili aralıktaki hücre içeriği bir hücrede birleştirilir. Ekran görüntüsüne bakın:

doc hücre içeriğini birleştir 3


Kutools for Excel ile veri kaybetmeden birden çok hücreyi tek bir hücrede birleştirin

Eğer varsa Kutools for Excel yüklendiğinde, formül kullanmadan birden çok sütun veya satırın hücre içeriğini rahatça birleştirebilirsiniz.

1. Verileri birleştirmek istediğiniz hücreleri seçin. Ve bu yardımcı programı tıklayarak uygulayın. Kutools > Birleştir ve Böl > Veri Kaybetmeden Satırları, Sütunları veya Hücreleri Birleştirme.

2. In Sütunları veya Satırları Birleştirme iletişim kutusunda ihtiyacınız olan seçenekleri belirtin. Ekran görüntüsüne bakın:

  • (1.) Seçin Tek hücrede birleştirin altında Seçilen hücreleri aşağıdaki seçeneklere göre birleştirmek için;
  • (2.) Birleşik veriler için bir ayırıcı belirleyin. Her içeriği boşluk, hiçbir şey, noktalı virgül veya belirli bir metinle ayırabilirsiniz. Ayrıca, birleştirilmiş içeriği yeni bir satırda da görüntüleyebilirsiniz.

doc hücre içeriğini birleştir 5

3. Sonra tıklayın OK or Tamam, birden çok hücredeki tüm veriler tek bir hücrede birleştirildi. Ekran görüntüsüne bakın:

Not: Bu yardımcı program, seçili sütunların hücrelerini birleştirmeye de yardımcı olabilir. Aşağıda gösterilen ekran görüntüsü gibi ad ve soyadını tek bir tam ad hücresinde birleştirebilirsiniz.

Ardından, adların ve soyadların birleştirildiğini ve tam ad hücrelerinde bulunduğunu görebilirsiniz.

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


İlgili Makaleler


Demo: Veri kaybetmeden birden çok hücreyi tek bir hücreye birleştirin / birleştirin

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations