Xin giúp viết code 1 nút lệnh (1 người xem)

[hoangmai2605]

Chào các bạn trong diễn đàn excel.
Tôi đang làm 1 file excel về phân ca trực và tổng hợp về loại ca của nhân viên.
Bạn Concogia đã giúp Tôi code cho yêu cầu đầu tiên. Rất cảm ơn về sự giúp đỡ của bạn.
Các yêu cầu tiếp theo Tôi đã trình bày chi tiết trong file đính kèm (file size 37.0KB)
Mong nhờ các Anh Chị rành viết code giúp Tôi để Tôi có thể học hỏi cũng như phục vụ cho công việc đang phải làm thủ công hiện tại
Chân thành cám ơn các Anh Chị và mong sớm nhận được sự chỉ dẫn

 

[concogia]

Chào các bạn trong diễn đàn excel.
Tôi đang làm 1 file excel về phân ca trực và tổng hợp về loại ca của nhân viên.
Tôi đã phác thảo ý tưởng những điều mình phải làm.
Đây là điều Tôi muốn làm đầu tiên. Tôi có trình bày chi tiết trong file đính kèm.
Mong nhờ các Anh Chị rành viết code giúp Tôi đoạn code của vấn đề đầu tiên này để Tôi có thể học hỏi và có hướng làm tiếp theo ạ.
Chân thành cám ơn các Anh Chị và mong sớm nhận được sự chỉ dẫn

Bạn thử code này xem:

Public Sub Chia()
    Dim Vung, Cll, I
    Set Vung = Range([b5], [cc5].End(xlToLeft))
    I = 2:  [I1:Ab2].ClearContents
        For Each Cll In Vung
            If Cll.Interior.ColorIndex = 15 Then
                [g1].Offset(, I).Resize(2).Value = Cll.Resize(2).Value
                I = I + 2
            End If
        Next Cll
End Sub

Thân