Trong trường hợp bạn có yêu cầu về việc kết hợp nhiều cột thành một cột và bạn không có manh mối thì toàn bộ bài viết này là dành cho bạn. Trong bài này, chúng ta sẽ học cách kết hợp nhiều cột thành một cột bằng cách sử dụng mã vba.

Ảnh chụp từ bên dưới: –

image 1

Sau đây là ảnh chụp nhanh yêu cầu đầu ra: –

image 2

Chúng ta cần làm theo các bước sau:

Nhấp vào tab Nhà phát triển Từ nhóm Mã chọn Visual Basic

image 3

Nhập mã sau vào mô-đun chuẩn

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = “Sheet1” ‘Thay đổi tên trang tính ở đây

Const shName2 As String = “Sheet2”

Dim arr, arrNames

Với Worksheets (shName1)

arrNames = .Range (“F1”, .Cells (1, Columns.Count) .End (xlToLeft))

Đối với i = 2 To .Cells (Rows.Count, 1) .End (xlUp) .Row

arr = .Cells (i, 1) .Resize (, 4)

Với Worksheets (shName2)

Với .Cells (Rows.Count, 1) .End (xlUp)

.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr

Kết thúc với

Kết thúc với

Tiếp theo

Kết thúc với

End Sub

Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)

image 4

Khi bạn thực thi macro; macro sẽ chuyển dữ liệu từ nhiều cột sang một cột duy nhất.

Bằng cách này, chúng ta có thể kết hợp dữ liệu nhiều cột trong một cột duy nhất.

image 5