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 Shift 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 rapidement le contenu de deux cellules ou plages dans Excel:
Kutools for Excel's Intervertir les plages L'utilitaire vous aide à échanger facilement deux cellules ou plages spécifiées à la fois dans Excel, comme le montre la démonstration ci-dessous.
Téléchargez et essayez-le maintenant! (essai gratuit de 30 jours)
É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.
2Cliquez sur 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 for 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 for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Cliquez Kutools > Catégorie > 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.
Pourboires: 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:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
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!