Lọc dữ liệu bị trùng nhau.

[thangbuihb]

bài này đã có nhưng thực sự chưa có câu trả lời rõ ràng và tối ưu, mong mọi người góp ý cho.
Dữ liệu tên thực phẩm ở sheet thuc pham giờ muốn lọc các dữ liệu sang sheet Loc 1.
nếu có 2 từ giống nhau thì chỉ lọc ra 1 mà thôi, ko lọc khoảng trống nhé.
https://www.fshare.vn/file/RVT7AHE7IOKM
Sử dụng hàm nhé, code thì nhớ ghi rõ cách làm nhé

 

[Kiều Mạnh]

bài này đã có nhưng thực sự chưa có câu trả lời rõ ràng và tối ưu, mong mọi người góp ý cho.
Dữ liệu tên thực phẩm ở sheet thuc pham giờ muốn lọc các dữ liệu sang sheet Loc 1.
nếu có 2 từ giống nhau thì chỉ lọc ra 1 mà thôi, ko lọc khoảng trống nhé.
https://www.fshare.vn/file/RVT7AHE7IOKM
Sử dụng hàm nhé, code thì nhớ ghi rõ cách làm nhé

Bài này dùng Dic HAY RemoveDuplicates chạy cái dẹt là xong , nhưng mình không biết giải thích nên không úp lên được... vậy hãy chờ nha khi nào mình biết theo cái dòng chữ đỏ thì mình úp lên nha

 

[be_09]

bài này đã có nhưng thực sự chưa có câu trả lời rõ ràng và tối ưu, mong mọi người góp ý cho.
Dữ liệu tên thực phẩm ở sheet thuc pham giờ muốn lọc các dữ liệu sang sheet Loc 1.
nếu có 2 từ giống nhau thì chỉ lọc ra 1 mà thôi, ko lọc khoảng trống nhé.
https://www.fshare.vn/file/RVT7AHE7IOKM
Sử dụng hàm nhé, code thì nhớ ghi rõ cách làm nhé

Yêu cầu sử dụng hàm và Code, nhưng tôi không biết chơi 2 thứ này, vậy chơi thứ khác được không?

Bạn yêu cầu "ghi rõ cách làm"

Nhưng bạn đưa File chẳng có dữ liệu mà chẳng nêu rõ vấn đề cần làm cái gì? ai biết đường mà giúp và giải thích đây.

 

[kbw1]

Hình như chủ đề này có 2 bài thì phải.

 

[thangbuihb]

có DL mà, nhưng dữ liệu mình có khoảng trống, bạn cho lại thế thì còn nói làm gì, mà piovet ấy mình ko khoái lắm, dùng hàm với code đi.

 

[thangbuihb]

thú thật chưa ai tìm ra phương pháp tối ưu. có thể tìm được, nhưng vẫn có khoảng trống ở trang lọc ra. giờ mình muốn nếu thấy trống thì đừng có lọc ra danh sách kia ấy như hàm này =IF(ROWS($1:1)>COUNT(Pos);"";INDEX(Data;SMALL(Pos;ROWS($1:1)))) nhưng thực sự mà nói mình ko hiểu rõ hàm này. tai sao lại ra được,

IF(ROWS($1:1)>COUNT(DK_1),INDEX(DS_2,SMALL(DK_3,ROWS($1:1)

DK1 là gì ạ, DS2, DK2 nữa
nó y như này

 

[Kiều Mạnh]

có DL mà, nhưng dữ liệu mình có khoảng trống, bạn cho lại thế thì còn nói làm gì, mà piovet ấy mình ko khoái lắm, dùng hàm với code đi.

Thử code sau xem sao rồi tính tiếp nha...còn hướng dẫn là tịt đó

Sub LocDuyNhat()
With Sheet2
    .Range("A2:A1000").Value = Sheet1.Range("A2:A1000").Value
    .Range("$A$2:$A$1000").RemoveDuplicates Array(1)
    .Range("A2:A65536").SpecialCells(4).EntireRow.Delete
End With
End Sub

 

[Ba Tê]

Yêu cầu sử dụng hàm và Code, nhưng tôi không biết chơi 2 thứ này, vậy chơi thứ khác được không?

Bạn yêu cầu "ghi rõ cách làm"

Nhưng bạn đưa File chẳng có dữ liệu mà chẳng nêu rõ vấn đề cần làm cái gì? ai biết đường mà giúp và giải thích đây.

Thành thật bái phục anh.
Đọc bài với giọng văn như vậy anh vẫn ... hút thuốc uống cà phê được.

 

[thangbuihb]

ko đc bác ơi kieu manh

 

[Kiều Mạnh]

ko đc bác ơi kieu manh

KO được như thế nào hả

 

[phulien1902]

bài này đã có nhưng thực sự chưa có câu trả lời rõ ràng và tối ưu, mong mọi người góp ý cho.
Dữ liệu tên thực phẩm ở sheet thuc pham giờ muốn lọc các dữ liệu sang sheet Loc 1.
nếu có 2 từ giống nhau thì chỉ lọc ra 1 mà thôi, ko lọc khoảng trống nhé.
https://www.fshare.vn/file/RVT7AHE7IOKM
Sử dụng hàm nhé, code thì nhớ ghi rõ cách làm nhé

Bạn làm theo cách dưới đây, thật đơn giản và hiệu quả.
Đó là dùng công cụ Consolidate

- Đầu tiên bạn nhập B3=1, kéo công thức xuống đến B50.
- Đặt trỏ chuột tại F3
- Vào Data \ Consolidate
Function: Chọn Sum
Reference: Chọn $A$2:$A$50
Tích vào Top row & Left column, OK
Xong.

 

[thangbuihb]

dùng hàm hoặc dùng code nhé, không dùng lệnh, vì mình sẽ để nó tự chạy ra mà

 

[hngiatuong]

dùng hàm hoặc dùng code nhé, không dùng lệnh, vì mình sẽ để nó tự chạy ra mà

.................
OK, xin chờ tý

 

[thangbuihb]

hngiatuong CHƯA XONG À BÁC

 

[langtuchungtinh360]

thấy bài này có chút gì đó na ná
http://www.giaiphapexcel.com/forum/showthread.php?108979-làm-sao-lấy-được-List-của-menu-AutoFilter
http://www.giaiphapexcel.com/forum/showthread.php?42791-Nhờ-hướng-dẫn-sử-dụng-Dictionary-Object.&
cũng lọc ra danh sách không trùng nhau

 

[khonghoithinguhocdungchem]

mình cũng có bài y như bạn này cho minh xin code tự động chay hoặc hàm dễ hiểu tí. mình có đoạn code sau nhưng lại ko tự động cứ phải tạo nút hoặc f5
Sub Loc_DuyNhat()
Dim Nguon(), Kq(), i&, k&
Nguon = Sheet1.Range(Sheet1.[A3], Sheet1.[A65536].End(3)).Value
ReDim Kq(1 To UBound(Nguon, 1), 1 To 1)
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Nguon, 1)
If Not .exists(Nguon(i, 1)) Then
k = k + 1
.Add Nguon(i, 1), ""
Kq(k, 1) = Nguon(i, 1)
End If
Next
End With
Sheet3.Range("C4").Resize(k, 1) = Kq
End Sub

 

[langtuchungtinh360]

mình cũng có bài y như bạn này cho minh xin code tự động chay hoặc hàm dễ hiểu tí. mình có đoạn code sau nhưng lại ko tự động cứ phải tạo nút hoặc f5
Sub Loc_DuyNhat()
Dim Nguon(), Kq(), i&, k&
Nguon = Sheet1.Range(Sheet1.[A3], Sheet1.[A65536].End(3)).Value
ReDim Kq(1 To UBound(Nguon, 1), 1 To 1)
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Nguon, 1)
If Not .exists(Nguon(i, 1)) Then
k = k + 1
.Add Nguon(i, 1), ""
Kq(k, 1) = Nguon(i, 1)
End If
Next
End With
Sheet3.Range("C4").Resize(k, 1) = Kq
End Sub

tự động thì cho nó vào sự kiện của Sheet

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call Loc_duynhat
End Sub

thì khi bạn thay đổi cái gì thì em nó sẽ "tự sướng" luôn cho bạn.
còn đây thì chỉ chạy khi nào bạn gõ enter

Private Sub Worksheet_Change(ByVal Target As Range)
Call Loc_duynhat
End Sub