İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Virgülle ayrılmış mətn dizesini Excel'deki liste və ya satırlara nasıl dönüştürmek olar?

doc virgül dəyərlərini 1 siyahısına çevirmək

Şübhəsiz ki, vergüllə ayrılan hüceyrə dəyərlərinizin siyahısı var, indi, bu vergüllə ayrılmış mətn dizələrini bir neçə satır və ya bir sütunla göstərilən aşağıdakı ekran görüntüsü kimi çevirmək lazımdır. Necə Excel-də birdən çox hüceyrə dəyərlərini virgüllə bölüşdürən satırlara bölmək olar?

VMA kodlu satırlara virgülle ayrılmış mətn simgesini dönüştürün

Excel üçün Kutools ilə satırlara virgülle ayrılmış mətn simgesini çevir


VMA kodlu satırlara virgülle ayrılmış mətn simgesini dönüştürün


Aşağıdakı VBA kodu birdən çox vergüllə ayrılmış hüceyrə dəyərlərini bir sütuna çevirməkdə kömək edə bilər, xahiş edirəm:

1. Basıb saxlayın Alt + F11 Excel açarları və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı makroyu yapışdırın Modules Pəncərə.

VBA kodu: Virgülle ayrılmış mətn dizesini satırlara və ya siyahıya çevir

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    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. Sonra basın F5 bu kodu çalıştırmak üçün açar, çıxarılan informasiya qutusunda, dönüştürmek istediğiniz veri aralığını seçin, ekran görüntüsünü görə bilərsiniz:

doc virgül dəyərlərini 2 siyahısına çevirmək

4. və basın OK, aşağıdakı dialoqda, nəticəni çıxmaq istədiyiniz bir hüceyrəni seçin, ekran görüntüsünə baxın:

doc virgül dəyərlərini 3 siyahısına çevirmək

5. Basın OK düyməsini seçdiyiniz virgülle ayrılmış hüceyrə dəyərləri satırlar siyahısına çevrilmişdir. Ekran görüntüsünə baxın:

doc virgül dəyərlərini 4 siyahısına çevirmək


Excel üçün Kutools ilə satırlara virgülle ayrılmış mətn simgesini çevir

Əgər Excel üçün KutoolsOnun ilə Split Cells faydalı olaraq, virgülle ayrılmış hüceyrə dəyərlərini tez bir zamanda birdən çox satır və ya sütunla virgülle sınırlandırıcıya ayırırsınız.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakı adımlarla edin:

1. Virgül ayırıcısına əsaslanan satırlara çevirmək istədiyiniz hüceyrə dəyərlərini seçin.

2. Sonra basın Kutools > Mətn > Split Cells, bax ekran görüntüsü:

Doc, 5 5 siyahısına virgül dəyərlərini çevirir

3. İçində Split Cells informasiya qutusu seçin Satırlara bölün altında seçimi növü bölmə və sonra Bir ayırıcı göstərin bölmə, yoxlayın digər onay kutusunu seçin və sonra mətn qutusuna virgül daxil edin, ekran görünüşünə baxın:

Doc, 6 6 siyahısına virgül dəyərlərini çevirir

4. Sonra basın Okvə başqa bir dialoq nəticə çıxartmaq üçün bir hüceyrəni seçməyi xatırlatmaq üçün açılır, ekran görüntüsünə baxın:

doc virgül dəyərlərini 7 siyahısına çevirmək

5. Və sonra basın Ok düyməsi, virgülle ayrılmış hüceyrələr virgülle sınırlandırıcıya əsaslanan birdən çox satıra bölünmüşdür, ekran görüntüsüne baxın:

doc virgül dəyərlərini 8 siyahısına çevirmək

Bu Split Cells xüsusiyyətləri haqqında daha ətraflı məlumat üçün tıklayın ...

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə satırlara virgülle ayrılmış mətn simli çevirmək

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Related articles:

Çarx qaytarılması ilə hüceyrələri bir neçə sütuna və ya satırlara necə bölmək olar?

Cell dəyərlərini Excel-də birdən çox sütuna bölmək üçün necə?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    eviakhan · 1 years ago
    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
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    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