Excel'de adres listesini satırlardan sütunlara nasıl hızlı bir şekilde aktarabilirsiniz?

Örneğin, isim ve adresler içeren tek bir listeniz var ve bunu aşağıdaki ekran görüntüsünde gösterildiği gibi sütunlara dönüştürmeniz gerekiyor. Excel'in buna yönelik yerleşik bir işlevi yok, ancak bu makalede sorunu çözmek için bazı hızlı yöntemler tanıtılmaktadır.

VBA ile adres listesini aktarma

Kutools for Excel ile adres listesini aktarma

VBA ile adres listesini aktarma

Adres listesini satırlardan sütunlara aktarmak için bir VBA kodu uygulayabilirsiniz.

1. Aktarmak istediğiniz verileri içeren sayfayı açın ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

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

VBA: Adres listesini aktarma

Sub fixText()
'UpdatebyExtendoffice0170905
    Dim I As Integer
    Dim K As Integer
    Dim xRgS As Range
    Dim xRgD As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRgD(1).Offset(, 0).Value = "Name"
    xRgD(1).Offset(, 1).Value = "Address"
    xRgD(1).Offset(, 2).Value = "City/State"
    K = 1
    For I = 1 To xRgS.Rows.Count
        xRgD(1).Offset(K).Value = xRgS(I).Value
        xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
        xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
        K = K + 1
        I = I + 2
    Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın ve seçmek istediğiniz veri aralığını belirtmek için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Tıklayın TAMAM, ardından sonraki açılan iletişim kutusunda, aktarılmış sonucu yerleştirmek için bir hücre seçin. Ekran görüntüsüne bakın:

5. Tıklayın TAMAM. Artık tek liste sütunlara aktarılmıştır.

Kutools for Excel ile adres listesini aktarma

Kutools for Excel'iniz varsa, adres listesini hızlıca sütunlara aktarmak için Aralığı Dönüştür özelliğini uygulayabilirsiniz.

1. Aktarmak istediğiniz verileri seçin, tıklayın Kutools > Aralık > Aralığı Dönüştür. Ekran görüntüsüne bakın:

2. Açılan iletişim kutusunda işaretleyin Tek Sütunu Aralığa Dönüştür seçeneğini Dönüşüm Türü bölümünde işaretleyin ve Sabit Değer seçeneğini işaretleyip sağdaki metin kutusuna ihtiyacınız olan sayıyı yazın. Ekran görüntüsüne bakın:

3. Tıklayın Tamam, ve aktarılmış sonucu yerleştirmek istediğiniz bir hücreyi seçin. Ekran görüntüsüne bakın:

4. Tıklayın TAMAM. Adres listesi aktarılmıştır.

Demo: Kutools for Excel ile adres listesini aktarma