Jak rychle převést seznam adres z řádků do sloupců v aplikaci Excel?

Například existuje jediný seznam kombinovaný se jmény a adresami a je třeba jej převést na sloupce, jak je uvedeno níže. V aplikaci Excel není žádná integrovaná funkce, která by to zvládla, ale v tomto článku mohu představit některé triky, jak to rychle vyřešit.

Transponujte seznam adres pomocí VBA

Transponujte seznam adres programem Kutools pro Excel

Transponujte seznam adres pomocí VBA

Chcete-li převést seznam adres z řádků do sloupců, můžete použít kód VBA.

1. Povolte list obsahující data, která chcete transponovat, a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte pod kód makra do Modul. Viz snímek obrazovky:

VBA: Transponujte seznam adres

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. lis F5 pro spuštění kódu a zobrazí se dialogové okno, které vám připomene, že chcete vybrat požadovaný rozsah dat. Viz snímek obrazovky:

4. cvaknutí OK, pak v dalším vyskakovacím dialogovém okně vyberte buňku, do které chcete umístit transponovaný výsledek. Viz snímek obrazovky:

5. cvaknutí OK. Jediný seznam byl nyní převeden do sloupců.

Transponujte seznam adres programem Kutools pro Excel

Pokud máte Kutools pro Excel, můžete použít Rozsah transformace funkce pro rychlou transpozici seznamu adres do sloupců.

Po instalaci Kutools pro Excel, prosím, postupujte takto: （Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte data, která chcete provést, klikněte na Kutools > Rozsah > Rozsah transformace. Viz snímek obrazovky:

2. Ve vyskakovacím dialogovém okně zaškrtněte Jeden sloupec k rozsahu volba v Typ transformace sekci a zkontrolujte Pevná hodnota možnost a zadejte číslo, které potřebujete, do pravého textového pole. Viz snímek obrazovky:

3. cvaknutí Oka vyberte buňku, do které se má výsledek odeslat. Viz snímek obrazovky:

4. cvaknutí OK. Seznam adres byl proveden.

Demonstrace