Hỏi về vấn đề đánh số thứ tự

[kakuna]

Chào mọi người, em có vấn đề sau muốn nhờ mọi người giải đáp

Em có một bảng như sau:



Bây giờ em muốn đánh số thứ tự cho các số ở cột phải, mỗi số sẽ có 1 dãy thứ tự khác nhau bắt đầu từ số 1. Ví dụ như số 3 em đánh số 1, số 5 em đánh số 1, số 10 em đánh số 1... rồi số 10 tiếp theo trong cột em đánh số 2, số 10 tiếp theo nữa em đánh số 3... cứ thế cho đến hết cột.

Kết quả cuối cùng sẽ như thế này:



Nhưng làm thủ công như vậy sẽ rất mất thời gian. Vậy cho em hỏi có hàm nào để đánh số thứ tự kiểu như em vừa mô tả không?

(Em đã thử dùng cách sắp xếp lại thứ tự cột phải rồi đánh số thứ tự bằng cách kéo thả. Nhưng với lượng dữ liệu lớn thì cách đó vẫn không hiệu quả lắm)

 

[kakuna]

Em vừa tìm ra cách giải quyết rồi ạ. Nhờ admin xóa bài này giúp em.

Xin lỗi đã làm phiền mọi người.

 

[befaint]

Em vừa tìm ra cách giải quyết rồi ạ. Nhờ admin xóa bài này giúp em.

Xin lỗi đã làm phiền mọi người.

Làm mà phải xóa đi. Để đó cho người khác tham khảo chứ?

A2=COUNTIF($B$2:B2,B2)
'Fill down

 

[Hoang2013]

Rãnh rỗi quá mà:

Sub DanhSoThuTu()
Dim Min_ As Long, Max_ As Long, J As Long, W As Integer
Dim WF As Object, Rng As Range, sRng As Range:     Dim MyAdd As String

Set WF = Application.WorksheetFunction
Set Rng = Range([B1], [B2].End(xlDown))
Min_ = WF.Min(Rng):                                Max_ = WF.Max(Rng)
For J = Min_ To Max_
    Set sRng = Rng.Find(J, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            W = W + 1:                              sRng.Offset(, -1).Value = W
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        W = 0
    Else
    End If
Next J
End Sub