Come trasporre rapidamente l'elenco di indirizzi da righe a colonne in Excel?
Ad esempio, esiste un unico elenco combinato con nomi e indirizzi ed è necessario convertire l'elenco in colonne come mostrato nell'immagine sottostante. Non esiste una funzione incorporata in Excel per gestirlo, ma, in questo articolo, posso introdurre alcuni trucchi per risolverlo rapidamente.
Trasponi l'elenco di indirizzi tramite VBA
Trasponi l'elenco degli indirizzi di Kutools per Excel
Trasponi l'elenco di indirizzi tramite VBA
Per trasporre l'elenco di indirizzi da righe a colonne, è possibile applicare un codice VBA.
1. Abilitare il foglio contenente i dati che si desidera trasporre e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla sotto il codice macro nel file Moduli. Vedi screenshot:
VBA: trasponi elenco indirizzi
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. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per ricordarti di selezionare l'intervallo di dati che desideri utilizzare. Vedi screenshot:
4. Clic OK, quindi nella finestra di dialogo successiva, seleziona una cella per posizionare il risultato trasposto. Vedi screenshot:
5. Clic OK. Ora la lista unica è stata trasposta in colonne.
Trasponi l'elenco degli indirizzi di Kutools per Excel
Se si dispone di Kutools for Excel, puoi applicare il Trasforma intervallo funzione per trasporre rapidamente l'elenco di indirizzi in colonne.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
Dopo l'installazione Kutools per Excel, per favore fai come di seguito: (Scarica subito Kutools per Excel!)
1. Selezionare i dati che si desidera trasporre, fare clic su Kutools > Escursione > Trasforma intervallo. Vedi screenshot:
2. Nella finestra di dialogo a comparsa, selezionare Singola colonna nell'intervallo opzione Tipo di trasformazione sezione e controllare Valore fisso opzione e digita il numero che ti serve nella casella di testo a destra. Vedi screenshot:
3. Clic Oke selezionare una cella per produrre il risultato. Vedi screenshot:
4. Clic OK. La lista degli indirizzi è stata trasposta.
Dimo
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!