Come combinare più colonne in una singola colonna utilizzando VBA in Microsoft Excel

Anonim

Nel caso in cui tu abbia l'esigenza di combinare più colonne su una colonna e non ne avessi la minima idea, questo intero articolo è per te. In questo articolo impareremo come combinare più colonne in una colonna usando il codice vba.

Da sotto l'istantanea: -

Di seguito è riportata l'istantanea dell'output richiesto: -

Dobbiamo seguire i passaggi seguenti:

  • Fare clic sulla scheda Sviluppatore
  • Dal gruppo Codice seleziona Visual Basic

Inserisci il seguente codice nel modulo standard

Sub MultipleColumns2SingleColumn()

Const shName1 As String = "Sheet1" 'Cambia il nome del foglio qui

Const shName2 As String = "Foglio2"

Dim arr, arrNames

Con fogli di lavoro (shName1)

arrNames = .Range("F1", .Cells(1, Columns.Count).End(xlToLeft))

Per i = 2 a .Cells(Rows.Count, 1).End(xlUp).Row

arr = .Cells(i, 1).Resize(, 4)

Con fogli di lavoro (shName2)

Con .Cells(Rows.Count, 1).End(xlUp)

.Offset(1).Resize(UBound(arrNames, 2), 4) = arr

.Offset(1, 5).Resize(UBound(arrNames, 2)) = Application.Transpose(arrNames)

Termina con

Termina con

Prossimo

Termina con

Fine sottotitolo

Mentre esegui la macro; la macro trasferirà i dati da più colonne a una singola colonna.

In questo modo possiamo combinare più dati di colonne in un'unica colonna.