Comment faire pour transposer une colonne dans une ligne dans Excel

J'ai la suite de feuille de calcul Excel:

   A
1 foo
2 bar
3 baz
4 bam

(En réalité, la colonne est beaucoup, beaucoup plus transponing à la main n'est pas une option). Comment puis-je transformer cette feuille dans

   A   B   C   D
1 foo bar baz bam

J'ai essayé le tableau croisé dynamique de la fonction, mais n'arrive pas à obtenir le résultat que je veux. Je pourrais aussi écrire un (php) texte à lire et transformer le Excel, mais je ne peux pas imaginer que c'est quelque chose qui n'est pas facile à faire dans Excel. Cependant, j'ai été incapable de trouver la réponse à ce problème. Pouvez-vous m'aider?

vous pouvez simplement copy and pastspecial transpose en utilisant le menu clic-droit, ou avez-vous besoin de faire cela en VBA?

OriginalL'auteur Pr0no | 2013-02-27

  1. 7

    Il y a deux facile, non programmatique façons:

    1. Copie des données et à la cible, utilisez collage Spécial->Transposer
    2. Appliquer la TRANSPOSE fonction de feuille de calcul: sélectionnez la plage de la transposée de la taille (dans votre exemple 1: lignes x 4 colonnes et entrez =TRANSPOSE(A1:A4). Il vous faut la saisir comme une formule de matrice, c'est à dire appuyer sur Ctrl-Maj-Entrée

    Si pour quelque raison vous avez besoin de le faire via le code, ce code VBA?:

    Sub CopyTransposed(rngSource As Range, rngTargetCell As Range)
    rngTargetCell.Resize(rngSource.Columns.Count, rngSource.Rows.Count).Value = _
        Application.WorksheetFunction.Transpose(rngSource)
End Sub

    Vous pouvez simplement appeler comme ceci:

    CopyTransposed [A1:A4], [C1]

    ou, pour être plus explicite

    CopyTransposed Sheets("SourceSheet").Range("A1:A4"),Sheets("TargetSheet").Range("C1")

    OriginalL'auteur Peter Albert

  2. 3

    Si vous avez besoin seulement de transposer les données, (c'est à dire pas les formats d'essayer de

    Sub zx()
    Dim rng As Range
    Dim dat As Variant

    With ActiveSheet ' can be any sheet
        Set rng = .[A1:A5] ' get refernce to your data, by any means
        dat = rng ' copy data to array
        rng.Clear ' clear old data

        ' paste transposed data
        .Range(rng.Cells(1, 1), Cells(rng.Row, rng.Rows.Count)) = Application.Transpose(dat)
    End With
End Sub
    +1 très très belle VBA !

    OriginalL'auteur chris neilsen

  3. 0

    Ctrl+C pour copier et coller à l'aide de collage Spécial. Cliquez sur la transposition de la boîte de dialogue.

    Cela va coller en tant que valeurs....

    OriginalL'auteur Kevin