In diesem Artikel erstellen wir ein Makro, um Text aus zwei aufeinander folgenden Spalten zu einer einzigen Spalte zu kombinieren.

Rohdaten bestehen aus Vorname und Nachname, die wir in einer einzigen Spalte zusammenführen möchten.

ArrowRawData

Code Erklärung

IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle abzurufen.

Zellen (i, 1) = Zellen (i, 1) & „“ & Zellen (i, 2)

Der obige Code verkettet Werte aus der Zelle in Spalte 1 und Spalte 2.

Spalten (2). Löschen Mit dem obigen Code wird die zweite Spalte gelöscht.

ArrowOutput

Bitte folgen Sie unten für den 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

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]