Excel - Kombinieren Sie mehrere Spalten in eine Spalte

Ich habe mehrere Listen, in separaten Spalten in excel. Was ich tun müssen, ist, kombinieren Sie diese Spalten mit Daten in einer großen Spalte. Mir egal, wenn es doppelte Einträge, aber ich will es überspringen der Zeile 1 der jeweiligen Spalte.

Auch was, wenn ROW1 hat der Header von Januar bis Dezember, und die Länge der Spalten sind unterschiedlich und werden muss, kombinieren Sie in eine große Spalte?

ROW1| 1   2   3    
ROW2| A   D   G    
ROW3| B   E   H    
ROW4| C   F   I

kombinieren sollten in

Der ersten Zeile jeder Spalte übersprungen werden muss.

InformationsquelleAutor Akib | 2010-06-04

Versuchen. Klicken Sie irgendwo in Ihrem Bereich der Daten, und verwenden Sie dann dieses makro:

Sub CombineColumns()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1

For iCol = 2 To rng.Columns.Count
    Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
    ActiveSheet.Paste Destination:=Cells(lastCell, 1)
    lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub

Dies ist eine ausgezeichnete bit-code. Eine Sache im Auge zu behalten ist, dass ganze Zahl ist beschränkt auf 32768, so habe ich eine Lange zu speichern, iCol und lastCell.
Danke. Und ich Stimme zu, dass lange ist die robustere Wahl.

InformationsquelleAutor Alex P

9

Können Sie kombinieren die Spalten ohne Verwendung von Makros. Geben Sie die folgende Funktion in der Formel bar:

=IF(ROW()<=COUNTA(A:A),INDEX(A:A,ROW()),IF(ROW()<=COUNTA(A:B),INDEX(B:B,ROW()-COUNTA(A:A)),IF(ROW()>COUNTA(A:C),"",INDEX(C:C,ROW()-COUNTA(A:B)))))

Die Anweisung verwendet die 3 WENN-Funktionen, weil es verbinden muss 3 Spalten:
- Für Spalte A, die Funktion vergleicht die Zeilennummer einer Zelle mit der Anzahl der Zellen in Einer Spalte, die nicht leer sind. Wenn das Ergebnis true ist, gibt die Funktion den Wert der Zelle aus Spalte A, in Zeile(). Wenn das Ergebnis falsch ist, verschiebt die Funktion auf der nächsten IF-Anweisung.
- Für Spalte B, die Funktion vergleicht die Zeilennummer einer Zelle mit der Anzahl der Zellen in Einem: - B-Bereich, die nicht leer sind. Wenn das Ergebnis true ist, gibt die Funktion den Wert der ersten Zelle, die nicht leer ist in Spalte B. Wenn false, wird die Funktion bewegt sich auf die nächste IF-Anweisung.
- Für Spalte C, die Funktion vergleicht die Zeilennummer einer Zelle mit der Anzahl der Zellen in A:C-Bereich, die nicht leer sind. Wenn das Ergebnis true ist, gibt die Funktion eine leere Zelle und nicht mehr Berechnung. Wenn false, liefert die Funktion den Wert der ersten Zelle, die nicht leer ist in Spalte C.
- Dies ist eine erstaunliche Antwort !!
InformationsquelleAutor CristinaP
2

Erstellte ich eine Beispieltabelle hier, wie dies mit einfachen Excel-Formeln und ohne Makros (die Sie benötigen, um Ihre eigenen Anpassungen für das loswerden der ersten Reihe, aber dies sollte einfach sein, sobald Sie herausfinden, wie meine Beispiel-spreadsheet funktioniert):

https://docs.google.com/a/umich.edu/spreadsheet/ccc?key=0AuSyDFZlcRtHdGJOSnFwREotRzFfM28tWElpZ1FaR2c#gid=0

InformationsquelleAutor Kenny LJ

Nicht sicher, ob diese vollständig hilft, aber ich hatte ein Problem, wo ich brauchte eine "intelligente" Zusammenführen. Ich hatte zwei Spalten, A & B. ich wollte verschieben B über nur, wenn Eine leer war. Siehe unten. Es basiert auf einer Auswahl, die Sie verwenden können, um den offset der ersten Zeile vielleicht.

Private Sub MergeProjectNameColumns()
    Dim rngRowCount As Integer
    Dim i As Integer

    'Loop through column C and simply copy the text over to B if it is not blank
    rngRowCount = Range(dataRange).Rows.Count
    ActiveCell.Offset(0, 0).Select
    ActiveCell.Offset(0, 2).Select
    For i = 1 To rngRowCount
        If (Len(RTrim(ActiveCell.Value)) > 0) Then
            Dim currentValue As String
            currentValue = ActiveCell.Value
            ActiveCell.Offset(0, -1) = currentValue
        End If
        ActiveCell.Offset(1, 0).Select
    Next i

    'Now delete the unused column
    Columns("C").Select

    selection.Delete Shift:=xlToLeft
End Sub

InformationsquelleAutor Steven Dorfmeister

Function Concat(myRange As Range, Optional myDelimiter As String) As String 
  Dim r As Range 
  Application.Volatile 
  For Each r In myRange 
    If Len(r.Text) Then 
      Concat = Concat & IIf(Concat <> "", myDelimiter, "") & r.Text 
    End If 
  Next 
End Function

InformationsquelleAutor Mark Baker

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.