Excel'de sütunları satırlara nasıl dönüştürür ve verileri aşağı doldurmak için yeni satırlar eklersiniz?

Bu makalede, aşağıdaki ekran görüntüsünde gösterildiği gibi sütunları satırlara dönüştürmek ve verileri aşağı doldurmak için yeni satırlar eklemek için bir VBA kodu tanıtacağım. Bu işlem ilgini çekiyorsa, lütfen daha fazla ayrıntı için aşağıya gidin.

VBA ile satır ekleme ve dönüştürme

VBA ile satır ekleme ve dönüştürme

Bir aralığı dönüştürmek ve aynı verileri aşağı doldurmak için satırlar eklemek için doğrudan bir yöntem bulunmamakta, ancak burada bu görevi hızlıca çözmek için bir VBA kodu tanıtacağım.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu Modül penceresine yapıştırın. Ekran görüntüsüne bakın:

VBA: Dönüştür ve satır ekle.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın ve ardından açılır diyalog kutusunda dönüştürmek ve satır eklemek istediğiniz veri aralığını seçin. Ekran görüntüsüne bakın:

4. Tıklayın Tamam. Ve seçilen aralık aşağıdaki ekran görüntüsünde gösterildiği gibi dönüştürülmüştür.

Not: Kodu çalıştırmadan önce orijinal verilerin bir kopyasını kaydetmeniz daha iyi olur.

İpucu. Eğer hızlı bir şekilde iki boyutlu tabloyu tek boyutlu tabloya veya tam tersine dönüştürmek istiyorsanız, aşağıdaki ekran görüntüsünde gösterildiği gibi Kutools for Excel'in Tablo Boyutunu Dönüştür özelliğini kullanmayı deneyin. 30 gün boyunca sınırlamasız tam özellikli sürümünü deneyebilirsiniz, şimdi indirin ve ücretsiz deneme yapın.