Làm sao để lọc các dữ liệu trùng nhau ở cột NVL đồng thời cộng tổng tại cột KL (1 người xem)

[ktninhbinh]

Làm sao để xoá các dữ liệu trùng nhau tại cột Loại NVL nhưng đồng thời không làm mất giá trị của chúng tại cột KL bằng cách cộng các khối lượng này lại
e gửi file đính kèm để các bác dễ hình dungView attachment Book1.xlsx. giúp e với e nghĩ mãi mà k ra cách gì nhanh cả

 

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

Làm sao để xoá các dữ liệu trùng nhau tại cột Loại NVL nhưng đồng thời không làm mất giá trị của chúng tại cột KL bằng cách cộng các khối lượng này lại
e gửi file đính kèm để các bác dễ hình dungView attachment 88471. giúp e với e nghĩ mãi mà k ra cách gì nhanh cả

Phần mã và DVT có những ô không có dữ liệu thì sao hả bạn? Tiêu chí cộng tổng là có phải chỉ lấy cột Loại Vật Tư?

 

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

Đợi bạn trả lời lâu quá, thôi thì làm cho bạn thử = ADO với tiêu chí cột là Loại vật tư.

Sub Tong()
Dim strPath, mySQL As String
Dim Cnn As New ADODB.Connection
Dim Rcs As New ADODB.Recordset
strPath = ThisWorkbook.FullName


Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & _
                            ";Persist Security Info=False; Extended Properties=Excel 8.0;"
                            
mySQL = "select [loai vt], round(sum(kl),4) " & _
        "from [Tong hop$] " & _
        "where [loai vt] is not null " & _
        "group by [loai vt] "


Rcs.Open mySQL, Cnn, 1, 3
    [H2:I1000].ClearContents
    [H2].CopyFromRecordset Rcs
    Rcs.Close: Set Rcs = Nothing
    Cnn.Close: Set Cnn = Nothing


End Sub