Xin giúp - Enter xuống hàng cho mỗi đầu dòng đã được đánh dấu 1); 2); 3);... (2 người xem)

[trungdan_nguyen]

Mình có 1 Cột dữ liệu, trong mỗi ô có dữ liệu chia thành nhiều ý, mỗi ý bắt đầu bằng số thứ tự: 1); 2); 3);...
mình muốn hết mỗi ý thì phải nhảy xuống dòng, thay vì cứ phải Alt+Enter rất mất thời gian mà dữ liệu thì rất nhiều xem ra là ko xuể, ví dụ minh họa ý:
1)....
2)....
3)....
Nhờ cả nhà giúp 1 tay với, em đuối quá!
Cám ơn nhiều nhiều ạ!

 

[dhn46]

Dùng Code thì dữ liệu phải có định dạng chuẩn
Bạn tham khảo Code sau đây áp dụng cho trường hợp xuống dòng khi dữ liệu gặp dấu ";"

Sub EntMark()
Dim i As Integer, Match As Object
With CreateObject("Vbscript.regexp")
    For i = 2 To [A65536].End(3).Row
        .Global = True
        .Pattern = "(;)"
        Cells(i, 1) = .Replace(Cells(i, 1), ";" & ChrW(10))
    Next
End With
End Sub

Nếu bài hữu ích thì...tôi thấy bạn đã giửi 17 bài song các con số khác vẫ là số 0
Thân!

 

[trungdan_nguyen]

Bạn dhn46 ơi, cho mình hỏi khi có Macro trên thì nhập ở đâu và tiến hành ntn, xin lỗi vì mình ko rành món này!
Giúp dùm nhé! Cám ơn bạn nhiều!

 

[dhn46]

Bạn mở File gõ tổ hợp phím Alt + Q để thấy kết quả.
Còn cách đưa Macro vào file thì bạn tìm kiếm trên GPE nhé
Thân!

 

[trungdan_nguyen]

Alt+Q rồi mà hổng thấy j luôn!

 

[SoiBien]

ô B2 bạn nhập công thức sau,

=SUBSTITUTE(A2,"; ",";"&CHAR(10))

format ô B2 là wrap text, rồi fill down