Cần Tìm kiếm 1 vùng trong 1 vung lớn hơn ( em không làm được, mong các anh giúp đỡ )

[vansuthong]

Em có 1 vùng lớn A5:A170, vùng này là kết quả làm việc của các tổ khác nhau
Bây giờ em muốn Tìm 1 vùng nhỏ A5:A9 xem giá trị của vùng này lặp lại bao nhiêu lần và lặp lại ở đâu trong trong vùng A5:A170.
Mong các anh chị giúp em, Cảm ơn anh chị nhiều.

 

[anhtuan1066]

Nếu muốn biết giá trị lập lại ở đâu thì có thể kiểm tra bằng cách đơn giản nhất... như =IF(A5=$A$5,1,"")... cái nào cho giá trị 1 chính là số lập lại
Còn muốn biết lập bao nhiêu lần thì dùng COUNTIF
Tuy nhiên tôi phát hiện ra dử liệu cũa bạn vừa có TEXT lại vừa co NUMBER, rất khó cho việc kiểm tra... Bạn có thể dùng ham ISTEXT đễ biết cell nào đang là TEXT
ANH TUẤN

 

[dmtdmtbb]

- Bạn xem có đúng ý không nhé, vùng B172:F172 không cần điền tay, chỉ nhập dử liệu vào vùng A5:K170 rồi click!

- Đoạn mã trong file còn dư j = 5 : k = 5, 2 giá trị này không có tác dụng, xoá đi cho dể hiểu.

 

[Thien]

To dmtdmtbb
link dơn không được bác à.

TC.

 

[dmtdmtbb]

To dmtdmtbb
link dơn không được bác à.
TC.

- Chắc là bạn down lúc mình đang Edit nên không được, giờ thì ok rồi đó !!!

 

[SoiBien]

Em có 1 vùng lớn A5:A170, vùng này là kết quả làm việc của các tổ khác nhau
Bây giờ em muốn Tìm 1 vùng nhỏ A5:A9 xem giá trị của vùng này lặp lại bao nhiêu lần và lặp lại ở đâu trong trong vùng A5:A170.
Mong các anh chị giúp em, Cảm ơn anh chị nhiều.

Bạn xem nhé, chọn một vùng bất kỳ (trên 1 cột - vì mỗi tổ 1 cột) rồi bấm tổ hợp phím Ctrl+Shìt+K
Những vùng giống với vùng gốc sẽ được tô màu.
Thân.

 

[dmtdmtbb]

Em có 1 vùng lớn A5:A170, vùng này là kết quả làm việc của các tổ khác nhau
Bây giờ em muốn Tìm 1 vùng nhỏ A5:A9 xem giá trị của vùng này lặp lại bao nhiêu lần và lặp lại ở đâu trong trong vùng A5:A170.
Mong các anh chị giúp em, Cảm ơn anh chị nhiều.

- Bài ở post 3 là tìm trong vùng A5:K170 chỉ cần chỉnh lại chút ít là được
- Tìm trong vùng A5:A170

Sub KiemTra()
Dim i, j, tmpNum: tmpNum = 0
For i = 1 To 5
   Cells(172, 1 + i) = Cells(4 + i, 1)
   For j = 5 To 170
       If Cells(j, 1) = Cells(4 + i, 1) Then
          tmpNum = tmpNum + 1
       End If
   Next j
   Cells(173, 1 + i) = tmpNum
   tmpNum = 0
Next i
End Sub