Tách dữ liệu trong một ô thành nhiều dòng

Chào các bạn,

Rất mong các bạn giúp mình cách để chia nhỏ dữ liệu của 1 ô thành nhiều dòng như trong hình. Cám ơn các bạn rất nhiều.
2019

Đã không rành VBA, nhờ ngươi ta viết code giùm mà lại chọn ngay cái kết quả thuộc loại về sau này muốn làm gì nữa lại phải nhờ viết code..
Muốn nói chuyện VBA thì phải bỏ đi cái ý tưởng merged cells hoặc cách ghi dữ liệu vào một ô rồi "tự nghiệm" ra các dòng còn lại.

Nếu không, muốn làm gì ở bảng KQ lại phải lên đây nhờ trợ giúp.
Bất cứ cái sông thức nào trên bảng KQ đều có khả năng là công thức khủng.

Chạy sub . . . .

Sub ABC()
  Dim arr(), S, res(), ch10$
  Dim sRow&, sCol&, i&, j&, r&, k&, eR&, maxR&
  Const srRes& = 9999 'gioi han so dong ket qua: 9999

ch10 = Chr(10)
  ReDim res(1 To srRes, 1 To 5)
  With Sheets("DATA")
    arr = .Range("A1", .Range("E" & Rows.Count).End(xlUp)).Value
  End With
  sRow = UBound(arr): sCol = UBound(arr, 2)
  On Error Resume Next
  For i = 1 To sRow
    maxR = 0
    For j = 1 To sCol
      k = eR
      S = Split(ch10 & arr(i, j), ch10)
      For r = 1 To UBound(S)
        k = k + 1
        res(k, j) = S(r)
      Next r
      If maxR < k Then maxR = k
    Next j
    eR = maxR
  Next i
  If Err.Number > 0 Then
    MsgBox ("So dong ket qua khai bao thieu !" & ch10 & "Khai bao lai: Const srRes& = ??????")
    Exit Sub
  End If
  With Sheets("KETQUA")
    If .Range("A1").Value <> Empty Then .Range("A1").CurrentRegion.ClearContents
    .Range("A1").Resize(eR, 5) = res
  End With
End Sub

Cám ơn hai bạn @VetMini và @HieuCD đã hỗ trợ. Thật tình mình cũng là người nhận việc từ trên giao xuống chứ nhìn bảng dữ liệu mà có merge cell là mình muốn trốn như rắn trốn mùng năm. Mình cũng đã góp ý với các sếp về vấn đề tổ chức dữ liệu của bảng excel sao cho thuận tiện hơn.

Góp ý suông rất hiếm khi thành công.
Vấn đề này chỉ có bạn giải quyết được cho mình.
Lúc góp ý hay đề nghị, bạn phải hoàn toàn tự tin vào khả năng của mình.

Và cách duy nhất để bạn có thể hoàn toàn tự tin là cố học để bổ sung kiễn thức.
– Ở mọt trình độ nào đó, bạn sẽ không lúng túng khi người ta hạch ngwocj lại mình.
– Ở một mức hiểu biết về công việc quản lý nào đó, bạn sẽ hiểu làm cách nào cho người ta tin mình.
– Ở một mức hiểu biết về chung quanh nào đó, bạn sẽ có cách khuyên bảo người ta mà không gây mỏi lo sợ cho người ta – nhiều người chống cải tổ do nổi sợ bị coi là tụt hậu.

Tất cả 3 nổ lực trên đều có lợi cho tiền đồ của bạn. Không làm được là do bạn không cố gắng.

www.giaiphapexcel.com/diendan/threads/t%C3%A1ch-d%E1%BB%AF-li%E1%BB%87u-trong-m%E1%BB%99t-%C3%B4-th%C3%A0nh-nhi%E1%BB%81u-d%C3%B2ng.163883/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học