[Hỏi] Cách lặp lại tiêu đề cho mỗi 1 nhân viên trong bảng?

huynhdanghaiau đã viết:

Dạ cho mình xin chân thành cám ơn các bạn đã quan tâm và đọc bài viết này.
Hiện mình có 1 bảng lương có tất cả 54 nhân viên, mình muốn in ra lặp tiêu đề cho từng một nhân viên trong bảng, tức là nhân viên số 2 cũng có tiêu đề ở trên giống nhân viên số 1, nhân viên số 3 cũng có tiêu đề cho đến hết.
Thành quả giống như hình mình up như vầy:

Bảng của mình thì dữ liệu như thế này:

Chân thành xin cao nhân giúp đỡ, cám ơn rất nhiều ạ!

Nhấp chuột vào đây để mở rộng...

huynhdanghaiau đã viết:

Dạ cho mình xin chân thành cám ơn các bạn đã quan tâm và đọc bài viết này.
Hiện mình có 1 bảng lương có tất cả 54 nhân viên, mình muốn in ra lặp tiêu đề cho từng một nhân viên trong bảng, tức là nhân viên số 2 cũng có tiêu đề ở trên giống nhân viên số 1, nhân viên số 3 cũng có tiêu đề cho đến hết.
Thành quả giống như hình mình up như vầy:

Bảng của mình thì dữ liệu như thế này:

Chân thành xin cao nhân giúp đỡ, cám ơn rất nhiều ạ!

Nhấp chuột vào đây để mở rộng...

huynhdanghaiau đã viết:

Dạ cho mình xin chân thành cám ơn các bạn đã quan tâm và đọc bài viết này.
Hiện mình có 1 bảng lương có tất cả 54 nhân viên, mình muốn in ra lặp tiêu đề cho từng một nhân viên trong bảng, tức là nhân viên số 2 cũng có tiêu đề ở trên giống nhân viên số 1, nhân viên số 3 cũng có tiêu đề cho đến hết.
Thành quả giống như hình mình up như vầy:

Bảng của mình thì dữ liệu như thế này:

Chân thành xin cao nhân giúp đỡ, cám ơn rất nhiều ạ!

Nhấp chuột vào đây để mở rộng...

Nhattanktnn đã viết:

Bác @phuocam bấm mặt cười làm em hoang mang quá. Em có nói sai chỗ nào không

Nhấp chuột vào đây để mở rộng...

HieuCD đã viết:

Giời ạ, đơn vị có chuyên gia số một về Excel @ndu96081631, nhờ bạn ấy giải quyết trong 5 giây cần gì gởi lên diễn đàn

Nhấp chuột vào đây để mở rộng...

ndu96081631 đã viết:

Vụ việc gì đây?

Nhấp chuột vào đây để mở rộng...

HieuCD đã viết:

@phuocam cười mình nhớ nhầm

Nhấp chuột vào đây để mở rộng...

ndu96081631 đã viết:

Vụ việc gì đây?

Nhấp chuột vào đây để mở rộng...

Nhattanktnn đã viết:

Hình như bác đang nói tới bác Lê Phát Đởm trong file ấy ạ? bác ấy là @Hai Lúa Miền Tây hay sao mà

Nhấp chuột vào đây để mở rộng...

huynhdanghaiau đã viết:

Dạ các bạn có bạn nào giải quyết được vấn đề rồi, xin úp lại file kết quả giúp mình nha, và hướng dẫn cách làm để mình làm nhé. xin cám ơn các bạn rất là nhiều.

Nhấp chuột vào đây để mở rộng...

Nhattanktnn đã viết:

Tiêu đề của bạn trộn dòng như hình trên thì không thủ công được rồi (Nếu không trộn dòng(chỉ một dòng) thì mình chỉ cho bạn cách làm rất nhanh để in
Còn vba thì bạn phải up file lên

Nhấp chuột vào đây để mở rộng...

huynhdanghaiau đã viết:

Mình có úp file rồi ak bạn. mình muốn làm sheet 34+ 35, mẫu nó có tiêu đề như vậy có trộn ô nhiều nên mình không có làm được, vba thì mình làm như thế nào xin bạn giúp đỡ. dạ cám ơn bạn!

Nhấp chuột vào đây để mở rộng...

Public Sub InsertHeader()
Dim i As Long, lastRow As Long

Application.ScreenUpdating = False
With Sheet8
    lastRow = .Range("A" & Rows.Count).End(xlUp).Row
    For i = lastRow - 1 To 11 Step -1
        If IsNumeric(.Range("A" & i).Value) And IsNumeric(.Range("A" & i + 1).Value) And .Range("A" & i).Value <> "" And .Range("A" & i + 1).Value <> "" Then
            .Range("A" & i).Offset(1).Resize(3).EntireRow.Insert
            .Range("A8:BB10").Copy .Range("A" & i).Offset(1)
        End If
    Next

End With
Application.ScreenUpdating = True

End Sub

huynhdanghaiau đã viết:

Mình có úp file rồi ak bạn. mình muốn làm sheet 34+ 35, mẫu nó có tiêu đề như vậy có trộn ô nhiều nên mình không có làm được, vba thì mình làm như thế nào xin bạn giúp đỡ. dạ cám ơn bạn!

Nhấp chuột vào đây để mở rộng...

Sub InSert_Title()
Application.ScreenUpdating = False
Dim Lr As Long, Title As Range
Lr = Sheet8.Range("B" & Rows.Count).End(xlUp).Row
Set Title = Rows("8:10")
For i = Lr To 12 Step -1
    Title.Copy: Rows(i).Insert
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Nhattanktnn đã viết:

PHP:Sao chép.

Sub InSert_Title()
Application.ScreenUpdating = False
Dim Lr As Long, Title As Range
Lr = Sheet8.Range("B" & Rows.Count).End(xlUp).Row
Set Title = Rows("8:10")
For i = Lr To 12 Step -1
    Title.Copy: Rows(i).Insert
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Nhấp chuột vào đây để mở rộng...