Comment copier et coller des lignes ou des colonnes dans l'ordre inverse dans Excel?

Parfois, vous devrez peut-être copier et coller une liste de colonnes ou de lignes dans l'ordre inverse verticalement ou horizontalement, comme illustré ci-dessous. Comment pourriez-vous gérer ce travail rapidement et facilement dans Excel?

Copiez et collez une liste de colonnes ou de lignes dans l'ordre inverse avec la formule

Copiez et collez une plage de colonnes ou de lignes dans l'ordre inverse avec le code VBA

Copiez et collez une plage de colonnes ou de lignes dans l'ordre inverse avec une fonctionnalité géniale

Copiez et collez une liste de colonnes ou de lignes dans l'ordre inverse avec la formule

Copiez et collez une liste de colonnes dans l'ordre inverse verticalement

Si vous souhaitez inverser une liste de cellules de colonne, vous pouvez appliquer la formule ci-dessous:

Entrez ou copiez la formule suivante dans une cellule vide dans laquelle vous souhaitez inverser l'ordre des colonnes:

Notes: Dans la formule ci-dessus, A1 est la première cellule de la colonne, et A15 est la dernière cellule de la colonne.

Ensuite, faites glisser la poignée de remplissage vers les cellules pour extraire les valeurs de cellule dans l'ordre inverse, comme illustré ci-dessous:

Copiez et collez une liste de lignes dans l'ordre inverse horizontalement

Pour copier et coller une liste de lignes dans l'ordre inverse, veuillez utiliser la formule suivante:

Entrez ou copiez cette formule dans une cellule vide:

Notes: Dans la formule ci-dessus, A1 est la première cellule de la ligne, et 1:1 est le numéro de ligne que vos données ont localisé. Si vos données à la ligne 10, vous devez les changer en 10:10.

Et puis, faites glisser la poignée de remplissage vers les cellules que vous souhaitez appliquer cette formule jusqu'à ce que toutes les valeurs soient extraites, et vous obtiendrez toutes les valeurs ont été inversées horizontalement, voir capture d'écran:

Copiez et collez une plage de colonnes ou de lignes dans l'ordre inverse avec le code VBA

Si vous avez besoin de copier et coller une plage de colonnes ou de lignes dans l'ordre inverse, je vais ici présenter quelques codes VBA pour le résoudre rapidement et facilement. Veuillez suivre les étapes suivantes:

Copiez et collez une liste de colonnes dans l'ordre inverse verticalement

1. Tout d'abord, vous devez copier et coller vos données dans un nouvel emplacement, puis maintenir la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: copiez et collez une plage de cellules dans l'ordre inverse verticalement

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner la plage de données que vous souhaitez inverser verticalement, voir capture d'écran:

4. Et puis, cliquez OK bouton, et la plage de données a été inversée verticalement comme ci-dessous les captures d'écran:

Copiez et collez une plage de cellules dans l'ordre inverse horizontalement

Pour inverser la plage de données dans l'ordre horizontal, veuillez appliquer le code VBA ci-dessous:

Code VBA: copiez et collez une plage de cellules dans l'ordre inverse horizontalement

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Après avoir exécuté ce code, vous obtiendrez les captures d'écran suivantes selon vos besoins:

Copiez et collez une plage de colonnes ou de lignes dans l'ordre inverse avec une fonctionnalité géniale

Si vous n'êtes pas familier avec les formules ci-dessus et les codes VBA, ici, je vous recommanderai un outil simple-Kutools for Excel, Avec son Retourner la plage verticale et Retourner la plage horizontale fonctionnalités, vous pouvez inverser la plage de cellules verticalement et horizontalement en un seul clic.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

Copiez et collez une plage de cellules dans l'ordre inverse horizontalement

1. Sélectionnez la plage de cellules, puis cliquez sur Kutools > Catégorie > Retourner la plage verticale > Tous (inverser uniquement les valeurs), voir capture d'écran:

2. Et puis, la plage de valeurs de cellule a été inversée verticalement à la fois, voir les captures d'écran:

Copiez et collez une plage de cellules dans l'ordre inverse horizontalement

1. Sélectionnez la plage de cellules, puis cliquez sur Kutools > Catégorie > Retourner la plage horizontale > Tous (inverser uniquement les valeurs), voir capture d'écran:

2. Et puis, toutes les valeurs de cellule de la sélection ont été immédiatement inversées horizontalement, voir les captures d'écran:

Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!

Plus d'articles relatifs au copier-coller:

---

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...