tách tên ra khỏi chuỗi gồm tên và ngày sinh

Liên hệ QC

luminous223

Thành viên mới
Tham gia
9/7/19
Bài viết
11
Được thích
0
Cho mình hỏi làm sao tách tên ra khỏi chuỗi gồm tên và ngày sinh cạnh nhau trong file mình gửi với ạ (từ cột a ra cột g). Mình xin chân thành cảm ơn!
 

File đính kèm

  • thacmac.xlsx
    8.8 KB · Đọc: 25
Cho mình hỏi làm sao tách tên ra khỏi chuỗi gồm tên và ngày sinh cạnh nhau trong file mình gửi với ạ (từ cột a ra cột g). Mình xin chân thành cảm ơn!
Dùng Hàm Left() và Find().
Find: Tìm vị trí dấu "/" rồi "cộng trừ nhân chia" cho phù hợp vị trí cần lấy.
Left: Lấy theo kết quả hàm Find()
 
cho e góp vui 1 cách ^^^^
Mã:
Sub tach()
Dim VBR As Object
Set VBR = CreateObject("VBScript.RegExp")
With VBR
   For i = 1 To 9
      .Global = True
      .Pattern = "\d|/"
   Sheet1.Cells(i, 3) = .Replace(Sheet1.Cells(i, 1), "")
   Next
End With
Set VBR = Nothing
End Sub
 
Web KT
Back
Top Bottom