Cần giúp xử lý chuỗi (1 người xem)

[lov3angel]

Mong các bạn giúp mình vụ này với:
Mình có A1 = NgayNay
Mình cần hàm để biến A1 thành NGAY_NAY

Mình ko search được khi nào tìm đc ký tự viết hoa để ngắt nó ra và chèn "_" vào.

Thanks!

 

[ndu96081631]

Mong các bạn giúp mình vụ này với:
Mình có A1 = NgayNay
Mình cần hàm để biến A1 thành NGAY_NAY

Mình ko search được khi nào tìm đc ký tự viết hoa để ngắt nó ra và chèn "_" vào.

Thanks!

Yêu cầu này nếu dùng phương pháp lập trình sẽ dễ hơn
Nếu bạn đồng ý chúng ta sẽ tiêp tục

 

[lov3angel]

Trước hết xin chân thành cảm ơn bạn đã quan tâm

Mình sẵn sàng với mọi giải pháp, miễn hiệu quả là được bạn ah.

 

[ndu96081631]

Trước hết xin chân thành cảm ơn bạn đã quan tâm

Mình sẵn sàng với mọi giải pháp, miễn hiệu quả là được bạn ah.

Hàm này:

Function SeparateText(ByVal Text As String, Optional Sep As String = " ") As String
  Dim i As Long, sText As String, Arr
  On Error Resume Next
  sText = Text
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = ""
    Arr = Split(Replace(Trim(.Replace(Text, " ")), "  ", " "), " ")
  End With
  For i = 0 To UBound(Arr)
    If Arr(i) = UCase(Arr(i)) And Not IsNumeric(Arr(i)) Then Arr(i) = " " & Arr(i)
  Next
  SeparateText = Replace(WorksheetFunction.Trim(Join(Arr, "")), " ", Sep)
End Function

Cú pháp hàm: =SeparateText(Chuổi, dấu phân cách)
Ví dụ =SeparateText(A1, "_")
Nếu bỏ qua tham số dấu phân cách (ví dụ =SeparateText(A1)...) thì xem như dấu phân cách là khoảng trắng