Lọc text trong một đoạn văn bản (1 người xem)

[kevin_mn]

Mình có một file contact mobile xuất ra và import vào outlook bị lổi, bây giờ mình cần lọc nó ra theo họ tên và số fone tương ứng. Nhưng khả năng excel còn kém lọc chưa ra, các bác xem dùm.

 

[Hoàng Trọng Nghĩa]

minhthien321 ko làm được bác ơi , mong chỉ giáo.

Bạn chọn khối ô có chứa dữ liệu cần tách (nên copy 1 bản trước nhé), sau đó, bạn chọn Data > Text to column:

 

[dat_butmuc]

Mình có một file contact mobile xuất ra và import vào outlook bị lổi, bây giờ mình cần lọc nó ra theo họ tên và số fone tương ứng. Nhưng khả năng excel còn kém lọc chưa ra, các bác xem dùm.

Thích công thức thì có công thức đây,
Đây là tôi chỉ mới nhìn trong dữ liệu của bạn đưa lên, nếu cần thiết thì bạn đưa tất cả lên ha?
Xem file đính kèm;
Công thức dài, ngắn hơn thì phải chờ cao thủ hoặc bạn đặt từng đoạn cho nó 1 cái NAME !

 

[hoangdanh282vn]

Mình có một file contact mobile xuất ra và import vào outlook bị lổi, bây giờ mình cần lọc nó ra theo họ tên và số fone tương ứng. Nhưng khả năng excel còn kém lọc chưa ra, các bác xem dùm.

bạn dùng hàm GetData sau nha

Function GetData(Str As String, Opt As String) As String
Dim Arr() As String
Arr() = Split(Str, ",")
GetData = Replace(Replace(Replace(Arr(WorksheetFunction.Match(Opt, Arr(), 0)), "[", ""), "]", ""), """", "")
End Function

 

[dat_butmuc]

bạn dùng hàm GetData sau nha

Function GetData(Str As String, Opt As String) As String
Dim Arr() As String
Arr() = Split(Str, ",")
GetData = Replace(Replace(Replace(Arr(WorksheetFunction.Match(Opt, Arr(), 0)), "[", ""), "]", ""), """", "")
End Function

Hình như Số phone chưa lấy hết HoangDanh ơi?
Lọc number thôi,

 

[hoangdanh282vn]

Hình như Số phone chưa lấy hết HoangDanh ơi?
Lọc number thôi,

Bạn có thể nói rõ hơn không. Mình kiểm tra thấy đúng mà.

 

[dat_butmuc]

Bạn có thể nói rõ hơn không. Mình kiểm tra thấy đúng mà.

Vì số TelephoneNumber không xác định chính thức nó nằm tại vị trí nào (gồm MobileTelephoneNumber,,WorkTelephoneNumber,,HomeTelephoneNumber,,CarTelephoneNumber,,Work2TelephoneNumber,,Home2TelephoneNumber).
Mình thấy tại dòng thứ 2 (A.Hien-DS) của bạn đúng ra phải ra kết quả 0913925155 nhưng sao trong file của Danh mình mở lại không thấy,
Cũng có thể do dữ liệu của tác giả gửi lên không đồng nhất...
Danh thử kiểm tra lại xem có phải ko?

 

[hoangdanh282vn]

Vì số TelephoneNumber không xác định chính thức nó nằm tại vị trí nào (gồm MobileTelephoneNumber,,WorkTelephoneNumber,,HomeTelephoneNumber,,CarTelephoneNumber,,Work2TelephoneNumber,,Home2TelephoneNumber).
Mình thấy tại dòng thứ 2 (A.Hien-DS) của bạn đúng ra phải ra kết quả 0913925155 nhưng sao trong file của Danh mình mở lại không thấy,
Cũng có thể do dữ liệu của tác giả gửi lên không đồng nhất...
Danh thử kiểm tra lại xem có phải ko?

Cái này do tham số bạn chọn khi sử dụng hàm thôi. bạn chọn tham số nào thì kết quả sẽ tương ứng. Bạn xem file nha.

 

[sealand]

Mình tham gia 1 hàm sau

Function tach(ch As String, title As Integer, Idx As Integer) As String
ch = Replace(Replace(Replace(ch, Chr(34), ""), "[", ""), "]", "")
Dim tam
Dim k As Integer
tam = Split(ch, ",")
Idx = IIf(title = 1, Idx * 2 - 2, Idx * 2 - 1)
If Idx > UBound(tam) Then
tach = ""
Else
tach = tam(Idx)
End If
End Function

Idx là số tuần tự 1,2,3,4..... Title=1 trả về tiêu đề là gì, =0 trả về giá trị nội dung
Bạn xem ví dụ file kèm