Bỏ qua nội dung chính

Làm thế nào để chuyển đổi bảng chéo (bảng 2 chiều) sang danh sách trong Excel?

Bạn có biết cách chuyển đổi bảng chéo (bảng hai chiều) thành bảng danh sách (bảng một chiều) trong Microsoft Excel không? Vì một số lý do, bạn có thể cần chuyển đổi bảng (có tiêu đề hàng và tiêu đề cột) thành danh sách phẳng trong Excel. Các thủ thuật sau đây có thể giúp bạn chuyển đổi bảng chéo sang danh sách phẳng một cách dễ dàng và nhanh chóng:

Giả sử bạn có một bảng chéo và cần chuyển nó thành một danh sách như sau.

Bảng chéo (với tiêu đề hàng và tiêu đề cột) Bảng danh sách (bảng một chiều)

mũi tên màu xanh bong bóng bên phải Chuyển đổi bảng chéo thành danh sách trong Excel với VBA

Macro VBA sau có thể giúp bạn nhanh chóng chuyển đổi tất cả các bảng chéo trong trang tính đang hoạt động thành danh sách phẳng.

Bước 1: Giữ phím Khác + F11 trong Excel, và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấp Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

VBA trên bảng hoán vị chuyển vị sang danh sách:

Sub ConvertTableToList ()
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow càng lâu càng tốt
Dim iLastCol miễn là dài
Application.ScreenUpdating = Sai
Với ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Đối với i = iLastRow To 2 Step -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Đối với j = iLastCol đến 3 bước -1
.Rows (i + 1) .Insert
.Cells (i + 1, 2) .Value = .Cells (i, j) .Value
.Cells (i, j) .Value = ""
Tiếp theo j
Tiếp theo
.Rows (1) .Xóa
Kết thúc với
Application.ScreenUpdating = Đúng
End Sub

Bước 3: Nhấp vào F5 phím để chạy macro này.

Sau đó, bạn sẽ thấy danh sách được chuyển đổi hiển thị như ảnh chụp màn hình sau:

Lưu ý:

1. Macro VBA này làm mất một số dữ liệu của bảng gốc, chẳng hạn như tiêu đề hoặc các dữ liệu khác. Trong trường hợp này, các tiêu đề (Tên, Lớp và Lớp) bị mất.

2. Bạn có thể thay đổi As String = "A", để đáp ứng nhu cầu của bạn. Ví dụ: nếu bảng chéo được nêu trong Cột E, bạn nên thay thế "E" của "A".

3. Và nếu có dữ liệu khác trong trang tính, đôi khi dữ liệu trong danh sách sẽ bị sai sau khi chuyển đổi một bảng chéo.


mũi tên màu xanh bong bóng bên phải Chuyển đổi bảng chéo thành danh sách trong Excel với Kutools cho Excel

Nếu bạn có Kutools cho Excel được cài đặt, bạn có thể sử dụng nó Chuyển đổi kích thước bảng công cụ chuyển đổi bảng chéo sang danh sách phẳng một cách nhanh chóng.

Kutools cho Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay.

Bước 1: Chọn bảng mà bạn sẽ chuyển nó thành danh sách.

Bước 2: Nhấp vào Kutools >Sửa đổi > Chuyển đổi kích thước bảng. Xem ảnh chụp màn hình sau:

Bước 3: Trong hộp thoại Transpose Table Dimensions, chọn Bảng chéo sang danh sách và chọn Phạm vi kết quả bằng cách nhấp vào .

Bước 4: Nhấp OK .

Sau đó, bạn sẽ thấy bảng gốc được chuyển đổi thành một danh sách phẳng như ảnh chụp màn hình sau:

Chuyển đổi kích thước bảng cũng có thể chuyển đổi danh sách thành bảng chéo bảng. Để biết thêm thông tin, vui lòng truy cập Chuyển đổi kích thước bảng.


Các bài báo tương đối:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code, I translated very large tables into lists without any issues, worked a charm.
This comment was minimized by the moderator on the site
Brilliant! Kutools does the trick. Awesome guys thank you.
This comment was minimized by the moderator on the site
THANK YOU!! Your macro worked perfectly. I'll use your link if I choose to purchase KuTools.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations