Sau đó nhấn Ctr+Shift+Enter
Bạn thử kéo xem nó cho ra kết quả là gì nha!
Trước hết bạn hiểu $A$4:$A$9&$B $4:$B$9&$C$4:$C$9&$D$4:$D$9 là 1 mảng gồm các phần tử {A4&B4&C4&D4;A5&B5&C5&D5;...;A9&B9&C9&D9}
Cách của bạn nếu có ai đó trùng tên nhau thì sẽ không tìm được tất cả dữ liệu của những người đó.
Bạn dùng hàm SUMPRODUCT xem sao nhé!
E16 =SUMPRODUCT(($A$4:$A$9&$B$4:$B$9&$C$4:$C$9&$D$4:$D$9=$A16&$B16&$C16&$D16)*(E$4:E$9))Tại ô E4 của sheet2 Bạn nhập công thức sau:
SUMPRODUCT((Sheet1!$A$4:$A$100&Sheet1!$B$4:$B$100&Sheet1!$C$4:$C$100&Sheet1!$D$4:$D$100=$A4&$B4&$C4&$D4)*(INDIRECT(ADDRESS([COLOR=Red]4[/COLOR];MATCH(E$3;Sheet1!$A$3:$J$3;0);4;1;"Sheet1")&":"&ADDRESS([COLOR=Red]100[/COLOR];MATCH(E$3;Sheet1!$A$3:$J$3;0);4;1))))Do công thức đó là công thức mảng, khi nhập xong công thức Bạn phải kết thúc bằng tổ hợp phím Ctrl+Shift+Enter
Đúng rồi đấy Bạn. (Những số 4 và 100 kia cũng vậy)
Công thức của Bạn:
SUMPRODUCT((Sheet1!$B$2:$B$270&Sheet1!$C$2:$C$270=$B3&$C3)*(INDIRECT(ADDRESS(2;MATCH(D$2;Sheet1![COLOR=Red]$D$1[/COLOR]:$AU$1;0);2;1;"Sheet1")&":"&ADDRESS(270;MATCH(D$2;Sheet1![COLOR=Red]$D$1[/COLOR]:$AU$1;0);2;1))))SUMPRODUCT((Sheet1!$B$2:$B$270&Sheet1!$C$2:$C$270=$B3&$C3)*(INDIRECT(ADDRESS(2;MATCH(D$2;Sheet1![COLOR=Red]$A$1[/COLOR]:$AU$1;0);2;1;"Sheet1")&":"&ADDRESS(270;MATCH(D$2;Sheet1![COLOR=Red]$A$1[/COLOR]:$AU$1;0);2;1))))
Nói chung bài này cũng có nhiều cách lấy, nhưng với bảng dữ liệu của bạn thì hơi ......chua, trong khi chờ các cao thủ khác trợ giúp mình xin góp một cách. Trong bài mình dùng 2 name cho đỡ rối mắt trong cell chứa công thức
Option Explicit
Function THDiem(Rng As Range, Ten As String)
ReDim MDL(1 To 1, 1 To 4) As String
Dim Cls As Range, sRng As Range: Dim Rws As Long
Rws = Rng.Rows.Count
Set sRng = Rng.Find(Ten, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then _
Set Rng = Range(sRng, Rng.Cells(1, 1).Offset(Rws))
For Each Cls In Rng
If Cls.Value = Ten Then
If Cls.Offset(, 4) <> "" Then MDL(1, 3) = Cls.Offset(, 4).Value
If Cls.Offset(, 5) <> "" Then MDL(1, 1) = Cls.Offset(, 5).Value
If Cls.Offset(, 6) <> "" Then MDL(1, 4) = Cls.Offset(, 6).Value
If Cls.Offset(, 7) <> "" Then MDL(1, 2) = Cls.Offset(, 7).Value
End If
Next Cls
THDiem = MDL
End FunctionCám ơn Thầy đã quan tâm, nhưng cái này hổng phải của Cò, Cò đã giúp bạn í xử lý bằng hàm "xi ma chao" qua "meo meo" rồi (bảng dữ liệu rất lớn,em nhẩm sơ sơ phải cỡ 6.000 công thức, nhưng không thấy bạn í nói năng gì nữa, hôm nay nếu bạn í đọc được bài của Thầy chắc bạn í vui lắm)
