Jeśli masz wymóg łączenia wielu kolumn w jedną kolumnę i nie masz pojęcia, to cały ten artykuł jest dla Ciebie. W tym artykule dowiemy się, jak łączyć wiele kolumn w jedną kolumnę za pomocą kodu vba.
Od dołu migawka:-
Poniżej znajduje się migawka wymaganych danych wyjściowych:-
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Wprowadź następujący kod w standardowym module
Sub MultipleColumns2SingleColumn()
Const shName1 As String = "Sheet1" 'Zmień tutaj nazwę arkusza
Const shName2 As String = "Arkusz2"
Dim arr, arrNames
Z Arkuszami (shName1)
arrNames = .Range("F1", .Cells(1, Columns.Count).End(xlToLeft))
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Komórki(i, 1)).Resize(, 4)
Z Arkuszami (shName2)
Z .Cells(Rows.Count, 1).End(xlUp)
.Offset(1).Resize(UBound(arrNames, 2), 4) = arr
.Offset(1, 5).Resize(UBound(arrNames, 2)) = Application.Transpose(arrNames)
Kończyć z
Kończyć z
Następny
Kończyć z
Napis końcowy
Podczas wykonywania makra; makro przeniesie dane z wielu kolumn do jednej kolumny.
W ten sposób możemy połączyć dane z wielu kolumn w jedną kolumnę.
