VBA - Code cộng dồn số tiền nhưng vận đơn giống nhau, sai ở đâu?

[ST-Lu!]

CÓ đoạn code sau dùng để cộng dồn số tiền những bill giống nhau
Nhưng sau khi chạy code em thấy bị sai

Mong các anh chỉ giúp em chỗ bị sai với

Er = [A65536].End(xlUp).Row
For i = 2 To Er
    Tmp = Cells(i, 6)
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Tmp = Tmp + Cells(i - 1, 6)
        Cells(i - 1, 8).ClearContents
        Cells(i - 1, 7).ClearContents
        Cells(i, 6) = Tmp
    End If
    Cells(i, 6) = Tmp
Next
    Range("H2:H" & Er).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("G2:G" & Er).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    Range([a1], Selection.End(xlDown)).Columns.AutoFit

em không biết có phải do biến Tmp em khai báo không nữa?

Hic

 

[ST-Lu!]

Em tìm ra nguyên nhân rôi
không hiểu sao 76.92 nó hiểu thành 7692

có cách nào khắc phục không ạh

 

[sealand]

Bạn để nguồn dạng text mà tính toán thì nó cố cho ra sô sai đã cố gắng lắm rồi, chứ bạn đặtl sum vào nó còn cho bằng 0 cơ. Bạn dùng hàm value để chuyển là OK

 

[ST-Lu!]

Bạn để nguồn dạng text mà tính toán thì nó cố cho ra sô sai đã cố gắng lắm rồi, chứ bạn đặtl sum vào nó còn cho bằng 0 cơ. Bạn dùng hàm value để chuyển là OK

Cái này em không để?
Em comment là dữ liệu gốc (extract từ một phần mềm online của công ty) khi xuất ra nó có định dạng như vậy

Em đã xóa bớt dữ liệu bớt rối mắt, bình thường mình lọc những dữ liệu liên quan đến mình bằng tay thì lâu lắm anh ạh

Code này đợt trước chạy ngon nhưng không hiểu sao giờ lại bị lỗi vụ 76.92 này

Vậy mình phải khai báo biến Tmp như nào để nó nhận anh nhỉ?
Hay trước khi chạy vòng lặp mình replace những dấu "." đi

 

[ST-Lu!]

He he...tại regional and language option...

Em chỉ cần chỉnh lại là ngon