zu einer einzigen Spalte Wenn Sie mehrere Spalten mit einer Spalte kombinieren müssen und keine Ahnung hatten, ist dieser ganze Artikel für Sie. In diesem Artikel erfahren Sie, wie Sie mithilfe von VBA-Code mehrere Spalten zu einer Spalte kombinieren.

Von unten Schnappschuss: –

image 1

Es folgt die Momentaufnahme der erforderlichen Ausgabe: –

image 2

Wir müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code Visual Basic

image 3

aus Geben Sie den folgenden Code in das Standardmodul

ein === Sub MultipleColumns2SingleColumn ()

Const shName1 As String = „Sheet1“ ‚Blattnamen hier ändern

Const shName2 As String = „Sheet2“

Dim arr, arrNames

Mit Arbeitsblättern (shName1)

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

Für i = 2 To .Cells (Rows.Count, 1) .End (xlUp) .Row

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

Mit Arbeitsblättern (shName2)

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

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

End With

End With

Weiter

End With

End Sub

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

image 4

Während Sie das Makro ausführen; Das Makro überträgt die Daten von mehreren Spalten in eine einzelne Spalte.

Auf diese Weise können wir mehrere Spaltendaten in einer einzigen Spalte kombinieren.

image 5