nhờ anh chị tách chuỗi, và định dạng ngày tháng

[Trần Văn Bình]

Nhờ anh chị giúp hàm tách chuỗi ký tự theo định dạng từ cột H đến cột J có file đính kèm

 

[HieuCD]

Nhờ anh chị giúp hàm tách chuỗi ký tự theo định dạng từ cột H đến cột J có file đính kèm

Kết quả đặt ở cột kế bên

Sub ABC()
  Dim res(), i&, j&
  On Error Resume Next
  i = Sheet2.Range("B" & Rows.Count).End(xlUp).Row
  If i < 6 Then MsgBox ("Khong co du lieu!"): Exit Sub
  res = Sheet2.Range("H6:J" & i).Value
  For i = 1 To UBound(res)
    res(i, 1) = Split(res(i, 1) & "|", "|")(0)
    res(i, 2) = Split(res(i, 2) & "|", "|")(0)
    If InStr(1, res(i, 3), "|") Then
      res(i, 3) = Split(res(i, 3), "|")(0)
      res(i, 3) = DateValue(Format(res(i, 3), "####/##/##"))
    ElseIf IsDate(res(i, 3)) And Len(res(i, 3)) = 10 Then
      res(i, 3) = DateValue(Mid(res(i, 3), 7, 4) & Mid(res(i, 3), 3, 4) & Mid(res(i, 3), 1, 2))
    End If
  Next i
  Sheet2.Range("N6").Resize(UBound(res)).Resize(UBound(res)).NumberFormat = "dd/mm/yyyy" 'Dinh dang Ngày Tháng Nam
  Sheet2.Range("L6").Resize(UBound(res), 3) = res
End Sub

 

[Trần Văn Bình]

Kết quả đặt ở cột kế bên

Sub ABC()
  Dim res(), i&, j&
  On Error Resume Next
  i = Sheet2.Range("B" & Rows.Count).End(xlUp).Row
  If i < 6 Then MsgBox ("Khong co du lieu!"): Exit Sub
  res = Sheet2.Range("H6:J" & i).Value
  For i = 1 To UBound(res)
    res(i, 1) = Split(res(i, 1) & "|", "|")(0)
    res(i, 2) = Split(res(i, 2) & "|", "|")(0)
    If InStr(1, res(i, 3), "|") Then
      res(i, 3) = Split(res(i, 3), "|")(0)
      res(i, 3) = DateValue(Format(res(i, 3), "####/##/##"))
    ElseIf IsDate(res(i, 3)) And Len(res(i, 3)) = 10 Then
      res(i, 3) = DateValue(Mid(res(i, 3), 7, 4) & Mid(res(i, 3), 3, 4) & Mid(res(i, 3), 1, 2))
    End If
  Next i
  Sheet2.Range("N6").Resize(UBound(res)).Resize(UBound(res)).NumberFormat = "dd/mm/yyyy" 'Dinh dang Ngày Tháng Nam
  Sheet2.Range("L6").Resize(UBound(res), 3) = res
End Sub
[/QUOTE]
chân thành cám ơn bạn đã cho kết quả như ý muốn

 

[Trần Văn Bình]

Mình học code của @HieuCD lấy dữ liệu từ Sheet1 sang sheet2 nhưng bị lỗi định dạng tại dòng
Arr_D(k, 9) = DateValue(Format(Arr_N(i, 21), "####/##/##"))
Có file đính kèm nhờ các anh chị giúp tiếp
Có file đính kèm
Trân trọng cám ơn !

 

[Thóc Sama]

Mình học code của @HieuCD lấy dữ liệu từ Sheet1 sang sheet2 nhưng bị lỗi định dạng tại dòng
Arr_D(k, 9) = DateValue(Format(Arr_N(i, 21), "####/##/##"))
Có file đính kèm nhờ các anh chị giúp tiếp
Có file đính kèm
Trân trọng cám ơn !

Xin phép bác HieuCD nhé!
Bạn kiểm tra file đính kèm xem được chưa.

 

[Trần Văn Bình]

Cám ơn @THÓC SAMA đã quan tấm giúp mình
lần nữa chân thành cám ơn các bạn đã quan tâm giúp mình thuật toán này