列のテキストを組み合わせて、Microsoft ExcelでVBAを使用して置き換える

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