В этой статье мы создадим макрос для объединения текста из двух последовательных столбцов в один столбец.

Исходные данные состоят из имени и фамилии, которые мы хотим объединить в один столбец.

ArrowRawData

Объяснение кода

IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row Приведенный выше код используется для получения номера строки последней ячейки.

Cells (i, 1) = Cells (i, 1) & «» & Cells (i, 2)

Приведенный выше код объединяет значения из ячейки в столбце 1 и столбце 2.

Столбцы (2). Удалить Приведенный выше код используется для удаления второго столбца.

ArrowOutput

Пожалуйста, введите код ниже

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

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]