在本文中，我们将创建一个宏，以将两个连续列中的文本组合到单个列中。

原始数据由“名”和“姓”组成，我们希望将其合并为一个列。

ArrowRawData

代码说明

IntRow = Cells（Rows.Count，1）.End（xlUp）.Row上面的代码用于获取最后一个单元格的行号。

单元格（i，1）=单元格（i，1）＆“”和单元格（i，2）

上面的代码连接了第1列和第2列中单元格的值。 Columns（2）.Delete上面的代码用于删除第二列。

ArrowOutput

请遵循以下代码

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

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

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]