Trộn các bảng lương của các tháng vào một sheet.

[yentrang0903]

Chào mọi người,
Mình đang cần tính tổng lương một năm cho nhân viên trong công ty. Mỗi tháng là một file excel, vì số thứ tự của mỗi nhân viên không giống nhau nên mình không thể copy vào nhau được. Mình nhớ có cách làm là trộn hai bảng excel vào nhau mà dựa vào cột tên để gán lương vào cho đúng, giờ mình không nhớ chính xác cách làm. Có bạn nào biết làm chỉ cho mình nhé, cảm ơn nhiều.

 

[Hai Lúa Miền Tây]

Chào mọi người,
Mình đang cần tính tổng lương một năm cho nhân viên trong công ty. Mỗi tháng là một file excel, vì số thứ tự của mỗi nhân viên không giống nhau nên mình không thể copy vào nhau được. Mình nhớ có cách làm là trộn hai bảng excel vào nhau mà dựa vào cột tên để gán lương vào cho đúng, giờ mình không nhớ chính xác cách làm. Có bạn nào biết làm chỉ cho mình nhé, cảm ơn nhiều.

Mỗi 1 nhân viên có 1 mã số riêng ?, có thể dùng code gộp tất cả các file đó vào chung 1 file, dùng Pivot hoặc Consolidate để tổng hợp.

 

[diepsoncm]

Mong bạn hướng dẫn kỹ hơn vì mình cũng đang cần làm cái vụ này.
Hoặc bạn giup gui cai file đính kèm để mình học tập
cảm ơn nhiều!

 

[SA_DQ]

Lý ra các bạn fải gởi file lên

Nãy giờ mình fải giả lập file cho các bạn, thật fí nhiều thời gian mà chắc chưa thể đúng ngay í các bạn được.
Nếu chưa đúng thì tụ chỉnh sửa đi nha, theo file đính kèm!

Option Explicit
Sub THLuongNam()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Clls As Range
 Dim Thg As Byte, jJ As Byte:                Dim eRw As Long, Rw As Long
  
 eRw = Sheets("HoSo").[A65500].End(xlUp).Row
 Sheets("THop").Select:                      [D3].Resize(eRw, 7 * 12).ClearContents
 For Each Clls In Range([B3], [B65500].End(xlUp))
   Rw = Clls.Row
   For Each Sh In Worksheets
      If Sh.Name <> "HoSo" And Sh.Name <> "THop" Then
         Set Rng = Sh.Range(Sh.[A2], Sh.[A65500].End(xlUp))
         Thg = Sh.[A1].Value
         Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
         If Not sRng Is Nothing Then
            Cells(Rw, 7 * Thg - 3).Resize(, 4).Value = sRng.Offset(, 2).Resize(, 4).Value
         End If
      End If
   Next Sh
 Next Clls
End Sub

Bổ sung: Nên xem file này tại bài 20