Excel konvertieren von Spalten, um neue Zeilen

Ich habe eine Tabelle, die wie folgt aussieht:

  |   A   |     B      |     C      |     D      |
  +-------+------------+------------+------------+
1 | Name  | Language 1 | Language 2 | Language 3 |
  +=======+============+============+============+
2 | John  | English    | Chinese    | Spanish    | 
3 | Wendy | Chinese    | French     | English    | 
4 | Peter | Spanish    | Chinese    | English    |

Und ich möchte erzeugen eine Tabelle mit nur einer Spalte Sprache. Die beiden anderen Sprache, die Spalten werden als neue Zeilen wie diese:

   |   A   |    B     | 
   +-------+----------+
 1 | Name  | Language |
   +=======+==========+
 2 | John  | English  |
 3 | John  | Chinese  |
 4 | John  | Spanish  |
 5 | Wendy | Chinese  |
 6 | Wendy | French   |
 7 | Wendy | English  |
 8 | Peter | Spanish  |
 9 | Peter | Chinese  |
10 | Peter | English  |

Ich verstehe dies wird wahrscheinlich benötigen, ein makro oder so etwas. Wenn jemand mich in die richtige Richtung wäre es mir viel zu schätzen. Ich bin nicht sehr vertraut mit VBA oder Excel-Objekt-Modell.

InformationsquelleAutor McShaman | 2013-04-02
  1. 4

    Dies wird den trick tun. Es ist auch dynamischen unterstützt so viele Sprachen Spalten, wie Sie wollen, mit so vielen Sprachen pro person.
    Übernimmt die Daten, die formatiert ist, wie pro Beispiel:

    Sub ShrinkTable()
    Dim maxRows As Double
    Dim maxCols As Integer
    Dim data As Variant
    maxRows = Cells(1, 1).End(xlDown).row
    maxCols = Cells(1, 1).End(xlToRight).Column

    data = Range(Cells(1, 1), Cells(maxRows, maxCols))

    Dim newSht As Worksheet
    Set newSht = Sheets.Add

    With newSht

        .Cells(1, 1).Value = "Name"
        .Cells(1, 2).Value = "Column"

        Dim writeRow As Double
        writeRow = 2

        Dim row As Double
        row = 2
        Dim col As Integer

        Do While True

            col = 2
            Do While True
                If data(row, col) = "" Then Exit Do 'Skip Blanks

                'Name
                .Cells(writeRow, 1).Value = data(row, 1)

                'Language
                .Cells(writeRow, 2).Value = data(row, col)

                writeRow = writeRow + 1
                If col = maxCols Then Exit Do 'Exit clause
                col = col + 1
            Loop

            If row = maxRows Then Exit Do 'exit cluase
            row = row + 1
        Loop

    End With
End Sub
    • +1 wusste nichts über das Ende.Zeile und Ende.Spalte. Sie brauchen nur zu addieren .Name = "Master" unter der With newSht Befehl, um vollständig erfüllen die OP ' s Frage.
    • Geändert gemäß Vorschlag.
    • Ich entschuldige mich, ich sagte zu die falsche Frage. Neue "Master" - Blatt wurde nie eine Anfrage der OP. Ich dachte nur so, weil Sie übertrug die Daten auf ein neues Blatt, ich glaube, er wollte, dass es getan im Ort. Sorry für die Fehler.
    • Das ist ok. Ich habe es in ein neues Blatt als die leichter zu überprüfen und zu werden Sie sicher, dass keine Daten verloren gehen. Einmal hat er das format, er will, er kann Sie kopieren wohin er will.
    • Eine neue Platte ist in Ordnung, Leute! Vielen Dank für Ihre Eingabe. Ich bin nur versuchen Sie es jetzt. Ich Berichte bald wieder.
    InformationsquelleAutor Potter Rafed
  2. 0

    Chaotisch aus, aber sollte funktionieren:

    For Each namething In Range("A1", Range("A1").End(xlDown))
    Range("A1").End(xlDown).Offset(1, 0) = namething.Value
    Range("A1").End(xlDown).Offset(0, 1) = namething.Offset(0, 2)
    Range("A1").End(xlDown).Offset(1, 0) = namething.Value
    Range("A1").End(xlDown).Offset(0, 1) = namething.Offset(0, 3)
    namething.Offset(0, 2) = ""
    namething.Offset(0, 3) = ""
Next

    Dann einfach irgendwie

    InformationsquelleAutor user2140261
  3. 0

    Folgende Formel sollte funktionieren. Die Daten in Tabelle2 würde immer spiegeln die Daten auf sheet1, so dass Sie nicht haben, zu re-führen Sie ein makro zum erstellen einer neuen Liste.

    Dass gesagt wird, mit einem makro zu generieren, ist es wahrscheinlich eine bessere Wahl, als es erlauben würde, mehr Forensoftware sollte, musst du noch eine 4. Sprache oder etwas, das zu einem späteren Zeitpunkt.

    In Tabelle2!A2

    =INDIRECT("Sheet1!A"&ABS(INT((ROW()+1)/3))+1)

    In Tabelle2!B2

    =INDIRECT("Sheet1!"&IF(ABS(INT((ROW()+1)/3)-(ROW()+1)/3)=0,"B",IF(ABS(INT((ROW()+1)/3)-(ROW()+1)/3)=(1/3),"C","D"))&ABS(INT((ROW()+1)/3))+1)

    Fügen Sie die Spaltenüberschriften in A1 und B1 dann AutoAusfüllen die Formel nach unten das Blatt.

    InformationsquelleAutor NickSlash
Schreibe einen Kommentar