Xin các pr chỉ giáo cách đánh thứ tự và chức năng Filter với các ô merge trong execl. (1 người xem)

[Việt Sì Ke]

Làm thế nào để kéo các ô ở cột C theo thứ tự 1,2,3...


Có cách nào để Filter cột F


Link file: http://www.mediafire.com/view/m8793b9tl2a9m6dmmmtncz88cmk9rzh
P/s: Tks các pro.

 

[Việt Sì Ke]

các admin có cao kiến gì chỉ giúp với.

 

[bongmaihung]

View attachment 131261

Làm thế nào để kéo các ô ở cột C theo thứ tự 1,2,3...
View attachment 131262

Có cách nào để Filter cột F
View attachment 131263

Link file: http://www.mediafire.com/view/m8793b9tl2a9m6dmmmtncz88cmk9rzh
P/s: Tks các pro.

Sub DanhSTT1()
    Dim i As Long, Cll As Range
    Set Cll = Selection(1, 1)
    Do While Cll.Row < Selection.Row + Selection.Rows.Count
        i = i + 1
        Cll = i
        Set Cll = Cll.Offset(1)
    Loop
End Sub

Bạn chép code trên vào Alt+F11, Insert Module
Bạn bôi đên vùng merge cần đánh số thứ tự tự động Alt+F8 Run là ok
Bạn tham khảo code sau của Thầy ndu nhé
http://www.giaiphapexcel.com/forum/showthread.php?25728-Merge-v%C3%A0-%C4%91%C3%A1nh-s%E1%BB%91-th%E1%BB%A9-t%E1%BB%B1-trong-d%C3%A3y-%C3%B4-%C4%91%C3%A3-merge
Bạn nên xem cách gửi bài theo đường link trên nhé
[url]http://www.giaiphapexcel.com/forum/showthread.php?33633-H%C6%B0%E1%BB%9Bng-d%E1%BA%ABn-g%E1%BB%ADi-b%C3%A0i-v%C3%A0-%C4%91%C3%ADnh-k%C3%A8m-t%E1%BA%ADp-tin
[/URL]