Om du har ett krav på att kombinera flera kolumner med kolumnen och du inte hade en aning är hela den här artikeln något för dig. I den här artikeln kommer vi att lära oss hur man kombinerar flera kolumner till en kolumn med hjälp av vba -kod.
Nedanifrån ögonblicksbild:-
Följande är ögonblicksbilden av kräver utdata:-
Vi måste följa stegen nedan:
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
Ange följande kod i standardmodulen
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Ändra bladnamn här
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Med kalkylblad (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
För i = 2 Till. Celler (Rader.räkning, 1) .Slut (xlUp) .Rad
arr = .Celler (i, 1) .Resize (, 4)
Med kalkylblad (shName2)
Med .Celler (rader.räkning, 1) .Slut (xlUp)
.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr
.Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)
Sluta med
Sluta med
Nästa
Sluta med
Avsluta Sub
När du kör makrot; makrot kommer att överföra data från flera kolumner till en enda kolumn.
På så sätt kan vi kombinera flera kolumndata i en enda kolumn.
