Come trasporre le colonne in righe e inserire nuove righe per riempire i dati in Excel?
In questo articolo, introduco un codice VBA per trasporre le colonne in righe e inserire nuove righe per riempire i dati come mostrato nell'immagine sottostante, se sei interessato a questa operazione, vai sotto per maggiori dettagli.
Trasponi e inserisci righe con VBA
Trasponi e inserisci righe con VBA
Non esiste un modo diretto per trasporre un intervallo e inserire righe per riempire gli stessi dati, ma qui posso introdurre un codice VBA per risolvere rapidamente questo compito.
1. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla sotto il codice VBA nella finestra del modulo. Vedi screenshot:
VBA: trasponi e inserisci righe.
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. Stampa F5 chiave per eseguire il codice, quindi selezionare l'intervallo di dati che si desidera trasporre e inserire righe nella finestra di dialogo popping. Vedi screenshot:
4. Clic OK. E l'intervallo selezionato è stato convertito come mostrato nell'immagine sottostante.
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!
