đếm số lần dữ liệu trùng trong 1 cột (1 người xem)

wisatan · 7/1/17

Nhờ mọi người giúp mình vấn đề này.
Mình có 1 cột A để nhập dữ liệu, và dữ liệu sẽ được thêm vào liên tục, ô B1 dùng để đếm những liệu bị trùng nhau ở cột A, khi thấy B>0 thì mình sẽ dùng lệnh xóa trùng (khi đó B sẽ trở về 0 lại). Đơn giản vậy thôi nhưng do tìm mãi vẫn chưa ra nên xin phép dc đăng mới. Mình thử đã dùng hàm counta, countif và hàm đếm dữ liệu ko trùng để tính ra, nhưng thấy nó dài dòng quá và mỗi lần nhập thêm 1 dữ liệu mới, máy chậm kinh khủng, vì mình dùng hàm countif để đếm số lần dữ liệu xuất hiện ở cột A và fill nó xuống đến hàng thứ mấy chục ngàn luôn (cho tiện) >>> máy treo luôn.
.......A......B
1....123....2
2....345
3....456
4....345
...
99...123
...
999..123
Cho mình hỏi thêm, khi dùng hàm Countif, lúc chọn range A1:A999, có cách nào để thay "999" bằng ký hiệu vô cực nào ko (thay vì phải chọn đại 1 số cực lớn nào đó), kiểu giống như thay A1:A999 = cotA chẳng hạn.
Cám ơn rất nhiều.

befaint · 7/1/17

Bạn gửi file excel lên xem....

wisatan · 7/1/17

làm sao để gửi file excel zay bạn, minh tìm ko thấy.

befaint · 7/1/17

wisatan đã viết:
làm sao để gửi file excel zay bạn, minh tìm ko thấy.

Ở chỗ viết bài, click nút "Đổi Sang Khung Lớn"... Tiếp đó kéo xuống dưới, tìm nút "Tải File Từ Máy"
Xài cái gì thì cũng đọc hướng dẫn sử dụng đã chứ:
https://www.giaiphapexcel.com/forum/showthread.php?33633-Hướng-dẫn-gửi-bài-và-đính-kèm-tập-tin

Trả lời bài của ai thì click vào cái nút "Trả Lời Với Trích Dẫn"

quocgiacan · 7/1/17

wisatan đã viết:
Nhờ mọi người giúp mình vấn đề này.
Mình có 1 cột A để nhập dữ liệu, và dữ liệu sẽ được thêm vào liên tục, ô B1 dùng để đếm những liệu bị trùng nhau ở cột A, khi thấy B>0 thì mình sẽ dùng lệnh xóa trùng (khi đó B sẽ trở về 0 lại). Đơn giản vậy thôi nhưng do tìm mãi vẫn chưa ra nên xin phép dc đăng mới. Mình thử đã dùng hàm counta, countif và hàm đếm dữ liệu ko trùng để tính ra, nhưng thấy nó dài dòng quá và mỗi lần nhập thêm 1 dữ liệu mới, máy chậm kinh khủng, vì mình dùng hàm countif để đếm số lần dữ liệu xuất hiện ở cột A và fill nó xuống đến hàng thứ mấy chục ngàn luôn (cho tiện) >>> máy treo luôn.
.......A......B
1....123....2
2....345
3....456
4....345
...
99...123
...
999..123
Cho mình hỏi thêm, khi dùng hàm Countif, lúc chọn range A1:A999, có cách nào để thay "999" bằng ký hiệu vô cực nào ko (thay vì phải chọn đại 1 số cực lớn nào đó), kiểu giống như thay A1:A999 = cotA chẳng hạn.
Cám ơn rất nhiều.

Chào wisatan,

Mặc dù hơi rợn người và không muốn lại gần khi đọc phải nickname của bạn --=0

, nhưng do tôi có "đức tin" vào Người, nên hỗ trợ bạn cũng là dịp tốt nhân danh Người vậy. }}}}}

Anh Befaint đã giúp đỡ bạn phần sử dụng các công cụ của diễn đàn, tôi giúp bạn phần còn lại theo yêu cầu của bạn:

Mã:

B1=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(1:100000)),A2:A100000)=2))

Công thức này tuy là công thức mảng, sử dụng vùng chọn lên đến 100.000 dòng, nhưng do chỉ có duy nhất mình nó (không có fill xuống) nên tôi nghĩ sẽ không ảnh hưởng lớn đến hoạt động máy của bạn.

Chúc bạn ngày vui.

HieuCD · 7/1/17

quocgiacan đã viết:
Chào wisatan,

Mặc dù hơi rợn người và không muốn lại gần khi đọc phải nickname của bạn , nhưng do tôi có "đức tin" vào Người, nên hỗ trợ bạn cũng là dịp tốt nhân danh Người vậy.

Anh Befaint đã giúp đỡ bạn phần sử dụng các công cụ của diễn đàn, tôi giúp bạn phần còn lại theo yêu cầu của bạn:

Mã:

B1=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(1:100000)),A2:A100000)=2))

Công thức này tuy là công thức mảng, sử dụng vùng chọn lên đến 100.000 dòng, nhưng do chỉ có duy nhất mình nó (không có fill xuống) nên tôi nghĩ sẽ không ảnh hưởng lớn đến hoạt động máy của bạn.

Chúc bạn ngày vui.

góp thêm công thức rối hơn một chút, nhưng tăng lên 1.000.000 dòng dự trử cho bạn, nếu dữ liệu thực không nhiều thì tốc độ xử lý cũng nhanh, nhưng nếu dữ liệu thực lên tới 1.000.000 dòng thì dùng công thức nào cũng đơ
chúc các bạn 1 ngày vui

Mã:

=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(INDIRECT("1:"&COUNTA(A2:A1000000)))),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))

quocgiacan · 7/1/17

HieuCD đã viết:
góp thêm công thức rối hơn một chút, nhưng tăng lên 1.000.000 dòng dự trử cho bạn, nếu dữ liệu thực không nhiều thì tốc độ xử lý cũng nhanh, nhưng nếu dữ liệu thực lên tới 1.000.000 dòng thì dùng công thức nào cũng đơ
chúc các bạn 1 ngày vui

Mã:

=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(INDIRECT("1:"&COUNTA(A2:A1000000)))),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))

Bửa giờ bận hả bạn hiền, phần bài "xếp hạng" không có bạn hiền góp tụ cùng vui.

khà khà khà! --=0

Chúc bạn hiền một tối ngon giấc. }}}}}

befaint · 7/1/17

quocgiacan đã viết:
Bửa giờ bận hả bạn hiền, phần bài "xếp hạng" không có bạn hiền góp tụ cùng vui.

khà khà khà!

Chúc bạn hiền một tối ngon giấc.

Anh không kèm luôn link bài đó để anh ấy phải tìm... }}}}}

https://www.giaiphapexcel.com/forum/showthread.php?121721-Giúp-giải-quyết-hàm-Xếp-hang-RANK

leoheocon · 7/1/17

Vầy cũng được phải không hai anh:

Mã:

=SUM(IF(1/COUNTIF($A$2:$A$9,$A$2:$A$9)<1,1/COUNTIF($A$2:$A$9,$A$2:$A$9)))

Ctrl+Shift+Enter!!!

befaint · 7/1/17

leoheocon đã viết:
Vầy cũng được phải không hai anh:

Mã:

=SUM(IF(1/COUNTIF($A$2:$A$9,$A$2:$A$9)<1,1/COUNTIF($A$2:$A$9,$A$2:$A$9)))

Ctrl+Shift+Enter!!!

leoheocon có người "bám đuôi" nè }}}}}

https://www.giaiphapexcel.com/forum...iữa-hai-khoảng-có-số-liệu&p=762024#post762024

leoheocon · 7/1/17

befaint đã viết:
leoheocon có người "bám đuôi" nè

https://www.giaiphapexcel.com/forum...iữa-hai-khoảng-có-số-liệu&p=762024#post762024

Cám ơn anh!!!!!!!!!!!!

HieuCD · 7/1/17

quocgiacan đã viết:
Bửa giờ bận hả bạn hiền, phần bài "xếp hạng" không có bạn hiền góp tụ cùng vui.

khà khà khà!

Chúc bạn hiền một tối ngon giấc.

2 ngày nay chỉ rảnh buổi tối 1 chút thôi, tranh thủ lên mạng giải quyết tồn đọng, gặp mấy bài hơi rối nên không có thời gian góp vui với các bạn. chúc các bạn ngon giấc }}}}}

quocgiacan · 8/1/17

befaint đã viết:
Anh không kèm luôn link bài đó để anh ấy phải tìm...
https://www.giaiphapexcel.com/forum/...%BFp-hang-RANK

HieuCD đã viết:
2 ngày nay chỉ rảnh buổi tối 1 chút thôi, tranh thủ lên mạng giải quyết tồn đọng, gặp mấy bài hơi rối nên không có thời gian góp vui với các bạn. chúc các bạn ngon giấc

Đuối cả ngày nên "khò" sớm, làm thất lễ với anh em, hì hì, chịu phạt /-*+/

Nhìn thấy số 11:59h hì hì, lúc đó lạc vào cõi "Đào Nguyên" rồi!

leoheocon đã viết:
Vầy cũng được phải không hai anh:

Mã:

=SUM(IF(1/COUNTIF($A$2:$A$9,$A$2:$A$9)<1,1/COUNTIF($A$2:$A$9,$A$2:$A$9)))

Ctrl+Shift+Enter!!!

Anh nghĩ theo chủ đề chủ thớt đưa: "...dài đến mấy ngàn dòng" nên công thức của em phải bao thêm bẫy lỗi --=0

Chắc ăn phải vầy:

Mã:

=SUM(IFERROR(IF(1/COUNTIF(A2:A100000,A2:A100000)<1,1/COUNTIF(A2:A100000,A2:A100000)),0))

Làm đến 100.000 dòng anh thấy có hiện tượng máy chậm vài giây 1 chút, tức có thể do mình sử dụng 2 lần Countif().
Em có cái nhìn sắc nét, ngoài công thức của KVP ra công thức này cũng dạng "ngầu". --=0

Chúc anh em một ngày mới, tinh thần mới, niềm vui mới }}}}}

p/s: chỉ có nickname cũ xì thôi! khà khà khà //**/

wisatan · 9/1/17

Rất cảm ơn các bác: befaint, quocgiacan, HieuCD, leoheocon.
Mình vừa test xong công thức của các bác:
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(1:100000)),A2:A100000)=2))
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(INDIRECT("1:"&COUNTA(A2:A1000000)))),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))
=SUM(IF(1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)<1,1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)))
tình hình là chạy tốt trên file thử, nhưng khi đưa vào file gốc, đều bị treo khi vừa bấm Ctrl - Shift - Enter. Chắc do máy mình cùi (Processor: Intel(R) Celeron(R) CPU G1630 @ 2.80GHz (2 CPUs), ~2.8GHz. Memory: 4096MB RAM. vailable OS Memory: 3490MB RAM).
Thôi đành chịu làm thủ công zay, cám ơn các bác lần nữa.

quocgiacan · 9/1/17

wisatan đã viết:
Rất cảm ơn các bác: befaint, quocgiacan, HieuCD, leoheocon.
Mình vừa test xong công thức của các bác:
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(1:100000)),A2:A100000)=2))
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(INDIRECT("1:"&COUNTA(A2:A1000000)))),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))
=SUM(IF(1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)<1,1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)))
tình hình là chạy tốt trên file thử, nhưng khi đưa vào file gốc, đều bị treo khi vừa bấm Ctrl - Shift - Enter. Chắc do máy mình cùi (Processor: Intel(R) Celeron(R) CPU G1630 @ 2.80GHz (2 CPUs), ~2.8GHz. Memory: 4096MB RAM. vailable OS Memory: 3490MB RAM).
Thôi đành chịu làm thủ công zay, cám ơn các bác lần nữa.

Chào wisatan,

Có lẽ đúng như bạn nói, ngoài ra cũng góp ý thêm với bạn:
Không nên đem các công thức trên đưa vào sử dụng cùng một chỗ, bạn thử công thức đầu xong rồi xóa mới chép công thức thứ hai vào, do dữ liệu của bạn quá nhiều dòng, chưa kể trong file nguồn của bạn lại có công thức khác nữa, công gộp mấy thứ như vậy thì không máy nào chịu nỗi.

Chúc bạn ngày vui.

HieuCD · 9/1/17

wisatan đã viết:
Rất cảm ơn các bác: befaint, quocgiacan, HieuCD, leoheocon.
Mình vừa test xong công thức của các bác:
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(1:100000)),A2:A100000)=2))
=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,ROW(INDIRECT("1:"&COUNTA(A2:A1000000)))),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))
=SUM(IF(1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)<1,1/COUNTIF($A$2:$A$100000,$A$2:$A$100000)))
tình hình là chạy tốt trên file thử, nhưng khi đưa vào file gốc, đều bị treo khi vừa bấm Ctrl - Shift - Enter. Chắc do máy mình cùi (Processor: Intel(R) Celeron(R) CPU G1630 @ 2.80GHz (2 CPUs), ~2.8GHz. Memory: 4096MB RAM. vailable OS Memory: 3490MB RAM).
Thôi đành chịu làm thủ công zay, cám ơn các bác lần nữa.

chỉ đáp ứng đúng yêu cầu nhận biết và loại trùng của bạn, và làm nhẹ file
bạn dùng công thức

Mã:

=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))

wisatan · 9/1/17

quocgiacan đã viết:
Chào wisatan,

Có lẽ đúng như bạn nói, ngoài ra cũng góp ý thêm với bạn:
Không nên đem các công thức trên đưa vào sử dụng cùng một chỗ, bạn thử công thức đầu xong rồi xóa mới chép công thức thứ hai vào, do dữ liệu của bạn quá nhiều dòng, chưa kể trong file nguồn của bạn lại có công thức khác nữa, công gộp mấy thứ như vậy thì không máy nào chịu nỗi.

Chúc bạn ngày vui.

Vâng chắc chắn là thế rồi, vì mới 1 công thức là bị treo rồi, phải End proceed rồi mở lại, nên ko có 1 lần thử cả 3 đâu @$@!^%

wisatan · 9/1/17

HieuCD đã viết:
chỉ đáp ứng đúng yêu cầu nhận biết và loại trùng của bạn, và làm nhẹ file
bạn dùng công thức

Mã:

=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))

wow, cách này được rồi, ko bị treo, tuy có delay vài giây nhưng chấp nhận được, cám ơn bác rất nhiều, cám ơn lần nữa tất cả mọi người luôn nha.

leoheocon · 9/1/17

HieuCD đã viết:
chỉ đáp ứng đúng yêu cầu nhận biết và loại trùng của bạn, và làm nhẹ file
bạn dùng công thức

Mã:

=SUMPRODUCT(--(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000)))=2))

Cách chưa đúng nhe anh: ví dụ có 3 số bị trùng và đều trùng là 2, thì nó sẽ ra 6 chứ không phải 3, sao chỗ này anh --(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) không viết là COUNTIF($A$2:$A$1000000,$A$2:$A$1000000)!!!

wisatan · 9/1/17

leoheocon đã viết:
Cách chưa đúng nhe anh: ví dụ có 3 số bị trùng và đều trùng là 2, thì nó sẽ ra 6 chứ không phải 3, sao chỗ này anh --(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) không viết là COUNTIF($A$2:$A$1000000,$A$2:$A$1000000)!!!

mới test lại, đúng là kết quả không đúng lắm

quocgiacan · 9/1/17

leoheocon đã viết:
Cách chưa đúng nhe anh: ví dụ có 3 số bị trùng và đều trùng là 2, thì nó sẽ ra 6 chứ không phải 3, sao chỗ này anh --(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) không viết là COUNTIF($A$2:$A$1000000,$A$2:$A$1000000)!!!

Hì hì!

Bạn hiền ghi là chỉ "nhận biết" là có trùng thôi (tức có số >0 là có trùng }}}}}

) chứ không chủ đích "đếm trùng bao nhiêu mã" cả, nên nó nhẹ (nhờ Counta() chỉ tính đến dòng có dữ liệu) là phải rồi.

Anh nghĩ bạn Wisatan chỉ nên dùng công cụ "Remove Duplicate" thôi, không nên đếm nữa.

Chúc anh em có ngày thiệt vui. /-*+/

leoheocon · 9/1/17

quocgiacan đã viết:
Hì hì!

Bạn hiền ghi là chỉ "nhận biết" là có trùng thôi (tức có số >0 là có trùng ) chứ không chủ đích "đếm trùng bao nhiêu mã" cả, nên nó nhẹ (nhờ Counta() chỉ tính đến dòng có dữ liệu) là phải rồi.

Anh nghĩ bạn Wisatan chỉ nên dùng công cụ "Remove Duplicate" thôi, không nên đếm nữa.

Chúc anh em có ngày thiệt vui.

Lỡ giữa dòng có dữ liệu trống thì CT sẽ sai liền!!!
Chúc anh ngày vui!!

HieuCD · 9/1/17

leoheocon đã viết:
Cách chưa đúng nhe anh: ví dụ có 3 số bị trùng và đều trùng là 2, thì nó sẽ ra 6 chứ không phải 3, sao chỗ này anh --(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) không viết là COUNTIF($A$2:$A$1000000,$A$2:$A$1000000)!!!

Đúng như bạn Quốc Gia Can nói, chỉ nhận biết có trùng chứ không đếm số lần trùng
COUNTIF($A$2:$A$1000000,$A$2:$A$1000000) sẽ tính countif tới 1000000 dòng sẽ nặng file
(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) chỉ tính countif theo số dòng thực tế có dữ liệu nên sẽ nhẹ hơn nhiều

leoheocon · 9/1/17

HieuCD đã viết:
Đúng như bạn Quốc Gia Can nói, chỉ nhận biết có trùng chứ không đếm số lần trùng
COUNTIF($A$2:$A$1000000,$A$2:$A$1000000) sẽ tính countif tới 1000000 dòng sẽ nặng file
(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000))) chỉ tính countif theo số dòng thực tế có dữ liệu nên sẽ nhẹ hơn nhiều

Nếu chỉ nhận biết có trùng hay không thì dùng hàm này sẽ nhẹ hơn:

Mã:

=IFERROR(IF(MODE(A2:A1000000),"trung"),"Khong trung")

wisatan · 9/1/17

quocgiacan đã viết:
Hì hì!

Bạn hiền ghi là chỉ "nhận biết" là có trùng thôi (tức có số >0 là có trùng ) chứ không chủ đích "đếm trùng bao nhiêu mã" cả, nên nó nhẹ (nhờ Counta() chỉ tính đến dòng có dữ liệu) là phải rồi.

Anh nghĩ bạn Wisatan chỉ nên dùng công cụ "Remove Duplicate" thôi, không nên đếm nữa.

Chúc anh em có ngày thiệt vui.

Thấy đơn giản mà chẳng đơn giản chút nào, thôi nghe theo bác zay, cám ơn mọi người nhiều.

wisatan · 9/1/17

leoheocon đã viết:
Nếu chỉ nhận biết có trùng hay không thì dùng hàm này sẽ nhẹ hơn:

Mã:

=IFERROR(IF(MODE(A2:A1000000),"trung"),"Khong trung")

ủa sao mình làm thử nó lúc nào cũng báo "không trùng" mặc dù mình đã copy 1 dòng cho trùng.

leoheocon · 9/1/17

wisatan đã viết:
Thấy đơn giản mà chẳng đơn giản chút nào, thôi nghe theo bác zay, cám ơn mọi người nhiều.

Cái này chỉ áp dụng cho số thôi bạn, chuỗi thì không được!!!

HieuCD · 9/1/17

leoheocon đã viết:
Cái này chỉ áp dụng cho số thôi bạn, chuỗi thì không được!!!

công thức trên của mình vẫn còn kẻ hở, dùng công thức nầy tính cả chuổi và số, và nhẹ hơn nữa

Mã:

=IF(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000)))>1,"Trùng","Không trùng")

leoheocon · 9/1/17

HieuCD đã viết:
công thức trên của mình vẫn còn kẻ hở, dùng công thức nầy tính cả chuổi và số, và nhẹ hơn nữa

Mã:

=IF(COUNTIF(OFFSET(A2,,,COUNTA(A2:A1000000)),OFFSET(A2,,,COUNTA(A2:A1000000)))>1,"Trùng","Không trùng")

Thiếu Sumproduct rồi anh, nếu từ A3:A999999 có ô trống thì CT này có thể sẽ không đúng!!!

HieuCD · 9/1/17

leoheocon đã viết:
Thiếu Sumproduct rồi anh, nếu từ A3:A999999 có ô trống thì CT này có thể sẽ không đúng!!!

Đúng là bỏ Sumproduct không được, còn có ô trống chen giửa thì chịu, không còn cách nào ngoài việc phải dùng hàm mảng như hàm Row, thì lại chạy chậm
trường hợp nầy dùng code VBA là thích hợp nhất

quocgiacan · 9/1/17

HieuCD đã viết:
Đúng là bỏ Sumproduct không được, còn có ô trống chen giửa thì chịu, không còn cách nào ngoài việc phải dùng hàm mảng như hàm Row, thì lại chạy chậm
trường hợp nầy dùng code VBA là thích hợp nhất

Vậy thì sẳn trớn "tiến lên" luôn đi bạn hiền.

Khà khà khà! Chúc anh em ngày thiệt vui }}}}}

HieuCD · 10/1/17

quocgiacan đã viết:
Vậy thì sẳn trớn "tiến lên" luôn đi bạn hiền.

Khà khà khà! Chúc anh em ngày thiệt vui

Lệnh của bạn hiền đâu dám không tuân }}}}}

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A1000000")) Is Nothing Then
  If Range("A1000000").End(xlUp).Row > 1 Then
    Dim Darr(), tmp(), Dic As Object, i As Long, k As Long, ki As Long
    Darr = Range("A1", Range("A1000000").End(xlUp)).Value
    ReDim tmp(1 To UBound(Darr))
    Set Dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(Darr)
      If Darr(i, 1) <> "" Then
        If Not Dic.exists(Darr(i, 1)) Then
          If i <> Range(Cells(i, 1), Range("A1000000").End(xlUp)).Find(Darr(i, 1), , , 1).Row Then
            k = k + 1
            tmp(k) = i
          End If
          Dic.Add Darr(i, 1), Array(i, k)
        Else
          ki = Dic(Darr(i, 1))(1)
          tmp(ki) = tmp(ki) & "," & i
          Dic(Darr(i, 1)) = Array(tmp(ki), ki)
        End If
      End If
    Next i
    If k Then
      Range("B1") = k
      ReDim Preserve tmp(1 To k)
      Range("C1") = Join(tmp, " ; ")
    End If
    Set Dic = Nothing:  Erase Darr
  Else
    Range("B1:C1").ClearContents
  End If
End If
End Sub

quocgiacan · 10/1/17

HieuCD đã viết:

Lệnh của bạn hiền đâu dám không tuân }}}}}

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A1000000")) Is Nothing Then
  If Range("A1000000").End(xlUp).Row > 1 Then
    Dim Darr(), tmp(), Dic As Object, i As Long, k As Long, ki As Long
    Darr = Range("A1", Range("A1000000").End(xlUp)).Value
    ReDim tmp(1 To UBound(Darr))
    Set Dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(Darr)
      If Darr(i, 1) <> "" Then
        If Not Dic.exists(Darr(i, 1)) Then
          If i <> Range(Cells(i, 1), Range("A1000000").End(xlUp)).Find(Darr(i, 1), , , 1).Row Then
            k = k + 1
            tmp(k) = i
          End If
          Dic.Add Darr(i, 1), Array(i, k)
        Else
          ki = Dic(Darr(i, 1))(1)
          tmp(ki) = tmp(ki) & "," & i
          Dic(Darr(i, 1)) = Array(tmp(ki), ki)
        End If
      End If
    Next i
    If k Then
      Range("B1") = k
      ReDim Preserve tmp(1 To k)
      Range("C1") = Join(tmp, " ; ")
    End If
    Set Dic = Nothing:  Erase Darr
  Else
    Range("B1:C1").ClearContents
  End If
End If
End Sub

Khà khà khà,

Đâu dám, đâu dám!!!!

Nhìn bạn hiền tiến triển cấp độ "thâm sâu" nội công VBA, đã được các anh em "cao thủ" khác nhìn nhận, rất vui và mừng cho bạn hiền.

Chúc bạn một ngày năng động và thiệt vui. }}}}}

HieuCD · 10/1/17

quocgiacan đã viết:
Khà khà khà,
Đâu dám, đâu dám!!!!
Nhìn bạn hiền tiến triển cấp độ "thâm sâu" nội công VBA, đã được các anh em "cao thủ" khác nhìn nhận, rất vui và mừng cho bạn hiền.
Chúc bạn một ngày năng động và thiệt vui.

Đâu dám!!!
Mình chỉ học qua code của các bạn trên diễn đàn, copy các lệnh, lập thư viện riêng và viết lại theo tình huống mới thôi
Nhiều lệnh không hiểu nên khi dùng vẫn bị chạy lung tung, kiến thức về VBA của mình rất ít, rất nhiều thứ hoàn toàn không biết, chỉ liều mạng viết code và đưa lên thôi )*&^)

chúc bạn vui cả ngày }}}}}

đếm số lần dữ liệu trùng trong 1 cột (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

|||||||||||||

Thành viên mới

|||||||||||||

-⍟-

Chuyên gia GPE

-⍟-

|||||||||||||

Thành viên tiêu biểu

|||||||||||||

Thành viên tiêu biểu

Chuyên gia GPE

-⍟-

Thành viên mới

-⍟-

Chuyên gia GPE

Thành viên mới

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

-⍟-

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Thành viên mới

Thành viên mới

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Chuyên gia GPE

-⍟-

Chuyên gia GPE

File đính kèm

-⍟-

Chuyên gia GPE

Thời gian đếm ngược.