Tách Mell thành nhiều Cell

[vidangtinhyeu99]

Hiện tại mình có một bảng tính đính kèm cần các huynh xem tách cell thành nhiều cell Xin cảm ơn,

 

[vidangtinhyeu99]

Khi nãy quên gửi file đính kèm nhờ các anh chị xem giúp . Thanhks

 

[ndu96081631]

Khi nãy quên gửi file đính kèm nhờ các anh chị xem giúp . Thanhks

Bạn không nói rõ vùng dữ liệu của bạn nằm tại đâu? Chuyển toàn bộ các cell đang bị merge hay chỉ 1 vài cell?
Dù sao thì cũng gợi ý bạn 1 code

Sub Test()
  Dim Clls As Range
  For Each Clls In Selection
    If Clls.MergeCells Then
      With Clls.MergeArea
        .UnMerge
        .Value = Clls.Value
      End With
    End If
  Next
End Sub

Chọn vùng dữ liệu và chạy code này

 

[dat_butmuc]

Khi nãy quên gửi file đính kèm nhờ các anh chị xem giúp . Thanhks

UnMerge Cells xong nhấn Ctrl+D

 

[ndu96081631]

UnMerge Cells xong nhấn Ctrl+D

Tôi nghĩ nếu chỉ làm trên 1 cell thì tác giả đã không hỏi làm gì đâu

 

[vidangtinhyeu99]

Tôi nghĩ nếu chỉ làm trên 1 cell thì tác giả đã không hỏi làm gì đâu

Trước tiên xin cảm ơn sự quan tâm. ý mình là có hàng trăm danh sách như vậy bây giờ mình muốn nó đều trở thành như cái bảng thức 2 để mình có thể làm một số công việc, chứ nếu unMerge cell từ cái 1 và copy xuống từng người thì biết đến khi nào. Rất mong sự giúp đỡ. thanks

 

[vidangtinhyeu99]

Bạn không nói rõ vùng dữ liệu của bạn nằm tại đâu? Chuyển toàn bộ các cell đang bị merge hay chỉ 1 vài cell?
Dù sao thì cũng gợi ý bạn 1 code

Sub Test()
  Dim Clls As Range
  For Each Clls In Selection
    If Clls.MergeCells Then
      With Clls.MergeArea
        .UnMerge
        .Value = Clls.Value
      End With
    End If
  Next
End Sub

Chọn vùng dữ liệu và chạy code này

đúng là Chuyển toàn bộ các cell đang bị merge sang một sheet khác giống như bảng 2 ; trường hợp nếu không bị mergcell thì cũng vẫn chuyển sang . chủ yếu tất cả đều trả về dang bảng tính 2 ở viduj đó xin cảm ơn

 

[ndu96081631]

đúng là Chuyển toàn bộ các cell đang bị merge sang một sheet khác giống như bảng 2 ; trường hợp nếu không bị mergcell thì cũng vẫn chuyển sang . chủ yếu tất cả đều trả về dang bảng tính 2 ở viduj đó xin cảm ơn

Thì trước tiên cứ copy toàn bộ dữ liệu sang sheet khác, xong hẳn chạy code

 

[vidangtinhyeu99]

pác ơi cho em file demo được không ạ cảm ơn trước nghe

 

[ndu96081631]

pác ơi cho em file demo được không ạ cảm ơn trước nghe

Thì Demo cho bạn đây!
Lấy file cũ của bạn đấy nhé

 

[vidangtinhyeu99]

cảm ơn pác nhé hẹn gặp báb khio nào uống cà phê