Gửi bởi
lamhongquanghp
Em có 1 file dữ liệu có 1 dòng chưa nhiều dữ liệu cần tách ra mỗi dữ liệu 1 dòng. Bác nào có công thức làm chỉ em với
Đây là dữ liệu của em
Ví dụ: với số công bố 34520 thì có 9 mã hàng, giờ em muốn tách ra thành 9 dòng, mỗi dòng là 2 cột gồm 1 cột ghi số công bố 34520 và cột còn lại ghi 1 trong 9 mã hàng trên
Đa tạ các bác
Bạn tham khảo:
Mã nguồn PHP:
Sub abc() Dim x, dArr(), Sp Dim i As Long, j As Long, k As Long, n As Long Application.ScreenUpdating = False With Range("A4").CurrentRegion x = .Value ReDim dArr(1 To UBound(x) * 5, 1 To UBound(x, 2)) For i = 1 To UBound(x) Sp = Split(x(i, 3), ",") For j = 0 To UBound(Sp) If Len(Sp(j)) Then k = k + 1 For n = 1 To UBound(x, 2) - 1 dArr(k, n) = x(i, n) Next n dArr(k, n) = Sp(j) End If Next j Next i .Resize(k).Value = dArr() End With Columns.AutoFit Application.ScreenUpdating = TrueEnd Sub