Ana içeriğe atla

Virgülle ayrılmış metin dizesini Excel'deki listeye veya satırlara nasıl dönüştürebilirim?

doc virgül değerlerini liste 1'e dönüştür

Diyelim ki, virgülle ayrılmış hücre değerleri listeniz var, şimdi, bu virgülle ayrılmış metin dizelerini aşağıdaki ekran görüntüsü gibi birden çok satıra veya bir sütuna dönüştürmeniz gerekiyor. Excel'de aynı anda virgül ayırıcıya dayalı olarak birden çok hücre değerini satırlara nasıl bölebilir?

Virgülle ayrılmış metin dizesini VBA kodu ile satırlara dönüştürün

Kutools for Excel ile virgülle ayrılmış metin dizesini satırlara dönüştürün


Virgülle ayrılmış metin dizesini VBA kodu ile satırlara dönüştürün

Aşağıdaki VBA kodu, virgülle ayrılmış birden çok hücre değerini bir sütuna dönüştürmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

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

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

VBA kodu: Virgülle ayrılmış metin dizesini satırlara veya listeye dönüştürün

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, açılan iletişim kutusunda, dönüştürmek istediğiniz veri aralığını seçin, ekran görüntüsüne bakın:

doc virgül değerlerini liste 2'e dönüştür

4. Ve tıklayın OK, aşağıdaki iletişim kutusunda, sonucun çıktısını almak istediğiniz bir hücre belirtin, ekran görüntüsüne bakın:

doc virgül değerlerini liste 3'e dönüştür

5. tıklayın OK düğmesi, seçili virgülle ayrılmış hücre değerleri bir satır listesine dönüştürüldü. Ekran görüntüsüne bakın:

doc virgül değerlerini liste 4'e dönüştür


Kutools for Excel ile virgülle ayrılmış metin dizesini satırlara dönüştürün

Eğer varsa Kutools for Excel, Onun ile Bölünmüş hücreler yardımcı programda, virgülle ayrılmış hücre değerlerini, ihtiyacınız olan virgül sınırlayıcıya göre birden çok satıra veya sütuna hızlıca bölebilirsiniz.

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 aşağıdaki adımları uygulayın:

1. Virgül ayırıcıya göre satırlara dönüştürmek istediğiniz hücre değerlerini seçin.

2. Sonra tıklayın Kutools > Birleştir ve Böl > Bölünmüş hücreler, ekran görüntüsüne bakın:

3. In Bölünmüş hücreler iletişim kutusunu seçin Satırlara Böl altında seçenek Tip bölümünden ve sonra Bir ayırıcı belirtin bölüm, kontrol et Diğer onay kutusunu işaretleyin ve ardından metin kutusuna virgül girin, ekran görüntüsüne bakın:

doc virgül değerlerini liste 6'ya dönüştür 6 XNUMX

4. Sonra tıklayın Ok, ve sonucu yerleştirmek için bir hücre seçmenizi hatırlatmak için başka bir iletişim kutusu açılır, ekran görüntüsüne bakın:

doc virgül değerlerini liste 7'e dönüştür

5. Ve sonra tıklayın Ok düğmesi, virgülle ayrılmış hücreler virgül sınırlayıcıya göre birden çok satıra bölünmüştür, ekran görüntüsüne bakın:

doc virgül değerlerini liste 8'e dönüştür

Bu Bölünmüş Hücreler özelliği hakkında daha fazla bilgi edinmek için tıklayın…

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


Demo: Kutools for Excel ile virgülle ayrılmış metin dizesini satırlara dönüştürün

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!

İlgili yazılar:

Hücreleri satır başı ile birden çok sütuna veya satıra nasıl ayırabilirim?

Excel'de hücre değerlerini birden çok sütuna nasıl bölerim?

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations