Hổng biết đúng ý bạn chưa ?
Hình như hổng phải ý này đâu.
Do tác giả hát bài" Tình mờ khói sương "nên em cũng chỉ ăn ốc thôi
Sub TimKienTheoNhieuDieuKien()
Dim Rng As Range, sRng As Range, Cls As Range, Arr()
Dim J As Long, W As Integer
Dim MyAdd As String, MyTxt As String
Set Rng = Range([G7], [G65500].End(xlUp))
ReDim Arr(1 To Rng.Rows.Count, 1 To 3)
[P8].Resize(Rng.Rows.Count, 3).Value = Arr()
Arr(1, 1) = "STT": Arr(1, 2) = "Kêt Qua Tìm Ra:"
Arr(1, 3) = "Dòng": W = 1
For Each Cls In Range([I26], [I26].End(xlToRight))
MyTxt = MyTxt & " " & Cls.Value
Set sRng = Rng.Find(Trim(MyTxt), , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
W = W + 1: Arr(W, 1) = W - 1
Arr(W, 2) = MyTxt: Arr(W, 3) = sRng.Row
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next Cls
If W Then
[P8].Resize(W, 3).Value = Arr()
End If
End Sub
Hổng biết có đúng ý gia chủ chưa nữa !?
Cuối cùng cũng chưa biết yêu cầu như thế nào luôn.Ặc! ! ! !
Em mù về VBA, lắp code cũng chả biết chạy nó kiểu gì.
Bác tả giúp cách vận hành nó với!
Với lại Em muốn nó là hàm Excel vì cái yêu cầu này nó nằm trong một chuỗi các hàm logic khác.
Dùng mấy cái món: =if(vloockup(...);"";if(vloockup(.....) cũng tìm được nhưng công thức nó dài khủng khiếp. Kết hợp với một số hàm khác có khi đơ cả máy.
Tại bác hiểu nhầm ý Em!
Chắc tại Em truyền đạt không tốt
.
Nếu excel chưa có hàm Textjoin thì nối tay các ô điều kiện, thử với công thức này lấy số dòng:
=LOOKUP(1000,MATCH(MID(I26&" "&J26&" "&K26&" "&L26&" ",1,FIND("|",SUBSTITUTE(I26&" "&J26&" "&K26&" "&L26&" "," ","|",ROW($1:$4)))-1),$G$1:$G$1000,))=LOOKUP(1000,MATCH(MID(name,1,FIND("|",SUBSTITUTE(name," ","|",ROW($1:$4)))-1),$G$1:$G$1000,))Công thức
=LOOKUP(10^6,MATCH(LEFT(I26&" "&J26&" "&K26&" "&L26,MMULT(LEN(I26:L26),--(COLUMN(A1:D4)>=ROW(A1:D4)))+COLUMN($A:$D)-1),$G$1:$G$100,))
4 thành A1:E5 (5 hàng 5 cột)
) và như thế công thức sẽ báo lỗi #N/A còn bên code của bác SA_DQ thì ...trắng toát. Em cần xử lý cái này (Tức là kệ nó, bao nhiêu khoảng trắng cũng được, miễn là đúng chữ, giống giống như TRIM á!)
Người mà không biết sửa lỗi của mình, thì là thánh chứ không fải 'Người'!-Phần cột là dữ liệu nhập, có thể nhập bị thừa khoảng trắng (Bình thường thôi, Người chứ chả phải Thánh
He he! Việc bắt/sửa lỗi nhập liệu trong một chương trình là bình thường mà Bác
Em nghĩ với các Bác nó cũng dễ dàng như .... viết Code vậy! 
. Sự hiện diện của các ô trên cột G là cụ thể hóa và trực quan bài toán này thôi, thực tế nó lại là kết quả của nhiều quá trình khác và ... khác nữa. Và cái kết quả mong muốn kia Em lấy làm biến cho công thức khác chứ không phải hiển thị trong sheet .............. Lằng nhằng quá phải không? 
Nếu đã có chỉ số rồi thì INDEX thôi.
=INDEX($G$1:$G$100;LOOKUP(...);)Vầng Em hiểu! Hy vọng là Bác có công thức lấy kết quả "nguyên con" đỉnh cao hơn nên ... hóng.
Có nhiều cách đối phó nhưng tôi không cho là cách của bạn là tốt.Tuy nhiên Em lại làm phiền mọi người lần nữa:
-Phần cột là dữ liệu nhập, có thể nhập bị thừa khoảng trắng (Bình thường thôi, Người chứ chả phải Thánh
Nếu bạn muốn lấy cả hai và công thức tính chỉ số ở vd. A1 thì nguyên conVầng Em hiểu! Hy vọng là Bác có công thức lấy kết quả "nguyên con" đỉnh cao hơn nên ... hóng.
=INDEX($G$1:$G$100;A1;)
Góp vui với bạn thêm cách dùng "hàng phụ" và tạo name như bài #13 đề cập, nhờ đó mà công thức nhìn sẽ gọn gàng hơn:
I25=SUMPRODUCT(LEN(TRIM($I$26:I26)))+COLUMN(A$1)-1 (fill qua phải)
N25=LOOKUP(1000,MATCH(MID(name,1,I25:L25),$G$1:$G$1000,))Tôi có bắt bạn đặt name đâu mà bạn hỏi tôi?
=$I$26&" "&$J$26&" "&$K$26&" "&$L$26&" "Ha ha !!!!!!!!
