"tìm kiếm dựa vào 2 điều kiện" cho ví dụ và kết quả vài trường hợp
Cám ơn bác đã quan tâm, em có sheet list thống kê thanh toán, giờ em muốn tạo sheet th để liệt kê dựa vào 2 điều kiện là Nhà thầu và Số HĐ
cám ơn bác nhiều, đúng ý em rồi
Em có 1 bảng thống kê theo dõi thanh toán cho thầu phụ, giờ em muốn tổng hợp lại dựa vào cột Nhà thầu và Số HĐ, cấu trúc lệnh và kết quả trả về 1 mảng, bác có thể giúp em được không
Dùng hàm tự tạo
Function LocMang(ByVal rng As Range, ParamArray crit()) As Variant
Dim aRow(), Res(), sRow&, sCol&, i&, k&, j&, c&
sRow = crit(0).Rows.Count: sCol = rng.Columns.Count
If sRow <> rng.Rows.Count Then LocMang = "#REF!": Exit Function
ReDim aRow(1 To sRow)
For j = LBound(crit) To UBound(crit) Step 2
If sRow <> crit(j).Rows.Count Then LocMang = "#REF!": Exit Function
Next j
For i = 1 To sRow
For j = LBound(crit) To UBound(crit) Step 2
If crit(j)(i, 1) <> crit(j + 1) Then Exit For
Next j
If j = UBound(crit) + 1 Then
k = k + 1
aRow(k) = i
End If
Next i
If k Then
ReDim Res(1 To k, 1 To rng.Columns.Count)
For i = 1 To k
For j = 1 To sCol
Res(i, j) = rng(aRow(i), j)
Next j
Next i
LocMang = Res
End If
End FunctionCám ơn bác em làm được rồi, với lại cho em hỏi là muốn để cho các ô không có dữ liệu #N/A trống thì sửa code thế nào vậy.
=IFERROR(@INDEX(LocMang($F$5:$F$19, $B$5:$B$19,M$5,C$5:C$19,$N$5),ROW(J1)),"")
Chỉnh tí xíu
Function LocMang(ByVal rng As Range, ParamArray crit()) As Variant
Dim aRow(), Res(), sRow&, sCol&, i&, k&, j&, c&
sRow = crit(0).Rows.Count: sCol = rng.Columns.Count
If sRow <> rng.Rows.Count Then LocMang = "#REF!": Exit Function
ReDim aRow(1 To sRow)
For j = LBound(crit) To UBound(crit) Step 2
If sRow <> crit(j).Rows.Count Then LocMang = "#REF!": Exit Function
Next j
For i = 1 To sRow
For j = LBound(crit) To UBound(crit) Step 2
If crit(j)(i, 1) <> crit(j + 1) Then Exit For
Next j
If j = UBound(crit) + 1 Then
k = k + 1
aRow(k) = i
End If
Next i
If k Then
ReDim Res(1 To sRow, 1 To rng.Columns.Count)
For i = 1 To k
For j = 1 To sCol
Res(i, j) = rng(aRow(i), j)
Next j
Next i
For i = k + 1 To sRow
For j = 1 To sCol
Res(i, j) = ""
Next j
Next i
LocMang = Res
End If
End Function
