Nhờ giúp tìm kiếm các số trùng nhau liên tiếp ?

[leanhhai1205]

em có file sau nhờ các khác làm giúp ạ.
Tìm kiếm và đếm các số 2 chạy gần nhau ở các cột

 

[Phan Thế Hiệp]

em có file sau nhờ các khác làm giúp ạ.
Tìm kiếm và đếm các số 2 chạy gần nhau ở các cột

Thử:

AP2=MAX(FREQUENCY(IF($A2:$AO2=2,COLUMN($A$:$AO)),IF($A2:$AO2<>2,COLUMN($A:$AO))),)

kết thúc bằng Ctrl+Shift+Enter, fill xuống.
Thân.

 

[huuthang_bd]

em có file sau nhờ các khác làm giúp ạ.
Tìm kiếm và đếm các số 2 chạy gần nhau ở các cột

Function TimDay(MangKiemTra As Variant, SoKiemTra As Variant) As Long
Dim So As Variant, SoLanLap As Long
MangKiemTra = MangKiemTra
For Each So In MangKiemTra
    If So = SoKiemTra Then
        SoLanLap = SoLanLap + 1
    Else
        If SoLanLap > TimDay Then
            TimDay = SoLanLap
        End If
        SoLanLap = 0
    End If
Next
If SoLanLap > TimDay Then TimDay = SoLanLap
End Function

Bài này dùng công thức được.

 

[leanhhai1205]

Thử:

AP2=MAX(FREQUENCY(IF($A2:$AO2=2,COLUMN($A$:$AO)),IF($A2:$AO2<>2,COLUMN($A:$AO))),)

kết thúc bằng Ctrl+Shift+Enter, fill xuống.
Thân.

em copy rồi pate xong bấm Ctrl+Shift+Enter mà không đc bác ạ

 

[Phan Thế Hiệp]

em copy rồi pate xong bấm Ctrl+Shift+Enter mà không đc bác ạ

Xem file kèm.
Thân.

 

[leanhhai1205]

Function TimDay(MangKiemTra As Variant, SoKiemTra As Variant) As Long
Dim So As Variant, SoLanLap As Long
MangKiemTra = MangKiemTra
For Each So In MangKiemTra
    If So = SoKiemTra Then
        SoLanLap = SoLanLap + 1
    Else
        If SoLanLap > TimDay Then
            TimDay = SoLanLap
        End If
        SoLanLap = 0
    End If
Next
If SoLanLap > TimDay Then TimDay = SoLanLap
End Function

Bài này dùng công thức được.

add Function xong rồi gõ công thức gì nữa để nó ra kết quả bác ơi ?

Bài đã được tự động gộp: 31/7/18

Xem file kèm.
Thân.

Cám ơn bác nha !

 

[huuthang_bd]

add Function xong rồi gõ công thức gì nữa để nó ra kết quả bác ơi ?

Tôi đặt tên bằng tiếng Việt hết mà bạn

=TimDay(A2:AO2,2)

 

[leanhhai1205]

Tôi đặt tên bằng tiếng Việt hết mà bạn

=TimDay(A2:AO2,2)

dạ em xin lỗi bác ạ !

 

[leanhhai1205]

dạ em xin lỗi bác ạ !

thì em ko biết gì về code nên mới cần bác trả lời tận tình chứ.

 

[leanhhai1205]

Giờ em muốn các bác giúp em thêm 1 việc nữa là trong file trên là tìm và sắp xếp các số 2 của các dòng phải xen kẽ nhau (liền mạch cũng được)

 

[Ba Tê]

Giờ em muốn các bác giúp em thêm 1 việc nữa là trong file trên là tìm và sắp xếp các số 2 của các dòng phải xen kẽ nhau (liền mạch cũng được)

Chuyện sắp xếp tại chỗ chắc phải dùng VBA.
Đang "thất nghiệp" chờ giờ "lên mâm" nên viết "củ chuối" cho đỡ "chua miệng".

 

[VetMini]

...
Đang "thất nghiệp" chờ giờ "lên mâm" nên viết "củ chuối" cho đỡ "chua miệng".

Bác thất nghiệp thiêt.
Nhìn yêu cầu là biết thớt ra câu hỏi kiểu nhỏ giọt rồi.

 

[leanhhai1205]

Bác thất nghiệp thiêt.
Nhìn yêu cầu là biết thớt ra câu hỏi kiểu nhỏ giọt rồi.

Bài này em đã hỏi xong rồi ạ.

 

[leanhhai1205]

Chuyện sắp xếp tại chỗ chắc phải dùng VBA.
Đang "thất nghiệp" chờ giờ "lên mâm" nên viết "củ chuối" cho đỡ "chua miệng".

Cám ơn thầy, cái này chạy rất rất tốt (2 in 1 luôn).