Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 21
  1. #1
    Tham gia ngày
    09 2008
    Nơi Cư Ngụ
    Ca Mau
    Bài gởi
    180
    Cảm ơn
    134
    Được cảm ơn 29 lần trong 16 bài viết

    Kiểm tra trùng dữ liệu trong 1 cột (dùng Code)

    Mình có cột F có dữ liệu, bao gồm số và chữ : 1,2, 2a, 3b....
    Mình muốn hỏi dùng code thế nào để phát hiện số trùng và hiện Mgsbox thông báo những số trùng đó. Thank

  2. #2
    Tham gia ngày
    10 2008
    Bài gởi
    48
    Cảm ơn
    0
    Được cảm ơn 31 lần trong 23 bài viết
    bạn tự sửa lại đoạn code này từ tô màu đỏ cho những ô có giá trị giống nhau sang hiển thị thông báo msgbox như bạn cần nhé
    Tập tin đính kèm Tập tin đính kèm

  3. Có 4 thành viên cảm ơn dunglev về bài viết này:


  4. #3
    Tham gia ngày
    05 2007
    Bài gởi
    2,869
    Cảm ơn
    3,118
    Được cảm ơn 4,587 lần trong 2,278 bài viết

    Thêm 1 macrro nữa để bạn tham khảo

    Chú ý khi dùng: Bạn thêm bên phải liền kề 1 cột trắng, sẽ OK!
    PHP Code:
    Option Explicit
    Sub TimTrung
    ()
     
    Dim eRw As LongWw As Long:           Dim MyAdd As String
     Dim Rng 
    As RangesRng As Range
     
     eRw 
    = [f65500].End(xlUp).Row:          Columns("G:G").Clear
     
    For Ww 1 To eRw
        With Cells
    (Ww"F")
            If .
    Offset(, 1).Value "" Then
                Set Rng 
    = .Offset(1).Resize(eRw)
                
    Set sRng Rng.Find(.Value, , xlFormulasxlWhole)
                If 
    Not sRng Is Nothing Then
                    MyAdd 
    sRng.Address
                    
    Do
                        
    sRng.Offset(, 1) = .Address
                        Set sRng 
    Rng.FindNext(sRng)
                    
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
                End 
    If
            
    End If
        
    End With
     Next Ww
    End Sub 
    & sau đây là kết quả sau khi chạy macro:
    0909 127 085

  5. Có 3 thành viên cảm ơn HYen17 về bài viết này:


  6. #4
    Các bạn dùng Macro lằng nhằng lắm, hãy dùng luôn tiện các hàm của Excel ấy:
    1. B1: Sắp xếp Data cột theo thứ tự.
    2. B2: Dùng hàm Exact là Ok
    Ví dụ:

    ABHungTRUEHungFALSELanFALSETuanFALSE
    Khi đó Tru là trùng dữ liệu, false là không trùng dữ liệu.
    HTML Code:
    Hungnm

  7. Có 2 thành viên cảm ơn hungnm_ta về bài viết này:


  8. #5
    Tham gia ngày
    05 2008
    Nơi Cư Ngụ
    Hải Phòng
    Bài gởi
    4,456
    Cảm ơn
    3,583
    Được cảm ơn 7,299 lần trong 3,420 bài viết
    Giả sử vùng dữ liệu của bạn là a2:a24, bạn dung condition format với công thức
    =COUNTIF($A$2:$A$32,A24)>1 (Cho đổi màu nền đỏ chẳng hạn)
    Nếu dữ liệu trùng sẽ chuyển nền đỏ và lọc theo số đó là được

  9. Có 3 thành viên cảm ơn sealand về bài viết này:


  10. #6
    Tham gia ngày
    01 2007
    Nơi Cư Ngụ
    TP.HCM
    Bài gởi
    634
    Cảm ơn
    590
    Được cảm ơn 857 lần trong 285 bài viết
    Chào bạn,

    Đoạn code này hay đấy nhưng mà mình muốn mở rộng vùng dữ liệu đến dòng cuối cùng 65536 thì phải sửa đoạn code làm sao ? nếu được viết thêm đoạn code thì trích dữ liệu trùng qua một sheet mới luôn được không vậy bạn ?

    Thanks.
    Anh Tú.
    "Love is beautiful when it's unconclusive".

    Ngyên văn bên dưới:
    __________________________________________________ _________________________
    bạn tự sửa lại đoạn code này từ tô màu đỏ cho những ô có giá trị giống nhau sang hiển thị thông báo msgbox như bạn cần nhé
    Tập tin đính kèm TestForDups1.zip (9.5 KB, 14 lần tải)

  11. Có 2 thành viên cảm ơn laianhtu về bài viết này:


  12. #7
    Tham gia ngày
    12 2007
    Nơi Cư Ngụ
    Q. Bình Thạnh - TPHCM
    Bài gởi
    1,869
    Cảm ơn
    2,882
    Được cảm ơn 4,975 lần trong 1,496 bài viết
    Trích Nguyên văn bởi thanhnhanubnd View Post
    Mình có cột F có dữ liệu, bao gồm số và chữ : 1,2, 2a, 3b....
    Mình muốn hỏi dùng code thế nào để phát hiện số trùng và hiện Mgsbox thông báo những số trùng đó. Thank
    Mình làm code này. Bạn bôi đen vùng muốn kiểm tra. Ấn nút. Những ô bị trùng sẽ bị tô màu đỏ.
    PHP Code:
    Sub KiemtraDulieutrung()
    Dim cell As Range
    For Each cell In Selection
        
    If WorksheetFunction.CountIf(Selectioncell) > 1 Then cell.Interior.ColorIndex 3
    Next
    End Sub 
    Trong file đính kèm mình có minh họa thêm cách dùng bằng công thức kết hợp với CF. Bạn tham khảo nha.
    Tập tin đính kèm Tập tin đính kèm

  13. Có 5 thành viên cảm ơn hoangdanh282vn về bài viết này:


  14. #8
    Tham gia ngày
    09 2008
    Nơi Cư Ngụ
    Ca Mau
    Bài gởi
    180
    Cảm ơn
    134
    Được cảm ơn 29 lần trong 16 bài viết
    Ý mình là thế này : Tìm trên toàn bộ cột nào đó, nếu có số trùng thì ko cần bôi đỏ mà chỉ cần hiện mgsbox :
    1. Đếm xem có bao nhiêu số trùng nhau.
    2. Các số đó là số nào.

    ví dụ : 1,2,1,4,5,6,2,5,7 -->

    Có 3 số trùng nhau, đó là : 1,2,5.

    Thank

  15. #9
    Tham gia ngày
    08 2006
    Bài gởi
    44
    Cảm ơn
    26
    Được cảm ơn 8 lần trong 8 bài viết
    Mọi người thích dungf marco nhỉ. Lợi thế của Marco là gì vậy ?
    Nếu ai đó một lần không chết thì làm sao biết hổ thẹn là gì. Kaka

  16. #10
    Tham gia ngày
    12 2007
    Nơi Cư Ngụ
    Q. Bình Thạnh - TPHCM
    Bài gởi
    1,869
    Cảm ơn
    2,882
    Được cảm ơn 4,975 lần trong 1,496 bài viết
    Trích Nguyên văn bởi thanhnhanubnd View Post
    Ý mình là thế này : Tìm trên toàn bộ cột nào đó, nếu có số trùng thì ko cần bôi đỏ mà chỉ cần hiện mgsbox :
    1. Đếm xem có bao nhiêu số trùng nhau.
    2. Các số đó là số nào.

    ví dụ : 1,2,1,4,5,6,2,5,7 -->

    Có 3 số trùng nhau, đó là : 1,2,5.

    Thank
    Bạn bôi đen vùng cần kiểm tra và bấm nút :
    PHP Code:
    Sub KiemtraDulieutrung2()
    Dim cell As RangeStr As Stringcount As Long
    Str 
    "-"
    For Each cell In Selection
        
    If WorksheetFunction.CountIf(Selectioncell) > And InStr(1Strcell) = 0 Then
            count 
    count 1
            Str 
    Str cell "-"
        
    End If
    Next
    MsgBox 
    "Co " count " so bi trung. Cac so do la :" Chr(10) & Str
    End Sub 
    Tập tin đính kèm Tập tin đính kèm

  17. Có 6 thành viên cảm ơn hoangdanh282vn về bài viết này:


Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Mình muốn tạo số nhập tự động trong khoảng từ 0 đến 10 trong nhiều cell có mã code xi
    Viết bởi ongtrungducmx25 trong chuyên mục Trung tâm giải thích code.
    Trả lời: 10
    Bài mới gởi: 20-01-11, 03:48 PM
  2. Nhờ sửa code tìm dòng cuối cùng trong mảng
    Viết bởi anhtotbung35 trong chuyên mục Trung tâm giải thích code.
    Trả lời: 19
    Bài mới gởi: 08-06-10, 10:42 PM
  3. Hỏi code VBA tương đương hàm Code và hàm Sum trong excel
    Viết bởi viehoai trong chuyên mục Lập Trình với Excel
    Trả lời: 19
    Bài mới gởi: 23-03-10, 08:40 AM
  4. Nhờ giúp đỡ code tự động tạo công thức tính tổng trong VBA
    Viết bởi yeuthamhangxom trong chuyên mục Lập Trình với Excel
    Trả lời: 21
    Bài mới gởi: 28-11-09, 03:22 PM
  5. Chuyển code mã hóa tiếng Việt thành số thành code chạy trong Word?
    Viết bởi Po_Pikachu trong chuyên mục Trung tâm giải thích code.
    Trả lời: 4
    Bài mới gởi: 17-11-08, 05:52 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]