İ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ə bərabər qruplara uzun bir siyahısı bölmək üçün necə?

4 qruplarına doc bölünmüş siyahı

Aşağıdakı ekran görüntüsü kimi birdən çox bərabər qrupa bölünmənin lazım olan uzun bir məlumat siyahısı varsa, Excel-də bu tapşırıqla tez və asanlıqla necə məşğul ola bilərsiniz?

VBA kodu ilə çoxlu bərabər qruplara uzun bir siyahı ayırın

Excel üçün Kutools ilə çoxlu bərabər qruplara uzun bir siyahı ayırın


Bir sütun və ya satırı birdən çox bərabər qruplara bölün:

ilə Excel üçün Kutools'S Transform Range xüsusilə bir sıra hüceyrələri bir satır ya da sütuna çevirə bilərsiniz, ayrıca bir sıra və ya sütunu bir sıra hüceyrələrə çevirə bilərsiniz.

9 qruplarına doc bölünmüş siyahı

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!



Kopyalamaq və məlumatları bir-birinə yapışdırmaq istisna olmaqla, aşağıdakı VBA kodu da sizə bir xeyir verə bilər:

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: Uzun bir siyahısını birdən çox bərabər qruplara bölün

Sub SplitIntoCellsPerColumn()
'updatebyExtendoffice 20160225
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün açar, və açılmış qutuda, birdən çox qrupa bölmək istədiyiniz sütunu seçin, ekran görünüşünü baxın:

1 qruplarına doc bölünmüş siyahı

4. və basın OK düyməsini basın və nəticəni aşağıdakı əmr qutusuna yerləşdirmək istədiyiniz bir hüceyrəni seçin, ekran görüntüsünə baxın:

2 qruplarına doc bölünmüş siyahı

5. Basın OKvə sorğu qutusuna sütun başına bölmək istədiyiniz hüceyrələrin sayını daxil edin, ekran görünüşünə baxın:

3 qruplarına doc bölünmüş siyahı

6. Nəhayət, vurun OK kodu bitirmək üçün seçdiyiniz siyahı məlumatları birbaşa bərabər qruplara bölünmüşdür, ekran görüntüsünə baxın:

4 qruplarına doc bölünmüş siyahı


Əgər quraşdırılmış varsa Excel üçün KutoolsOnun ilə Transform Range xüsusilə, birdən çox sütun və satıra uzun bir siyahısı bölüşdürə bilərsiniz, üstəlik, çox sütunları uzun bir siyahıya birləşdirə bilərsiniz.

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. Bölmək istədiyiniz uzun siyahı seçin və sonra basın Kutools > Silsilə > Transform Range, bax ekran görüntüsü:

6 qruplarına doc bölünmüş siyahı

2. İçində Transform Range informasiya qutusu seçin Vahid sütun üçündür Altında Transform növü bölməni seçin və yoxlayın Sabit dəyər qutuda hər satırdakı hüceyrələrin sayını təyin edin, ekran görünüşünə baxın:

7 qruplarına doc bölünmüş siyahı

3. Sonra basın Ok, və nəticə qutusuna tapmaq istədiyiniz bir hüceyrəni seçin, ekran görünüşünə baxın:

8 qruplarına doc bölünmüş siyahı

4. Və basın OK düyməsinə basın, siyahıda olan məlumatlar sizə lazım olduğunda birdən çox bərabər qrup halında bölünmüşdür.

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


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.
  • To post as a guest, your comment is unpublished.
    attom93 · 7 days ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 11 months ago
    This comes in very handy! One question: In the VBA code how can I transpose the output? So instead of xRg.Rows.Count / I = number of colums output, the output is generated as xRg.Rows.Count / I = number of rows output with I being the number of columns per row.