Nhờ anh chị giúp đánh số thứ tự theo nhóm ngày tháng bằng code VBA (1 người xem)

[toangm]

 

[befaint]

Countif() là được rồi chứ nhỉ...

 

[toangm]

Countif() là được rồi chứ nhỉ...

Em chưa hình dung ra cách xử lý hàng countif của bác!
Dữ liệu của em hàng ngày có khoảng 1.000 bản ghi các nơi gửi về nên em muốn làm tự động bằng code VBA không muốn làm thủ công.

 

[giaiphap]

Em chưa hình dung ra cách xử lý hàng countif của bác!
Dữ liệu của em hàng ngày có khoảng 1.000 bản ghi các nơi gửi về nên em muốn làm tự động bằng code VBA không muốn làm thủ công.

Ô A1 gõ công thức như sau:

=COUNTIF($E$1:E2,E2)

Fill công thức xuống.

 

[be_09]

Em chưa hình dung ra cách xử lý hàng countif của bác!
Dữ liệu của em hàng ngày có khoảng 1.000 bản ghi các nơi gửi về nên em muốn làm tự động bằng code VBA không muốn làm thủ công.

Thêm 1 cách:
A2 gõ số 1
A3 =(E3=E2)*A2+1

 

[batman1]

Ngoài COUNTIF cứ IF đơn giản mà phang
Công thức cho A2

=IF(E2<>E1,1,A1+1)

 

[SA_DQ]

Sub DanhSoThuTuTheoNgay()
 Dim fDat As Date, lDat As Date, SoNgay As Integer, Rws As Long, Dm As Integer, J As Long
 Dim WF As Object, Rng As Range, sRng As Range
 Dim MyAdd As String, MyFormat As String 

 Set WF = Application.WorksheetFunction
 With Sheet1.[E1]
    Rws = .CurrentRegion.Rows.Count:        Set Rng = .Resize(Rws)
    fDat = .Offset(1).Value:                lDat = .Offset(Rws - 2).Value
    SoNgay = lDat - fDat
    Rng.Offset(1).NumberFormat = "mm/dd/yyyy"
 End With
 For J = 0 To SoNgay
    Set sRng = Rng.Find(Format(J + fDat, "MM/DD/yyyy"), , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            Dm = Dm + 1:                    Cells(sRng.Row, "A").Value = Dm
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Dm = 0
    End If
 Next J
End Sub

 

[toangm]

Em đang dùng Countif rồi! Cảm ơn các anh chị đã giúp đỡ!