Excel'de adres listesini satırlardan sütunlara hızlı bir şekilde nasıl aktarabilirim?
Örneğin, isimler ve adreslerle birleştirilmiş tek bir liste var ve listeyi aşağıda gösterilen ekran görüntüsü gibi sütunlara dönüştürmeniz gerekiyor. Excel'de bunun üstesinden gelebilecek yerleşik bir işlev yoktur, ancak bu makalede bunu hızlı bir şekilde çözmek için bazı püf noktaları sunabilirim.
Adres listesini VBA'ya göre transpoze edin
Adres listesini Kutools for Excel ile değiştirin
Adres listesini VBA'ya göre transpoze edin
Adres listesini satırlardan sütunlara dönüştürmek için bir VBA kodu uygulayabilirsiniz.
1. Sırasını değiştirmek istediğiniz verileri içeren sayfayı etkinleştirin ve Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve makro kodunun altına yapıştırın modül. Ekran görüntüsüne bakın:
VBA: Adres listesini transpoze et
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. Basın F5 kodu çalıştırmak için tuşuna basın ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK, ardından sonraki açılan iletişim kutusunda, sırasının yerini değiştirecek sonucu yerleştirmek için bir hücre seçin. Ekran görüntüsüne bakın:
5. tık OK. Şimdi tek liste sütunlara dönüştürüldü.
Adres listesini Kutools for Excel ile değiştirin
Eğer varsa Kutools for Exceluygulayabilirsiniz Aralığı Dönüştür adres listesini hızlı bir şekilde sütunlara dönüştürmek için özellik.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın: (Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. Sırasını değiştirmek 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, Tek sütun aralığı seçeneği Dönüştürme türü bölümü ve kontrol edin Sabit değer seçeneğini seçin ve ihtiyacınız olan numarayı sağ metin kutusuna yazın. Ekran görüntüsüne bakın:
3. tık Okve sonucun çıktısını almak için bir hücre seçin. Ekran görüntüsüne bakın:
4. tık OK. Adres listesi aktarıldı.
Gösteri
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!