Trong bài viết này, chúng ta sẽ tạo macro để kết hợp văn bản từ hai cột liên tiếp thành một cột duy nhất.

Dữ liệu thô bao gồm Tên và Họ, mà chúng ta muốn hợp nhất thành một cột duy nhất.

ArrowRawData

Giải thích mã

IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row Đoạn mã trên được sử dụng để lấy số hàng của ô cuối cùng.

Cells (i, 1) = Cells (i, 1) & “” & Cells (i, 2)

Đoạn mã trên nối các giá trị từ ô trong cột 1 và cột 2.

Các cột (2) .Xóa Đoạn mã trên được sử dụng để xóa cột thứ hai.

ArrowOutput

Vui lòng theo dõi bên dưới để biết mã

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

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]