Combiner le texte de la colonne et remplacer en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons créer une macro pour combiner le texte de deux colonnes consécutives en une seule colonne.
Les données brutes se composent du prénom et du nom, que nous souhaitons fusionner en une seule colonne.
Explication du code
IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row Le code ci-dessus est utilisé pour obtenir le numéro de ligne de la dernière cellule.
Cellules (i, 1) = Cellules (i, 1) & « » & Cells (i, 2)
Le code ci-dessus concatène les valeurs de la cellule de la colonne 1 et de la colonne 2.
Columns (2) .Delete Le code ci-dessus est utilisé pour supprimer la deuxième colonne.
Veuillez suivre ci-dessous pour le code
Option Explicit Sub CombiningData() 'Declaring variables Dim i As Integer, IntRow As Long 'Disabling screen updates Application.ScreenUpdating = False 'Getting row number of last cell IntRow = Cells(Rows.Count, 1).End(xlUp).Row 'Looping from 13th row to last row For i = 13 To IntRow 'Concatenating the value of two consecutive cells Cells(i, 1) = Cells(i, 1) & " " & Cells(i, 2) Next 'Assigning value to cell A12 Range("A12") = "Name" 'Deleting second column Columns(2).Delete 'Auto adjusting the size of cells in columns Columns.AutoFit 'Enabling screen updates Application.ScreenUpdating = True End Sub
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]