Trợ giúp cách tách chuỗi theo điều kiện (1 người xem)

[yolocongtan]

Mong các Pro trợ giúp. Do phần mềm nhập liệu học sinh bị hư nên không xài nữa giờ chuyển qua phần mêm mới. phải nhập liệu lại nhưng cấu trúc nó khác nhau. nên phải xử lý file excel rùi mới up lên được.hixxx

Mình có dữ liệu như trong file đính kèm. Giờ mình muốn tách dữ liệu ở A1 sao cho ra kết quả như B1.
Mong được giúp đỡ. Thanks nhìu

 

[vu_tuan_manh_linh]

Mong các Pro trợ giúp. Do phần mềm nhập liệu học sinh bị hư nên không xài nữa giờ chuyển qua phần mêm mới. phải nhập liệu lại nhưng cấu trúc nó khác nhau. nên phải xử lý file excel rùi mới up lên được.hixxx

Mình có dữ liệu như trong file đính kèm. Giờ mình muốn tách dữ liệu ở A1 sao cho ra kết quả như B1.
Mong được giúp đỡ. Thanks nhìu

Lọ mọ thử cách này xem thế nào nhé bạn!!

 

[yolocongtan]

Thank bác, nhưng mình muốn lồng IF vào C1 thì chạy không ra đúng kết quả:
=IF(ISERROR(FIND("<Học Sinh",A1)),MID(A1,FIND(CHAR(34)&">",A1)+2,FIND("</Học Sinh>",A1)-FIND(CHAR(34)&">",A1)-2),"")
.Tức là nếu tìm thấy <Học Sinh thì chạy mid nếu không tìm thấy thì không làm gì cả.
Xem giúp mình

 

[Comet297]

Bạn dùng công thức này xem


=TRIM(MID(SUBSTITUTE(SUBSTITUTE(A1,">",REPT(" ",1000)),"<",REPT(" ",1000)),4000,1000))

 

[gtri]

Mong các Pro trợ giúp. Do phần mềm nhập liệu học sinh bị hư nên không xài nữa giờ chuyển qua phần mêm mới. phải nhập liệu lại nhưng cấu trúc nó khác nhau. nên phải xử lý file excel rùi mới up lên được.hixxx

Mình có dữ liệu như trong file đính kèm. Giờ mình muốn tách dữ liệu ở A1 sao cho ra kết quả như B1.
Mong được giúp đỡ. Thanks nhìu

Tham gia một hàm tự tạo

Cú pháp :=Chuoi( Ô cần tách )

Public Function Chuoi(DL)
Dim Tam, Tam1
Tam = Replace(DL, Chr(10), "")

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "Link" & "[^>]+"
Tam1 = .Execute(Tam)(0)
.Pattern = ".+>([^<]+)<.+>([^<]+)<.+"
Chuoi = .Replace(Tam, "$1" & Chr(10) & Tam1 & ">" & Chr(10) & "$2")
End With

ActiveCell.WrapText = True
ActiveCell.EntireRow.AutoFit
End Function

 

[yolocongtan]

thử như vầy xem:

 =IF(IFERROR(SEARCH("<Học Sinh";A1;1);0)>0;IFERROR((MID(A1;FIND(CHAR(34)&">";A1)+2;FIND("</Học Sinh>";A1)-FIND(CHAR(34)&">";A1)-2));"");"")

Nó chỉ thực thi được một lần hả bạn, vì nếu trong A1 có nhìu <Học="Lớp 8">Nguyễn Văn B</Học Sinh>.........<Học="Lớp 8">Nguyễn Văn C</Học Sinh>......thì nó không chạy mấy thằng sau

 

[gtri]

Nó chỉ thực thi được một lần hả bạn, vì nếu trong A1 có nhìu <Học="Lớp 8">Nguyễn Văn B</Học Sinh>.........<Học="Lớp 8">Nguyễn Văn C</Học Sinh>......thì nó không chạy mấy thằng sau

Có lẽ là nên có file ví dụ với nhiều mẫu hơn

 

[yolocongtan]

nè bạn, các bạn xem giúp mình

 

[gtri]

nè bạn, các bạn xem giúp mình

Nhanh chậm chưa biết vì số liệu quá ít.
Viết theo mẫu bài 9

Public Function Chuoi(DL)
Dim i
DL = Replace(DL, "><L", ">L")
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = ">([^<]+)<"
For i = 0 To .Execute(DL).Count - 1
Chuoi = Chuoi & .Execute(DL)(i).submatches(0)
Next i
Chuoi = Replace(Chuoi, "/>", "")
End With
End Function