Ana içeriğe atla

Excel'de sütundaki verileri tek bir hücreye nasıl aktarabilirim?

Bir veri listesini çalışma sayfasındaki tek bir hücreye aktarmanız gerektiğinde, normalde, bitiştirmek hücre listesini tek bir hücreye birleştirmek için işlev görür, ancak birleştirilmesi gereken çok büyük veri varsa karmaşık olacaktır. Bu yazıda, bu görevi Excel'de çözmeniz için bazı hızlı püf noktalarından bahsedeceğim.

Kullanıcı Tanımlı İşlev ile verileri sütundan tek bir hücreye aktarın

Kutools for Excel ile verileri sütundan tek bir hücreye aktarın


Hücre değerleri listesini birleştirmek için Birleştir işlevi dışında, sonucu olabildiğince çabuk almak için aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Verileri sütundan tek bir hücreye aktarın

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve şu formülü girin: = transposerange (A1: A10) sonucu koymak için boş bir hücreye koyun ve Keşfet anahtar, bir sütundaki tüm hücre değerlerini tek bir hücrede bulursunuz, ekran görüntüsüne bakın:

doc hücreleri tek bir hücreye aktarın 1

not: Yukarıdaki kodda, A1: A10 tek bir hücreye aktarmak istediğiniz liste aralığıdır ve ayrıca, birleştirilmiş içeriği virgül, tire, boşluk vb. gibi diğer sınırlayıcılarla komut dosyasındaki virgülü değiştirerek ayırabilirsiniz. xStr = xStr & xCell.Value & ",".


Eğer varsa Kutools for Excel, güçlü aracı ile-Birleştirmek, bir sütun, satır veya aralıktaki verileri bir hücrede birleştirebilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin.

Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin! )

1. Tek bir hücrede birleştirmek istediğiniz veri sütununu seçin.

2. tıklayın Kutools > Birleştir ve BölVeri Kaybetmeden Satırları, Sütunları veya Hücreleri Birleştirme, ekran görüntüsüne bakın:

3. Açılan iletişim kutusunda şunu seçin: Tek hücrede birleştirin altında Seçilen hücreleri aşağıdaki seçeneklere göre birleştirmek içinve ardından birleştirilmiş içeriği ayırmak için bir ayırıcı belirtin, ekran görüntüsüne bakın:

doc hücreleri tek bir hücreye aktarın 3

4. Sonra tıklayın Ok or Tamam düğmesine tıklarsanız, ihtiyacınız olduğunda aşağıdaki sonucu alırsınız:

doc hücreleri tek bir hücreye aktarın 4 2 doc hücreleri tek bir hücreye aktarın 5

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations