tách tên ra khỏi chuỗi gồm tên và ngày sinh (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

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

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

Bài viết mới nhất

Back
Top Bottom