Excel: Sınırlandırılmış metin satırlara nasıl bölünür

Diyelim ki burada bir çalışma sayfasında üç sütunlu bir tablo var, ilki fiyat seviyelerini listeliyor, ikincisi hücrelerde virgülle ayrılmış meyve adlarını ve üçüncü sütun meyvelerin fiyatlarını listeliyor. İş, sınırlandırılmış meyve adlarını satırlara bölmek ve aşağıdaki ekran görüntüsü gibi ilgili fiyat seviyelerini ve fiyat satırlarını tekrarlamaktır:

İşte bu işi çözmek için iki yöntem tanıtın.

VBA kullanarak sınırlandırılmış metni satırlara bölme

Sınırlandırılmış metni şunu kullanarak satırlara böl: Power Query

İşte sınırlandırılmış metni satırlara hızla bölebilen bir VBA kodu.

1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle sekme> modül yeni bir boş modül oluşturmak için.

3. Aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA: Sınırlandırılmış metni satırlara böl

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Basın F5 Çalıştır düğmesine tıklamak için anahtar  kodu etkinleştirmek için, satırlara bölünmesi gereken sınırlandırılmış metni içeren başlığı hariç tutan sütunu seçmeniz için bir iletişim kutusu açılır. Tıklamak OK.

5. Ardından, kullandığınız sınırlayıcıyı girmek için ikinci iletişim kutusu açılır. Burada virgül (,) yazar. Tıklamak OK.

Artık sınırlandırılmış metinler satırlara bölünmüş ve diğer ilgili sütunlar tekrarlanmıştır.

  VBA orijinal verileri değiştirecek, daha önce bir kopyasını kaydetmelisiniz.

Excel 2013 veya sonraki sürümlerindeyseniz, Power Query bu işi çözmek için iyi bir seçim olacaktır.

1. Tıklamak için veri aralığını seçin. Veri > Tablodan/Aralıktan.

2. patlamada Tablo Oluştur iletişim, kontrol et Masamın başlıkları var Ihtiyacınız kadar ve tıklayın OK.

sonra Power Query editör penceresi görüntülenir ve veriler burada gösterilir.

3. Sınırlandırılmış metinleri satırlara bölmek istediğiniz sütuna tıklayın ve Dönüştürmek sekme> Bölünmüş Sütun > Sınırlayıcıya göre.

Veya bağlam menüsünde bu özelliği seçmek için sütunu seçip sütun başlığına sağ tıklayabilirsiniz.

4. içinde Sütunu Sınırlayıcıya Göre Böl penceresinde, sınırlayıcıyı istediğiniz gibi seçin. Sınırlayıcı seçin veya girin bölümüne gidin ve ardından Sınırlayıcının her oluşumu seçeneğini seçin ve ardından genişletin Gelişmiş seçenekler seçilecek bölüm satırlar seçeneği. Click OK.

Şimdi sınırlandırılmış metinler satırlara bölünmüştür.

5. Ardından pencereyi kapatın, bir iletişim kutusu açılır, tıklayın tutmak düğmesine basın.

Daha sonra tablo ile yeni bir sayfa oluşturulacaktır.

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...

Devamı ... Tam Özellikler 30 Günlük Ücretsiz Deneme ... Satın alma... 

---

Office Tab - Office'e sekmeli arabirim getirir ve iş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!

Devamı ... Tam Özellikler 30 Günlük Ücretsiz Deneme ... Satın alma...