Làm thể nào để lọc dữ liệu từ một đoạn text có sẵn.!!!

[tmn]

Xin chào, e gặp một trường hợp này mà mấy hôm nay e ngồi vẫn không thể làm được, cả nhà chỉ giáo giúp e với ạ, làm thế nào lọc dữ liệu từ một bảng có sẵn trong exel ra một ô khác ạ:

từ một bảng dữ liệu text có sẵn như thế này:
hàng thứ nhất (input) cần lọc những chữ in đậm ra kết quả ở |||hàng thứ 2 (output)
/160-40604841/1032/P2K249.5/V-AN NAM JSC--------------> 40604841/2
/160-40604841/1033/P234K494.4/V- JSC ------------------->40604841/234
/160-42089655/1009/T52K1027/HYA GLASS ----------------->42089655/52
/160-42089655/1009/T5K1027/HOYA GLASS ----------------->42089655/5

Xin mọi người giúp cho ạ, e mò mẫn gần 5 ngày rồi mà vẫn chưa ra được kết quả như ý,
Xin cám ơn.

 

[Hai Lúa Miền Tây]

Xin chào, e gặp một trường hợp này mà mấy hôm nay e ngồi vẫn không thể làm được, cả nhà chỉ giáo giúp e với ạ, làm thế nào lọc dữ liệu từ một bảng có sẵn trong exel ra một ô khác ạ:

từ một bảng dữ liệu text có sẵn như thế này:
hàng thứ nhất (input) cần lọc những chữ in đậm ra kết quả ở |||hàng thứ 2 (output)
/160-40604841/1032/P2K249.5/V-AN NAM JSC--------------> 40604841/2
/160-40604841/1033/P234K494.4/V- JSC ------------------->40604841/234
/160-42089655/1009/T52K1027/HYA GLASS ----------------->42089655/52
/160-42089655/1009/T5K1027/HOYA GLASS ----------------->42089655/5

Xin mọi người giúp cho ạ, e mò mẫn gần 5 ngày rồi mà vẫn chưa ra được kết quả như ý,
Xin cám ơn.

Dùng code của Thầy Tuấn nhé:

Function cTachSo(Chuoi As String, Vitri As Long) As String
  Dim Temp1 As String, Temp2 As Variant
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[^0-9.]"
    Temp1 = .Replace(Chuoi, " ")
  End With
  Temp2 = Split(WorksheetFunction.Trim(Temp1), " ")
  cTachSo = Temp2(Vitri - 1)
End Function

Bạn xem thêm file nhé.