Jak transponować kolumny do wierszy i wstawiać nowe wiersze, aby wypełnić dane w programie Excel?
W tym artykule wprowadzam kod VBA, aby transponować kolumny do wierszy i wstawić nowe wiersze, aby wypełnić dane, jak pokazano na poniższym zrzucie ekranu, jeśli jesteś zainteresowany tą operacją, przejdź do poniżej, aby uzyskać więcej informacji.
Transponuj i wstawiaj wiersze za pomocą VBA
Transponuj i wstawiaj wiersze za pomocą VBA
Nie ma bezpośredniego sposobu na transpozycję zakresu i wstawienie wierszy w celu wypełnienia tych samych danych, ale tutaj mogę wprowadzić kod VBA, aby szybko rozwiązać to zadanie.
1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod VBA do okna modułu. Zobacz zrzut ekranu:
VBA: Transponuj i wstawiaj wiersze.
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. naciśnij F5 klawisz, aby uruchomić kod, a następnie wybierz zakres danych, który chcesz przetransponować, i wstaw wiersze w wyświetlanym oknie dialogowym. Zobacz zrzut ekranu:
4. kliknij OK. Wybrany zakres został przekonwertowany, jak pokazano poniżej.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!