Hướng dẫn cách tách đoạn text theo dấu phẩy thành các dòng hoặc các cột trong Excel

Nội dung được viết bởi G-LEARNING

Trong bài viết này, Gitiho.com sẽ hướng dẫn các bạn các phương pháp để chia các giá trị ngăn cách bằng dấu phẩy thành các dòng hoặc các cột.

Chia các giá trị ngăn cách bằng dấu phẩy thành các cột bằng Text To Columns

Xem thêm: Thành thạo cách tách đoạn và +150 hàm Excel nhờ khóa học Excel này

1. Chọn vùng dữ liệu bạn muốn chia các giá trị thành cột, nhấp chọn Data > Text to Columns.

cong-cu-text-to-column-trong-excel

2. Trong hộp thoại Convert Text to Columns Wizard đầu tiên, chọn Delimited, nhấn nút Next.

cach-su-dung-text-to-column-trong-excel

3. Trong hộp thoại Convert Text to Columns Wizard thứ hai, chỉ đánh dấu chọn Comma trong phần Delimiters, nhấn Next.

tach-ky-tu-theo-dau-phay-bang-text-to-column

4. Trong hộp thoại Convert Text to Columns Wizard cuối cùng, chọn một ô tính đặt giá trị phân tách vào ô Destination, nhấn nút Finish.

tach-ky-tu-bang-text-to-column-theo-dau-phay

Tất cả giá trị trong ô được chọn từng được ngăn bằng dấu phẩy bây giờ đã được chia vào các cột khác nhau như hình sau:

ket-qua-tach-ky-tu-theo-dau-phay-bang-text-to-column-excel

Chia các giá trị ngăn cách bằng dấu phẩy thành các hàng bằng VBA

1. Nhấn giữ phím Alt + F11, cửa sổ Microsoft Visual Basic for Applications mở ra.

2. Nhấp Insert > Module, dán đoạn mã sau vào Module Window.

Sub SplitAll()

Dim xRg As Range

Dim xRg1 As Range

Dim xCell As Range

Dim I As Long

Dim xAddress As String

Dim xUpdate As Boolean

Dim xRet As Variant

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)

Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then

MsgBox "You can't select multiple columns", , "Hoc Excel Online"

Exit Sub

End If

Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)

Set xRg1 = xRg1.Range("A1")

If xRg1 Is Nothing Then Exit Sub

xUpdate = Application.ScreenUpdating

Application.ScreenUpdating = False

For Each xCell In xRg

xRet = Split(xCell.Value, ",")

xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)

I = I + UBound(xRet, 1) + 1

Next

Application.ScreenUpdating = xUpdate

End Sub

3. Nhấn F5 để chạy mã, một hộp thoại hiện ra để bạn chọn ô tính bạn muốn chia tách, nhấn OK.

su-dung-cong-cu-kutool-tach-ky-tu-trong-excel

4. Trong hộp thoại thứ hai, chọn một ô tính để đặt giá trị phân tách, nhấn OK.

cong-cu-kutool-tach-ky-tu-theo-dau-phay-trong-excel

Sau đó bạn thấy các giá trị từng được ngăn bằng dấu phẩy trong các ô tính được chọn đã được chia thành các dòng như hình sau:

tach-ky-tu-theo-dau-phay-ra-nhieu-dong-trong-cung-1-cot

Bạn đã dùng Excel lâu năm, nhưng đến giờ này vẫn còn đang:

  • Không biết sử dụng các chức năng trong Excel ở mục nào, mỗi lần động tới việc gì là phải lên mạng hỏi Google.
  • Biết vài hàm cộng trừ cơ bản, không giúp ích được quá nhiều trong công việc
  • Tốn nhiều thời gian làm việc, thường xuyên phải OT do không thành thạo Excel.
  • Không được tăng lương vì vẫn còn làm những bảng tính, báo cáo Excel sơ sài, kém chuyên nghiệp.
  • Không biết tự động hóa quy trình để làm việc nhàn hơn với marco hay VBA.

Vậy thì tại sao bạn không đăng ký ngay khóa học Tuyệt đỉnh Excel - Khóa học Excel online từ cơ bản đến nâng cao của Gitiho. Bạn sẽ nhanh chóng làm chủ công cụ này và tự tin khi thực hiện công việc từ tạo bảng tính, quản lý và tính toán số liệu, thành thạo các tính năng và hàm Excel, tạo và tùy chỉnh báo cáo và biểu đồ cho đến tự động hóa Excel bằng VBA.

Bấm vào Đăng ký ngay để bắt đầu học Excel cùng Gitiho nhé!

0/5 - (0 bình chọn)

0/5 - (0 bình chọn)

1 thảo luận

kien

kien 3 tháng trước

cảm ơn bạn đã chia sẻ rất hữu ích, mình mất 1 tháng dùng matlab ko chia được nay mới biết cách đơn giản này của bạn

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ thông tin và truyền thông