Comment échanger rapidement le contenu de deux cellules dans Excel?

Lorsque nous gérons une feuille de calcul, nous pouvons parfois avoir besoin d'échanger le contenu de deux cellules. Normalement, la plupart d'entre nous savent simplement «couper, coller et copier» pour échanger le contenu, mais cela prend du temps. Nous allons parler de la façon d'échanger rapidement le contenu des cellules dans Excel.

Échangez manuellement le contenu de deux cellules adjacentes
Échangez deux contenus de cellule non adjacents avec du code VBA
Échangez facilement deux contenus de cellule aléatoires en quelques clics seulement

Échangez manuellement le contenu de deux cellules adjacentes

Parfois, deux cellules adjacentes doivent être permutées. Nous pouvons le faire manuellement facilement. Regardez la capture d'écran suivante, je veux permuter les cellules A4 et B4, procédez comme suit:

1. Sélectionnez la cellule que vous souhaitez permuter. Dans cet exemple, sélectionnez la cellule A4.

2. presse Mission et placez le curseur sur la bordure droite.

3. Faites ensuite glisser le curseur vers la bordure droite de la cellule B4.

4. Lorsqu'il affiche "工», Relâchez la souris.

5. Et les deux contenus de cellule ont été échangés. Voir la capture d'écran:

Avec cette méthode, nous pouvons également permuter deux lignes ou colonnes adjacentes.

Échangez deux contenus de cellule non adjacents avec du code VBA

Lorsque les deux cellules ne sont pas adjacentes, la méthode ci-dessus ne fonctionnera pas. Nous pouvons les échanger avec du code VBA.

1. appuie sur le Ctrl et sélectionnez les deux cellules non adjacentes que vous souhaitez permuter.

2. Cliquez Développeur >Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer>Moduleet saisissez le code suivant dans le Module:

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3. Puis clique pour exécuter le code, puis une boîte de dialogue s'affiche pour vous permettre de sélectionner les deux cellules que vous souhaitez permuter. Voir les captures d'écran:

4. Cliquez Ok dans la boîte de dialogue contextuelle, les deux cellules sélectionnées sont permutées. Voir les captures d'écran:

Notes: Ce code VBA ne peut pas permuter la mise en forme des deux cellules.

Échangez facilement deux contenus de cellule aléatoires en quelques clics seulement

Avec Kutools pour Excel's Intervertir les plages utilitaire, nous pouvons non seulement permuter deux cellules, lignes ou colonnes adjacentes, mais également facilement permuter deux cellules, lignes ou colonnes non adjacentes.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Cliquez Kutools > Autonomie > Intervertir les plages, voir capture d'écran:

2. dans le Intervertir les plages boîte de dialogue, vous devez:

• (1) cliquez sur le premier bouton dans le Gamme Swap 1 pour sélectionner les cellules que vous souhaitez permuter.
• (2) cliquez sur le second bouton de Gamme Swap 2 pour sélectionner les cellules avec lesquelles vous allez échanger.
  Conseils: Vous pouvez sélectionner les deux plages avant d'appliquer la fonction, puis vous pouvez voir que les deux plages sélectionnées sont affichées séparément dans les cases Swap Range 1 et Swap Range 2.
• (3) Cliquez sur le OK .

Ensuite, deux cellules ou plages sélectionnées sont immédiatement permutées. Voir les captures d'écran:

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

Démo: échangez deux contenus de cellules aléatoires avec Kutools for Excel

Article connexe:

• Comment échanger des lignes ou des colonnes dans Excel?

Les meilleurs outils de productivité de bureau

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

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• 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 sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... 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 ...
• 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...
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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... Téléchargement Gratuit... Achat...