Bỏ qua nội dung chính

Excel: Cách tách văn bản được phân tách thành các hàng

Giả sử đây là một bảng có ba cột trong một trang tính, cột đầu tiên liệt kê các mức giá, cột thứ hai liệt kê tên trái cây với dấu phẩy được phân tách trong các ô và cột thứ ba liệt kê giá của các loại trái cây. Công việc là chia các tên trái cây được phân tách thành các hàng và lặp lại các mức giá và hàng giá có liên quan như hình minh họa bên dưới:
doc điền văn bản dựa trên màu 1

Ở đây giới thiệu hai phương pháp để giải quyết công việc này.

Tách văn bản được phân tách thành các hàng bằng cách sử dụng VBA

Tách văn bản được phân cách thành các hàng bằng cách sử dụng Power Query


Tách văn bản được phân tách thành các hàng bằng cách sử dụng VBA

Đây là mã VBA có thể nhanh chóng chia văn bản được phân tách thành các hàng.

1. nhấn Khác + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn tab> Mô-đun để tạo một mô-đun trống mới.

3. Sao chép và dán mã bên dưới vào mô-đun trống.

VBA: Tách văn bản được phân tách thành các hàng

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. nhấn F5 phím để nhấp vào nút chạy doc điền văn bản dựa trên màu 1 để kích hoạt mã, một hộp thoại bật ra để bạn chọn cột loại trừ tiêu đề có chứa văn bản được phân tách cần được chia thành các hàng. Nhấp chuột OK.
doc điền văn bản dựa trên màu 1

5. Sau đó hộp thoại thứ hai bật lên để nhập dấu phân cách bạn sử dụng. Ở đây gõ dấu phẩy (,). Nhấp chuột OK.
doc điền văn bản dựa trên màu 1

Bây giờ các văn bản được phân tách đã được chia thành các hàng và các cột liên quan khác đã được lặp lại.
doc điền văn bản dựa trên màu 1

doc điền văn bản dựa trên màu 1  VBA sẽ thay đổi dữ liệu gốc, bạn nên lưu một bản sao của nó trước đó.


Tách văn bản được phân cách thành các hàng bằng cách sử dụng Power Query

Nếu bạn đang sử dụng phiên bản Excel 2013 trở lên, Power Query sẽ là một lựa chọn tốt để giải quyết công việc này.

1. Chọn phạm vi dữ liệu, để nhấp vào Ngày > Từ Bảng / Phạm vi.
doc điền văn bản dựa trên màu 1

2. Trong popping Tạo bảng hộp thoại, kiểm tra Bảng của tôi có tiêu đề khi bạn cần và nhấp vào OK.
doc điền văn bản dựa trên màu 1

Sau đó, Power Query Biên tập viên cửa sổ được hiển thị và dữ liệu đã được hiển thị trong đó.
doc điền văn bản dựa trên màu 1

3. Nhấp vào cột mà bạn muốn chia các văn bản được phân tách thành các hàng và nhấp vào Chuyển đổi tab> Cột tách > Bằng dấu phân cách.
doc điền văn bản dựa trên màu 1

Hoặc bạn cũng có thể chọn cột và nhấp chuột phải vào tiêu đề cột để chọn tính năng này trong menu ngữ cảnh.
doc điền văn bản dựa trên màu 1

4. bên trong Chia cột theo dấu phân cách cửa sổ, chọn dấu phân cách khi bạn cần từ Chọn hoặc nhập dấu phân cách phần, sau đó chọn Mỗi lần xuất hiện của dấu phân cách tùy chọn, và sau đó mở rộng Tùy chọn cấp cao phần để chọn Hàng tùy chọn. Nhấn vào đây OK.
doc điền văn bản dựa trên màu 1

Bây giờ các văn bản được phân tách đã được chia thành các hàng.
doc điền văn bản dựa trên màu 1

5. Sau đó đóng cửa sổ, một hộp thoại bật ra, nhấp vào Giữ .
doc điền văn bản dựa trên màu 1

Sau đó, một trang tính mới sẽ được tạo với bảng.
doc điền văn bản dựa trên màu 1


Hoạt động khác (Bài báo)

Làm cách nào để thay thế màu hàng dựa trên nhóm trong Excel?
Trong Excel, tô màu mọi hàng khác có thể dễ dàng hơn đối với hầu hết chúng ta, nhưng bạn đã bao giờ thử tô màu các hàng xen kẽ dựa trên sự thay đổi giá trị cột chưa - Cột A như ảnh chụp màn hình sau đây, trong bài viết này, tôi sẽ nói về cách để thay thế màu hàng dựa trên nhóm trong Excel.

Làm thế nào để giảm kích thước tệp Excel?
Đôi khi, sẽ mất vài phút để mở hoặc lưu nếu tệp Excel quá lớn. Để giải quyết vấn đề này, ở đây trong hướng dẫn này, nó sẽ cho bạn biết cách giảm kích thước tệp Excel bằng cách loại bỏ nội dung hoặc định dạng không cần thiết hoặc không bao giờ được sử dụng.

Excel: Cách tạo hoặc chèn dấu trang
Bạn đã bao giờ tưởng tượng việc tạo hoặc chèn một dấu trang để nhanh chóng chuyển đến một phạm vi dữ liệu cụ thể trong khi có nhiều dữ liệu trong một trang tính hoặc một sổ làm việc?

Làm thế nào để áp dụng tô bóng cho các hàng / cột lẻ hoặc chẵn (thay thế) trong Excel?
Trong khi thiết kế trang tính, nhiều người có xu hướng áp dụng tô bóng cho các hàng hoặc cột lẻ hoặc chẵn (thay thế) để làm cho trang tính trực quan hơn. Bài viết này sẽ chỉ cho bạn hai phương pháp để áp dụng đổ bóng cho các hàng / cột lẻ hoặc chẵn trong Excel.


  • 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 và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... 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 ...
  • Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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 !
  • Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
tab kte 201905
  • 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!
officetab dưới cùng
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations