İ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

Excel-də hüceyrə dəyərlərini şaquli olaraq bölmək üçün necə?

Excel-də tətbiq edə bilərsiniz Sütunlara mətn hüceyrə dəyərlərini üfüqi birdən çox sütuna bölmək xüsusiyyətidir, lakin hüceyrə məzmununu bir neçə sətirə şaquli olaraq bölməyə kömək etmir. Və bu məqalədə, Excel dəyərində hüceyrə dəyərlərini spesifik separator tərəfindən dikey olaraq satırlara bölmək üçün bəzi sürətli yollar barədə danışacağam.

VBA koduyla ayırıcı tərəfindən dikey olaraq satırlara hücum dəyərlərini ayırın

Excel hüdudları üçün Kutools ilə ayracı tərəfindən satırlara satır daxil edin


VBA koduyla ayırıcı tərəfindən dikey olaraq satırlara hücum dəyərlərini ayırın


Aşağıdakı VBA kodu hüceyrə dəyərlərini hər hansı bir separator tərəfindən dikey olaraq satırlara bölməyə kömək edə bilər, xahiş edirik, aşağıdakıları yerinə yetirin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

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

VBA kodu: Split hüceyrə dəyərlərini spesifik separator tərəfindən dikey olaraq satırlara daxil edin

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın ve dikey olaraq bölünmek istediğiniz mobil değerleri seçmenizi hatırlatmak üçün bir istem kutusu açılır, ekran görüntüsüne baxın:

doc vertikal 1 split

4. Və sonra basın OK düyməsini basdıqda, bir qutu 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 vertikal 2 split

5. Basın OK düyməsini və hüceyrə dəyərləri bir ayırıcı ilə bir siyahıya bölünmüş, ekran görünüşünə baxın:

doc vertikal 3 split

Qeyd: Yuxarıdakı kodda, nöqtəli vergül dəyişə bilərsiniz ; sizə lazım olan hər hansı bir məhdudlaşdırıcıya.


Excel hüdudları üçün Kutools ilə ayracı tərəfindən satırlara satır daxil edin

Excel üçün Kutools'S Split Cells xüsusiyyəti güclü bir yardım proqramıdır, ehtiyac duyduğunuz hər hansı bir ayırıcı tərəfindən bir neçə sütun və ya satırda hüceyrə dəyərlərini bölmək üçün kömək edə bilər.

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 Kutoolsxahiş edirəm:

1. Xüsusi məhdudiyyətlər ilə satırlara bölmək istədiyiniz hüceyrələri seçin.

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

doc vertikal 4 split

3. İçində Split Cells informasiya qutusu seçin Satırlara bölün Altında növü bölməni seçin və yoxlayın digər dən Split by bölmədə və hüceyrə dəyərlərini bölmək istədiyiniz ayırıcıya daxil edin, ekran görünüşünə baxın:

doc vertikal 5 split

4. Və sonra basın Ok düyməsini çıxarmaq qutusuna nəticə çıxmaq üçün bir hüceyrə seçin, ekran görüntüsünə baxın:

doc vertikal 6 split

5. və basın OK düyməsini, hücum dəyərləri göstərilən ekran görüntüsü kimi xüsusi ayırıcıya əsaslanan satırlara bölünmüşdür:

doc vertikal 7 split

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


Demo: Excel hüdudları üçün Kutools ilə ayracı tərəfindən satırlara şaquli olaraq hücum dəyərlərini ayırın

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!



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.

Be the first to comment.