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.

ArrowRawData

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.

ArrowOutput

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]