
Minh lấy giúp thôi nhé, cách làm thì bạn tìm hiểu dầnem đang làm quyết toán thuế TNCN, để mò theo thủ công thì rất lâu. Em nhờ nah chị trong diễn đàn giúp em lọc trùng tên của 12 tháng qua 12 sheet. Em cám ơn rất nhiều ah
Sub Tim()
Dim WS As Worksheet, Sarr, Arr(1 To 65000, 1 To 1), i As Long, k As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
For Each WS In Worksheets
If WS.Name <> "TH" Then
Sarr = WS.Range("B6", WS.[B65000].End(xlUp)).Resize(, 1).Value2
For i = 1 To UBound(Sarr, 1)
If Not Dic.exists(Sarr(i, 1)) Then
k = k + 1
Dic.Add Sarr(i, 1), k
Arr(k, 1) = Sarr(i, 1)
End If
Next
End If
Next
With Sheets("TH")
.[A1:A65000].ClearContents
.[A1].Resize(k, 1).Value = Arr
End With
Set Dic = Nothing
End Sub
Thì làm công thức sum như bình thường. Cộng từng ô thuế tại mỗi sheet lạiem hỏi ngu tý muốn tính tổng thuế tncn các tháng thi nên dùng công thức gì ah
Ví dụ cột thuế nó ko cố định tại một cột mà linh tính tại mỗi sheet thì dùng công thức tính tổng như thế nào cho chính xác