Cách tìm và lọc các mã số trùng

[giangthanh83]

Mình có vấn đề này rất mong các bạn co thể giúp mình:
Sheet 1: có cột : MSNV, tên NV, hạng mục làm việc (A), Ngày công, thành tiền ..........
Sheet 2: có cột : MSNV, tên NV, hạng mục làm việc (B), Ngày công, thành tiền ..........
Sheet 3: có cột : MSNV, tên NV, hạng mục làm việc (C), Ngày công, thành tiền ............
Sheet 4: Bảng tổng hợp tiền lương sẽ trộn 3 sheet đó lại để sao cho VD Nhân viên AA làm cà ba hạng mục A,B,C chỉ xuất hiện 1 lần trong bảng tổng hợp tiền lương thôi. vời số ngày công và thành tiền là = sum của 3 sheet cộng lại.

 

[MinhCong]

Bạn đưa file lên ghi rõ yêu cầu trong file sẽ có nhiều người giúp

 

[Lê Duy Thương]

dùng thử cái record này xem sao

Mình có vấn đề này rất mong các bạn co thể giúp mình:
Sheet 1: có cột : MSNV, tên NV, hạng mục làm việc (A), Ngày công, thành tiền ..........
Sheet 2: có cột : MSNV, tên NV, hạng mục làm việc (B), Ngày công, thành tiền ..........
Sheet 3: có cột : MSNV, tên NV, hạng mục làm việc (C), Ngày công, thành tiền ............
Sheet 4: Bảng tổng hợp tiền lương sẽ trộn 3 sheet đó lại để sao cho VD Nhân viên AA làm cà ba hạng mục A,B,C chỉ xuất hiện 1 lần trong bảng tổng hợp tiền lương thôi. vời số ngày công và thành tiền là = sum của 3 sheet cộng lại.

Tôi còn mơ hồ về cái yêu cầu của bạn . làm đỡ cái record xem sao nhớ là dùng 2007 nhé vì tôi không sử dụng 2003 nên không biết record nó có khác nhau không?

Private Sub CommandButton1_Click()
Sheets("TOTAL").Select
ActiveSheet.Cells.Clear
ActiveSheet.Range("B5").Select
For i = 1 To 3
Ten_sheet = Trim(Str(i))
Sheets(Ten_sheet).Select
ActiveSheet.Range("B6:F162").Copy
Sheets("TOTAL").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ActiveSheet.Range("B" & i * 161 + 1).Select
Next
ActiveSheet.Range("G6").FormulaR1C1 = "=SUMIF(R6C2:R2000C2,RC2,R6C5:R2000C5)"
ActiveSheet.Range("H6").FormulaR1C1 = "=SUMIF(R6C2:R2000C2,RC2,R6C6:R2000C6)"
ActiveSheet.Range("G6:H6").Select
Selection.AutoFill Destination:=Range("G6:H2000")
ActiveSheet.Range("G6:H2000").Copy
ActiveSheet.Range("E6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ActiveSheet.Range("$B$4:$F$2000").RemoveDuplicates Columns:=1
ActiveSheet.Range("$G$4:$I$2000").Clear
ActiveSheet.Range("B5").Select
end sub


xem thêm file