- Bạn đặt chuột vào bảng dữ liệu nguồn đó. Vào Data\Filter\advanced FilterMình có bài toán khó nhai quá. Mọi người giúp mình nhé. Công thức hay thủ thuật để tự động lọc dữ liệu theo 2 cột. Mình cám ơn
Mình có bài toán khó nhai quá. Mọi người giúp mình nhé. Công thức hay thủ thuật để tự động lọc dữ liệu theo 2 cột. Mình cám ơn
Bạn thử xem file này có đúng ý bạn không nhéMình có bài toán khó nhai quá. Mọi người giúp mình nhé. Công thức hay thủ thuật để tự động lọc dữ liệu theo 2 cột. Mình cám ơn
Mọi người hiểu sai y’ mình rồi. Mình cần lọc dữ liệu không trùng nhau từ dữ liệu C516.
Dùng công thức nào để tự động lọc ra kết quả như C926. Nếu dùng advance filter thì sẽ phải thao tác như bạn NguyenCanh160890. Mình muốn làm thế nào để tự động lọc. Mong cac bro giúp[/QUO
Anh(Chị) muốn tự động chắc có lẽ các Thầy viết VBA xong nhấn nút là chạy hihi
Sub Locdulieu()
Dim item, arr(), cty, mhang
Dim n As Long, irow As Long, tmp As String
cty = Range("C5", [C65536].End(xlUp))
mhang = Range("D5", [D65536].End(xlUp))
ReDim arr(1 To UBound(cty, 1), 1 To 2)
With CreateObject("Scripting.dictionary")
For Each item In cty
irow = irow + 1
tmp = Trim(CStr(item)) & Trim(CStr(mhang(irow, 1)))
If Len(tmp) And Not .Exists(tmp) Then
n = n + 1
.Add tmp, n
arr(n, 1) = cty(irow, 1)
arr(n, 2) = mhang(irow, 1)
End If
Next
End With
Range("f1:G1000").ClearContents
Range("F5").Resize(n, 2) = arr
End Sub
Mã hàng=INDEX($C$5:$C$16,SMALL(IF(MATCH($C$5:$C$16&$D$5:$D$16,$C$5:$C$16&$D$5:$D$16,0)=ROW(INDIRECT("1:"&ROWS($C$5:$C$16))),ROW(INDIRECT("1:"&ROWS($C$5:$C$16))),""),ROW(1:1)))
=INDEX($D$5:$D$16,SMALL(IF(MATCH($C$5:$C$16&$D$5:$D$16,$C$5:$C$16&$D$5:$D$16,0)=ROW(INDIRECT("1:"&ROWS($C$5:$C$16))),ROW(INDIRECT("1:"&ROWS($C$5:$C$16))),""),ROW(1:1)))