Tek bir sütundan her 5 veya n satırı birden fazla sütuna nasıl yer değiştirebilirsiniz?

Excel'de tek bir sütundan her 5 veya n satırı birden fazla sütuna yerleştirmek, verileri analiz veya raporlama için yeniden düzenlerken çok yararlı olabilir. A sütununda uzun bir veri listeniz olduğunu ve şimdi A sütunundaki her 5 satırı birden fazla sütuna yerleştirmek istediğinizi varsayalım; örneğin A1:A5'i C6:G6'ya, A6:A10'u C7:G7'ye vb. çevirmek istiyorsunuz (soldaki ekran görüntüsüne bakın). Bu görev farklı yöntemler kullanılarak gerçekleştirilebilir ve her yöntemin kendi avantajları vardır. Şimdi bunu adım adım nasıl yapacağımıza detaylı bir rehber sunalım.

Tek bir sütundan her 5 veya n satırı birden fazla sütuna yer değiştirme

• Formül kullanma
• Güçlü bir araç kullanın - Kutools for Excel
• VBA kodu kullanma

 Formül ile tek bir sütundan her 5 veya n satırı birden fazla sütuna yer değiştirme

Excel'de, tek bir sütundan her n satırı birden fazla sütuna yerleştirmek için aşağıdaki formülü uygulayabilirsiniz, lütfen şu adımları izleyin:

1. Sonucu koymak istediğiniz boş bir hücreye aşağıdaki formülü girin.

=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))

2. Ardından doldurma tutamacını sağa doğru beş hücreye kadar sürükleyin ve sıfır görüntülenecek şekilde hücre aralığı boyunca aşağı doğru sürüklemeye devam edin, aşağıdaki ekran görüntüsüne bakın:

 Kutools for Excel ile tek bir sütundan her 5 veya n satırı birden fazla sütuna yer değiştirme

Bir sütundan birden fazla sütuna Excel verilerini yerleştirmekten rahatsız mısınız? "Kutools for Excel"'in "Aralığı Dönüştür" özelliği sorunlarınızı çözmek için burada! Her 5 satırı veya özel sayıda satırı yerleştirmeniz gerekip gerekmemesi fark etmez, size yardımcı oluyoruz. Esnek satır dönüşümü, bir sütundan birden fazla sütuna aktarmak istediğiniz satır sayısını özgürce seçmenize olanak tanır. İşlem basit ve hızlıdır, karmaşık işlemler gerektirmez — sadece birkaç tıklama ile işi bitirebilirsiniz.

"Kutools for Excel" kurduktan sonra lütfen şu adımları izleyin:

1. Sütundaki verileri seçin ve ardından "Kutools" > "Aralık" > "Aralığı Dönüştür" öğesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. "Aralığı Dönüştür" iletişim kutusunda, "Dönüşüm Türü" altında "Tek Sütunu Aralığa Dönüştür" seçeneğini işaretleyin ve ardından "Kayıt Başına Satır" altında "Sabit Değer" seçeneğini işaretleyin, ardından "Sabit Değer" kutusunda verilerinizi yerleştirmek istediğiniz sütun sayısını belirtin, aşağıdaki ekran görüntüsüne bakın:

3. Ardından "Tamam" düğmesine tıklayın, açılan kutuda lütfen sonucu çıkarmak için bir hücre seçin, aşağıdaki ekran görüntüsüne bakın:

4. Sonra "Tamam" düğmesine tıklayın ve sütun verileriniz aşağıdaki ekran görüntüsünde gösterildiği gibi her 5 satırda bir yerleştirilmiştir:

 VBA kodu ile tek bir sütundan her 5 veya n satırı birden fazla sütuna yer değiştirme

Eğer formülü doğru bir şekilde uygulayamıyorsanız, aşağıdaki VBA kodu da size yardımcı olabilir.

1. "ALT" + "F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Ekle" > "Modül" öğesine tıklayın ve aşağıdaki kodu "Modül" Penceresine yapıştırın.

VBA kodu: Tek bir sütundan her 5 veya n satırı birden fazla sütuna yer değiştirme:

Public Sub TransposeData()
'updateby Extendoffice
    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 yapıştırdıktan sonra lütfen çalıştırmak için "F5" tuşuna basın ve seçmek istediğiniz sütunu hatırlatmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Sonra "Tamam"'a tıklayın ve başka bir açılır kutuda sonuçları koymak istediğiniz hücreyi seçin, aşağıdaki ekran görüntüsüne bakın:

5. Ve "Tamam"'a tıklayın, sütundaki veriler ihtiyacınız olan beş sütuna dönüştürülmüştür, aşağıdaki ekran görüntüsüne bakın:

Excel'de tek bir sütundan her 5 veya n satırı birden fazla sütuna yerleştirmek için bu makale üç etkili yöntem tanıtmaktadır. Bu yöntemlerin her biri, kullanıcıların Excel araçları ve programlama konusundaki aşinalık seviyelerine uygun olarak Excel'deki verileri yeniden düzenleme konusunda farklı bir yaklaşım sunmaktadır. Eğer daha fazla Excel ipuçlarını ve püf noktalarını keşfetmeye ilgi duyuyorsanız, web sitemiz binlerce öğretici sunmaktadır.