Xin anh, chị chỉ dẫn em dùng hàm gì để tách lấy câu văn chứa nội dung cần tìm trong 1 đoạn văn (1 người xem)

  • Thread starter Thread starter YenLV
  • Ngày gửi Ngày gửi
Liên hệ QC

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

YenLV

Thành viên chính thức
Tham gia
28/12/11
Bài viết
69
Được thích
14
Yêu cầu cụ thể em ghi trong file excel đính kèm, mong các anh chị giúp đỡ !
 

File đính kèm

Yêu cầu cụ thể em ghi trong file excel đính kèm, mong các anh chị giúp đỡ !
Mã:
="- "&MID(B3;FIND("Đổ Bê tông";B3);FIND(".";B3;FIND("Đổ Bê tông";B3))-FIND("Đổ Bê tông";B3)+1)
Tìm "Đổ Bê tông" chứ không tìm "- Đổ Bê tông" để tránh trường hợp trước Đ có hơn 1 dấu cách (thường sẩy ra khi nhập dữ liệu). Cũng để khi quyết định xóa " - " thì xóa ngay đầu công thức thay vì xóa nhiều đoạn trong công thức.
 
' bai tap 1
Sub baitap()
Dim chuoivao As String: chuoivao = Cells(3, 2)
Dim chuoi1 As String
Dim chuoiyc As String: chuoiyc = Cells(4, 2)
Dim l As Long, l1 As Long
Dim ln As Long
Dim fn As WorksheetFunction
Set fn = Application.WorksheetFunction
l = fn.Find(chuoiyc, chuoivao)
If IsNumeric(l) Then
Cells(5, 2) = "Yes"
End If
ln = Len(chuoivao)
chuoi1 = Right(chuoivao, ln - l + 1 + 2)
l1 = fn.Find(".", chuoi1)
Cells(7, 2) = Left(chuoi1, l1)
End Sub
 
Ô D3 gõ thử công thức này.
Mã:
=IF(C3;MID(B3;FIND("- Đổ Bê tông";B3);FIND("-";RIGHT(B3;LEN(B3)-FIND("- Đổ Bê tông";B3)))-1);"")
Mã:
D3=MID(B3,SEARCH("- Đổ Bê tông",B3),SEARCH(CHAR(10),B3,SEARCH("- Đổ Bê tông",B3)+1)-SEARCH("- Đổ Bê tông",B3))

-


Em nghĩ dùng char(10) an toàn hơn "-". :)
Chưa xử lý trường hợp nội dung cần tìm là dòng cuối :D
 
Vấn đề phát sinh bây giờ trong một ô số câu văn có chứa nội dung cần tìm lớn hơn 1. Vậy làm thế nào lấy được tất cả các câu văn đó a, các anh/chị ra tay giúp em với ạ
 
Web KT

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

Back
Top Bottom