İ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

Hər bir 5 və ya N satırını bir sütundan birdən çox sütuna necə ötürmək olar?

doc 5 hər 1 satırını köçürün

Şübhəsiz ki, A sütununda uzun məlumatlarınız var və indi 5 hər sətirindən A sütunundan A1 kimi dəyişən A5: A6-a C6 kimi bir neçə sütuna köçürmək istəyirsiniz: G6, A10: A7 to C7: GXNUMX və s. aşağıdakı ekran görüntüsü göstərilir. Excel-də dəfələrlə kopyalayaraq və yapışmadan bu vəzifəni necə həll edə bilərsən?

Hər bir 5 və ya n sətirini bir sütundan formulla birdən çox sütuna köçürün

Hər bir 5 və ya n satırını bir sütundan VBA kodu ilə birdən çox sütuna köçürün

Hər bir 5 və ya n satırını bir sütundan Excel üçün Kutools ilə birdən çox sütuna köçürün


Hər bir 5 və ya n satırını bir sütundan birdən çox sütuna çevirmək:

Hər bir 5 və ya n satırını bir sütundan birdən çox sütuna çevirmək üçün, Excel üçün Kutools's Transform Range yardım proqramı bu işi mümkün qədər tez həll etməyə kömək edə bilər. Bir sıra məlumatları bir sıra və ya sütuna köçürməyə kömək edə bilər.

doc 5 hər 10 satırını köçü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!



Excel'de, hər bir n satırını bir sütundan birdən çox sütunya köçürmək üçün aşağıdakı formülü tətbiq edə bilərsiniz, xahiş edirik aşağıdakıları yerinə yetirin:

1. C1, məsələn, nəticə qoymaq istədiyiniz bir boş hücrə aşağıdakı formulu daxil edin, = İNDEKS ($ A: $ A, ROW (A1) * 5-5 + COLUMN (A1)), bax ekran görüntüsü:

doc 5 hər 2 satırını köçürün

QeydYuxarıda qeyd olunan formada, A: A köçürmək istədiyiniz sütun istinad edir və A1 istifadə olunan sütunun ilk hüceyrəsidir, nömrə 5 məlumatlarınızın yerləşdiyi sütunların sayını göstərir, siz onları ehtiyacınıza dəyişdirə bilərsiniz. Siyahının ilk hüceyrəsi iş səhifəsinin ilk sətrində yerləşdirilməlidir.

2. Sonra doldurma sapı sağ beş hüceyrə sürükleyin və xNUMX göstərənə qədər ekran doldurmaq qədər doldurmaq tutacaq sürükleyin hüceyrələri üçündür, bax ekran görüntüsü:

doc 5 hər 3 satırını köçürün


Formulu düzgün tətbiq edə bilmirsinizsə, aşağıdakı VBA kodu da sizə kömək edə 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: Hər bir 5 və ya n sətrini bir sütundan birdən çox sütuna köçür:

Public Sub TransposeData()
'updateby Extendoffice 20151207
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Kodu bağladıktan sonra, mətbuatın üzərinə basın F5 onu işə salmaq üçün açar düyməsini basın və köçürmək istədiyiniz sütunu seçməyi xatırlatmaq üçün ekranın açılacağı ekrana baxın:

doc 5 hər 4 satırını köçürün

4. Sonra basın OK, nəticəni başqa bir atılan qutuda yerləşdirmək istədiyiniz bir hüceyrəni seçin, ekran görünüşünə baxın:

doc 5 hər 5 satırını köçürün

5. və basın OK, sütundakı məlumatlar sizə lazım olan beş sütuna çevrilmişdir, ekran görüntüsünə baxın:

doc 5 hər 6 satırını köçürün

Qeyd: Yuxarıda göstərilən kodda nömrəni dəyişə bilərsiniz 5 sizə lazım olan digər nömrəyə.


Əgər Excel üçün KutoolsOnun ilə Transform Range kommunal, tez bir sütun və ya satırı birdən çox sütun və satıra köçürə 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. Sütundakı məlumatı seçin və sonra basın Kutools > Silsilə > Transform Range, bax ekran görüntüsü:

doc 5 hər 7 satırını köçürün

2. İçində Transform Range informasiya qutusu seçin Vahid sütun üçündür altında seçimi Transform növüvə sonra yoxlayın Sabit dəyər Altında Yazı başına satırlar, sonra keçirmək istədiyiniz sütunların sayını müəyyən edin Sabit dəyər qutuya baxın, ekran görüntüsünə baxın:

doc 5 hər 8 satırını köçürün

3. Və sonra basın Ok buraxılmış qutuda, nəticəni çıxmaq üçün bir hüceyrə seçin, ekran görüntüsünə baxın:

doc 5 hər 9 satırını köçürün

4. Sonra basın OK düyməsini basın və sütun məlumatlarınız aşağıdakı Xəbərlər ekranında göstərilən hər bir 5 satırına köçürülmüşdür:

doc 5 hər 6 satırını köçürün

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.
    Sian · 11 months ago
    This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
  • To post as a guest, your comment is unpublished.
    hamidreza · 1 years ago
    =INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
    It was very simple and really useful. Thank you so much
  • To post as a guest, your comment is unpublished.
    Thank · 1 years ago
    It was great! Thank you! You saved me hours of manual work!
  • To post as a guest, your comment is unpublished.
    xplode · 2 years ago
    Thank you so much!
    It was really helpful. :)
  • To post as a guest, your comment is unpublished.
    MTVN · 2 years ago
    What formula to transpose every 5 rows to a single column?