Làm thế nào để chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành danh sách hoặc hàng trong Excel?
Giả sử, bạn có một danh sách các giá trị ô được phân tách bằng dấu phẩy, bây giờ, bạn cần chuyển đổi các chuỗi văn bản được phân tách bằng dấu phẩy này thành nhiều hàng hoặc một cột như ảnh chụp màn hình sau. Làm thế nào có thể chia nhiều giá trị ô thành các hàng dựa trên dấu phân cách bằng dấu phẩy cùng một lúc trong Excel?
Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành các hàng có mã VBA
Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành các hàng với Kutools cho Excel
Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành các hàng có mã VBA
Mã VBA sau có thể giúp bạn chuyển đổi nhiều giá trị ô được phân tách bằng dấu phẩy thành một cột, vui lòng thực hiện như sau:
1. Giữ Alt + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Mô-đun Cửa sổ.
Mã VBA: Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành hàng hoặc danh sách
Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
Dim xArr() As String
Dim xAddress As String
Dim Rg As Range
Dim Rg1 As Range
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If Rg1 Is Nothing Then Exit Sub
xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
Rg1.Parent.Activate
Rg1.Resize(UBound(xArr) + 1).Select
End Sub
3. Sau đó nhấn F5 để chạy mã này, trong hộp thoại hiện ra, hãy chọn phạm vi dữ liệu mà bạn muốn chuyển đổi, xem ảnh chụp màn hình:
4. và bấm OK, trong hộp thoại sau, chỉ định một ô mà bạn muốn xuất kết quả, xem ảnh chụp màn hình:
5. Nhấp chuột OK , các giá trị ô được phân tách bằng dấu phẩy đã chọn đã được chuyển đổi thành danh sách các hàng. Xem ảnh chụp màn hình:
Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành các hàng với Kutools cho Excel
Nếu bạn có Kutools cho Excel, Với khả Chia ô tiện ích, bạn có thể nhanh chóng chia các giá trị ô được phân tách bằng dấu phẩy thành nhiều hàng hoặc cột dựa trên dấu phân cách bằng dấu phẩy khi bạn cần.
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 trong 30 ngày. |
Sau khi cài đặt Kutools cho Excel, vui lòng thực hiện theo các bước sau:
1. Chọn giá trị ô mà bạn muốn chuyển đổi thành hàng dựa trên dấu phân cách bằng dấu phẩy.
2. Sau đó nhấn vào Kutools > Hợp nhất & Tách > Chia ô, xem ảnh chụp màn hình:
3. Trong Chia ô hộp thoại, chọn Chia thành hàng tùy chọn theo Kiểu và sau đó từ Chỉ định dấu phân tách phần, kiểm tra Nền tảng khác hộp kiểm và sau đó nhập dấu phẩy vào hộp văn bản, xem ảnh chụp màn hình:
4. Sau đó nhấn vào Okvà một hộp thoại khác sẽ bật ra để nhắc bạn chọn một ô để đặt kết quả, hãy xem ảnh chụp màn hình:
5. Và sau đó nhấp vào Ok , các ô được phân tách bằng dấu phẩy đã được chia thành nhiều hàng dựa trên dấu phân cách bằng dấu phẩy, xem ảnh chụp màn hình:
Nhấp để biết thêm về tính năng Split Cells này…
Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!
Demo: Chuyển đổi chuỗi văn bản được phân tách bằng dấu phẩy thành các hàng với Kutools cho Excel
Các bài liên quan:
Làm cách nào để chia ô thành nhiều cột hoặc nhiều hàng bằng ký tự xuống dòng?
Làm cách nào để chia giá trị ô thành nhiều cột trong Excel?
Công cụ năng suất văn phòng tốt nhất
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...
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!