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
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
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.
ok bạn