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

[huynhdanghaiau]

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: dạ mình muốn làm sheet có tên 34+35.

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

 

[phuongvq123]

bạn có thể up file lên không

 

[phuongvq123]

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 ạ!

Bài này mình có thể làm 1 số thủ thuật thôi, không cần dùng công thức gì

 

[Nhattanktnn]

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 ạ!

Mình nghĩ cái này chắc dùng VBA copy dữ liệu qua một sheet khác, chèn thêm tiêu đề trên mỗi dòng chứ làm thông thường hơi khó

 

[HieuCD]

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 ạ!

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

 

[Nhattanktnn]

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

 

[HieuCD]

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

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

 

[ndu96081631]

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

Vụ việc gì đây?

 

[HieuCD]

Vụ việc gì đây?

Nhầm lẫn bạn ơi

 

[Nhattanktnn]

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

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à

 

[huynhdanghaiau]

Vụ việc gì đây?

Dạ chân thành cám ơn các bạn đã quan tâm và nhắn tin nhiều hỏi thăm, tối mình thức khuya nên sáng giờ mới thức mình xin úp file lên và nhờ sự giúp đỡ của bạn @ndu96081631 xin chân thành cám ơn bạn rất nhiều. xin bạn hướng dẫn mình thực hiện ạ.
file excel: link tải file excel
cám ơn tất cả các bạn!

 

[HieuCD]

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à

Là bạn Hai Lúa, sáng sớm hố nặng

 

[huynhdanghaiau]

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.

 

[Nhattanktnn]

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.

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

 

[huynhdanghaiau]

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

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!

 

[nguyen ngoc chung]

Tôi có 1 File Excell không thể mở được. Mong nhờ anh chị em mở giúp với

 

[Phuocam]

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!

Thử:

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

 

[Nhattanktnn]

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!

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

 

[huynhdanghaiau]

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

Xin chân thành đa tạ cao nhân, quá tuyệt vời.

 

[huynhdanghaiau]

@Nhattanktnn Mình tên Âu - Long An, rất biết ơn bạn vì bạn đã giúp đỡ.