Làm thế nào để chia một cột dài thành nhiều cột trong Excel?
Chia cột dài thành nhiều cột bằng VBA
Chia một cột dài thành nhiều cột với Kutools cho Excel
Chia cột dài thành nhiều cột bằng VBA
1. nhấn Alt + F11 chìa khóa với nhau để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun và sao chép mã VBA theo sau vào cửa sổ bật ra.
VBA: Chia cột dài thành nhiều cột.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. nhấp chuột chạy nút hoặc bấm F5 để chạy VBA và một hộp thoại hiện ra để chọn danh sách dữ liệu, sau đó bấm OK để xác định số hàng trong một cột bạn cần trong hộp thoại tiếp theo, sau đó nhấp vào OK và chọn một ô để xuất kết quả. Xem ảnh chụp màn hình:
 |
 |
 |
|
 |
4. nhấp chuột OK, sau đó bạn có thể thấy cột dài được chia thành nhiều cột và mỗi cột có 15 ô.
Chia một cột dài thành nhiều cột với Kutools cho Excel
Có thể một số bạn không thích sử dụng mã VBA, may mắn thay, bạn có thể sử dụng Phạm vi chuyển đổi tiện ích của Kutools cho Excel để nhanh chóng và dễ dàng chuyển đổi một cột dài thành một số cột cố định.
| Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. |
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:（Tải xuống miễn phí Kutools cho Excel ngay!)
1. Chọn dữ liệu cột bạn muốn tách, sau đó nhấp vào Kutools > Phạm vi > Phạm vi chuyển đổi. Xem ảnh chụp màn hình:
2. Trong hộp thoại hiện ra, hãy kiểm tra Một cột thành dải ô tùy chọn, sau đó kiểm tra Giá trị cố định và nhập số cột bạn cần vào hộp văn bản. Xem ảnh chụp màn hình:
3. nhấp chuột Ok và chọn một ô duy nhất để đưa ra dữ liệu tách. Xem ảnh chụp màn hình:
4. nhấp chuột OK để kết thúc các hoạt động. Bây giờ, dữ liệu cột dài đã được chia thành ba cột.
Nó có dễ hơn mã VBA không? Với Tphạm vi ransform tiện ích, bạn có thể chuyển đổi một hàng thành một dải ô, một dải ô thành một hàng hoặc một cột.
Chuyển đổi một cột / Hàng thành một dải ô hoặc ngược lại
Nhanh chóng chia một ô thành các cột hoặc hàng dựa trên dấu phân cách
|
| Trong Excel, để tách một ô thành các cột thật tẻ nhạt với Wizard từng bước. Nhưng vơi Kutools cho Excel's Chia ô tiện ích, bạn có thể: 1, chuyển đổi một ô thành các cột hoặc hàng dựa trên dấu phân cách; 2, chuyển đổi chuỗi thành văn bản và số; 3, chuyển đổi chuỗi dựa trên chiều rộng cụ thể, với các nhấp chuột. Nhấp để xem đầy đủ tính năng 30 ngày dùng thử miễn phí! |
 |
| Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn về số lượng 30 ngày |
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
- Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
- Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
- Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
- Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
- Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
- Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
- Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
- Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
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!
