tổng hợp Cột A của nhiều sheet thành 1 sheet (2 người xem)

[lamho27]

Chào các bạn
tôi có 1 file gồm 13 sheet , trong đó 12 sheet ( 12 tháng ) tôi muốn khi thêm tên ở cột A ( tên nhân viên ) từ tháng 2 đến tháng 12 thì nó copie vào sheet "janvier "
cám ơn các bạn

 

[ChanhTQ@]

/-(ình như file bạn đang bị khóa rồi thì fải, mình mở nó báo vậy!

 

[doveandrose]

/-(ình như file bạn đang bị khóa rồi thì fải, mình mở nó báo vậy!

file vẫn mở bình thường mà thầy , thầy giúp em với

 

[Ba Tê]

Chào các bạn
tôi có 1 file gồm 13 sheet , trong đó 12 sheet ( 12 tháng ) tôi muốn khi thêm tên ở cột A ( tên nhân viên ) từ tháng 2 đến tháng 12 thì nó copie vào sheet "janvier "
cám ơn các bạn

Đừng chèn thêm sheet nào nữa nhé, ẩn 1 sheet là tìm hoa mắt rồi.
Nếu có thêm những sheet không cần lấy dữ liệu thì nhập thêm vào dòng này 3 chữ cái đầu của sheet đó:
DK = "Cal;Par;Jan;Feu"

Public Sub GPE()
Dim Dic As Object, Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 1)
Dim I As Long, K As Long, Tem As String, DK As String
Set Dic = CreateObject("Scripting.Dictionary")
DK = "Cal;Par;Jan;Feu"
With Sheets("Janvier")
    sArr = .Range("A5", .Range("A5").End(xlDown)).Value
    For I = 1 To UBound(sArr)
        Dic.Item(sArr(I, 1)) = ""
    Next I
End With
For Each Ws In Worksheets
    If InStr(DK, Left(Ws.Name, 3)) = 0 Then
        sArr = Ws.Range("A5", Ws.Range("A5").End(xlDown)).Value
        For I = 1 To UBound(sArr)
            If Not Dic.Exists(sArr(I, 1)) Then
                K = K + 1
                dArr(K, 1) = sArr(I, 1)
            End If
        Next I
    End If
Next Ws
If K Then Sheets("Janvier").Range("A65536").End(xlUp).Offset(1).Value = dArr
Set Dic = Nothing
End Sub