Für den Fall, dass Sie mehrere Spalten zu einer Spalte kombinieren möchten und keine Ahnung haben, 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:-
Im Folgenden sehen Sie die Momentaufnahme der erforderlichen Ausgabe:
Wir müssen die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
Geben Sie den folgenden Code in das Standardmodul ein
Sub MultipleColumns2SingleColumn()
Const shName1 As String = "Sheet1" 'Blattname hier ändern
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Mit Arbeitsblättern(shName1)
arrNames = .Range("F1", .Cells(1, Columns.Count).End(xlToLeft))
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
arr = .Zellen(i, 1).Größe ändern(, 4)
Mit Arbeitsblättern(shName2)
Mit .Cells(Rows.Count, 1).End(xlUp)
.Offset(1).Resize(UBound(arrNames, 2), 4) = arr
.Offset(1, 5).Resize(UBound(arrNames, 2)) = Application.Transpose(arrNames)
Ende mit
Ende mit
Nächste
Ende mit
End Sub
Während Sie das Makro ausführen; Das Makro überträgt die Daten aus mehreren Spalten in eine einzelne Spalte.
Auf diese Weise können wir mehrere Spaltendaten in einer einzigen Spalte kombinieren.
