Lê văn quyết
Lê văn quyết
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 265 lượt xem

Em có một dữ liệu copy vào hỗn độn có cách nào tách ra từng đơn vị như

Chào thày.

Em có một dữ liệu copy vào hỗn độn, có cách nào tách ra từng đơn vị như hình dưới không ạ, thày giúp em



Thảo luận 3 câu trả lời
Lượt xem 265 lượt xem
Vỗ tay vỗ tay
Lê văn quyết 15:08 - Aug 16, 2021

Chào bạn bạn xem nhé

Option Explicit
Sub Xulydulieu()
    Dim arr As Variant, j As Long, i As Long, x As Variant, dc As Long
    dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    arr = Sheet1.Range("A1:A" & dc).Value
    For i = LBound(arr, 1) To UBound(arr, 1)
       x = Split(arr(i, 1), " ")
       For j = 0 To UBound(x)
         dc = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row + 1
         Sheet1.Range("B" & dc).Value = x(j)
       Next j
    Next i
End Sub














Vỗ tay vỗ tay
Lê văn quyết 16:08 - Aug 16, 2021

Em cảm ơn thày ạ, để em dùng code của thày làm theo ý tưởng của em, có gì không hiểu mong thày hướng dẫn.

Vỗ tay vỗ tay
Lê văn quyết 17:08 - Aug 16, 2021

ok bạn 

Vỗ tay vỗ tay
Câu hỏi liên quan
© 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