Ai có thẻ viết code giùm em kiểm tra theo yêu cầu ? (1 người xem)

[trunghk_26]

Em có một cột số thứ tự 1 đến 100 trong đó có nhiều ô trong cột có giá trị trùng nhau và có những ô không liên tiếp(bớt đi) giờ e muốn viết macro trên excel liệt kê danh sách số bớt và số trùng kèm theo thông báo bao nhiêu số bớt và số trùng thì e viết như thế nao ?
Nếu có thể giúp em đoạn code đếm bao nhiêu giá trị trên cột đó luôn.

 

[SA_DQ]

Bạn thử xài macro như dưới đây

Option Explicit
Sub ThongKeSo()
 Dim WF As Object, Rng As Range, sRng As Range
 Dim jJ As Long, Max_ As Long, Min_ As Long, Tmp As Byte
 Dim MyAdd As String
 
 Columns("A:E").Select
 Selection.Insert Shift:=xlToRight
 Set WF = Application.WorksheetFunction
 Set Rng = [f2].CurrentRegion
 [A1].Value = "Max:":           [A4].Value = "Min:"
 Max_ = WF.Max(Rng):            Min_ = WF.Min(Rng)
 [A2].Value = Max_:             [A5].Value = Min_
 [b1].Value = "Khong có":       [D1].Value = "Só Trùng"
 [C1].Value = "Trùng:"
 For jJ = Min_ To Max_
    Set sRng = Rng.Find(jJ, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [B999].End(xlUp).Offset(1).Value = jJ
    Else
        MyAdd = sRng.Address
        Do
            Tmp = Tmp + 1
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    If Tmp > 1 Then
        With [c999].End(xlUp)
            .Offset(1).Value = Tmp
            .Offset(1, 1).Value = jJ
        End With
    End If
    Tmp = 0
 Next jJ
End Sub

Chú í:

Cột số liệu của bạn hiện đang tại cột 'A' (bắt đầu từ [A1] hay [A2]
Muốn chạy macro lần kế tiếp, bạn cần xóa các cột mà macro vừa tạo ra để ghi kết qủa.