Kết hợp nhiều cột thành một trên Excel

Việc sử dụng macro này sẽ cho phép bạn chuyển đổi hoặc chuyển đổi dữ liệu từ nhiều hàng và cột trên bảng tính Microsoft Excel thành một cột duy nhất.

Chuyển đổi hàng & cột thành cột đơn

Giả sử bạn có dữ liệu sau trong bảng tính Excel :

 480.000 600.000 720.000
520.000 650.000 780.000
300.000 375.000 450.000
432.000 540.000 648.000
260.000 325.000 390.000
304.000 380.000 456.000
340.000 425.000 510.000
304.000 380.000 456.000

Macro của chúng tôi sẽ cho phép bạn chuyển đổi dữ liệu trên để nó đọc như thế này trên tài liệu của bạn:

 480.000
520.000
300.000
432.000
260.000
304.000
340.000
304.000
600.000
650.000
375.000
540.000
325.000
380.000
425.000
380.000
720.000
780.000
450.000
648.000
390.000
456.000
510.000
456.000 

Macro này được lập trình với giả định rằng dữ liệu của bạn nằm trong khoảng từ hàng 1 đến hàng 8 và cột A đến C. Lưu ý rằng bạn có thể điều chỉnh macro để khớp với tập dữ liệu chính xác của mình.

Cũng lưu ý rằng kiểm tra macro là một macro hoạt động, trong khi hoàn tác sẽ hoàn tác kết quả của macro.

 Kiểm tra phụ ()
Dim j As Long, k As Long, r As Range, Dest As Range
j = Phạm vi ("A1"). Kết thúc (xlToRight) .Column
Với k = 1 đến j
Đặt r = Phạm vi (Ô (1, k), Ô (1, k) .End (xlDown))
r.Copy
Đặt Dest = Cells (Rows.Count, "A"). End (xlUp). Offerset (3, 0)
Dest.Paste Đặc biệt
Tiếp theo k
Kết thúc phụ
Sub hoàn tác ()
Dim r As Phạm vi
Đặt r = Range ("a1"). End (xlDown) .Packset (1, 0)
Đặt r = Range (r, Cells (Rows.Count, "A"). End (xlUp))
r.EntireRow.Delete
Kết thúc phụ