Versuchen Sie dieses Makro in vba, wählen Sie die Spalten und drücken Sie dann (Alt + F11) und in dem Modul des Fügen Sie diesen Code ein:
Sub MakeOneColumn()
Dim vaCells As Variant
Dim vOutput() As Variant
Dim i As Long, j As Long
Dim lRow As Long
If TypeName(Selection) = "Range" Then
If Selection.Count > 1 Then
If Selection.Count <= Selection.Parent.Rows.Count Then
vaCells = Selection.Value
ReDim vOutput(1 To UBound(vaCells, 1) * UBound(vaCells, 2), 1 To 1)
For j = LBound(vaCells, 2) To UBound(vaCells, 2)
For i = LBound(vaCells, 1) To UBound(vaCells, 1)
If Len(vaCells(i, j)) > 0 Then
lRow = lRow + 1
vOutput(lRow, 1) = vaCells(i, j)
End If
Next i
Next j
Selection.ClearContents
Selection.Cells(1).Resize(lRow).Value = vOutput
End If
End If
End If
End Sub
Drücken Sie dann F5, um das Makro auszuführen.
Kopierte Spalten zu G.Sheets. die Formel eingegeben .. und Happy Camper = mich .. – osomanden
Es gibt einen Vorschlag hier für Excel, aber viel komplizierter http://www.get-digital-help.com/2009/03/16/unique-values- from-multiple-columns-mit-array-formeln / –