Bạn sửa cái tiêu đề cho đúng nội quy. Và đính kèm cho cái file chứ không giúp bằng cách nào
Vâng anh xem giúp em với ạ
Bạn nhờ thì cũng phải cẩn thận chút chứ. Kết quả bạn muốn như thế nào.Trả ở đâu?
Em đang muốn lấy tất cả các mã hàng với giá mua là ngày gần nhất ấy ạ? trong cột mã hàng có nhiều hàng hóa phát sinh và giá thì khác nhau. Vì là lần đầu tiên em hỏi nên em cũng không rõ đặt tiêu đề như nào
Dữ liệu không được sắp xếp hả?
Nếu cùng mã hàng, cùng ngày, giá khác nhau thì lấy cái nào?
Nếu lấy trung bình thì làm như thế nào vậy ạ
Thử xem kết quả đúng ý chưa
Trúng - trật, hên - sui. Trong khi chờ các giải pháp khác thì hãy thử xem.
Nếu có tính trung bình thì xem file. Kết quả đang để ở E1. Phần tính trung bình này sai
Thì chủ thớt chẳng nói ở #1 là lấy "theo ngày gần nhất" rồi còn gì?
Cai hình cháu đính kèm nó cùng ngày cùng mã khác giá mà chú.
Sub TimDonGiaMoiNhat()
Dim Rng As Range, sRng As Range, Cls As Range
Dim MyAdd As String: Dim WF As Object
Dim Rws As Long, Dat As Date
Rws = [B2].CurrentRegion.Rows.Count
Set Rng = [B1].Resize(Rws)
Application.ScreenUpdating = False
For Each Cls In Range([J2], [J9999].End(xlUp))
Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If sRng.Offset(, -1).Value >= Dat Then
Dat = sRng.Offset(, -1).Value
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Cls.Offset(, 1).Value = Dat: Dat = 0
End If
Next Cls
Application.ScreenUpdating = True
End SubĐây là công thức DAX trong PowerPivot, từ Excel 2016 thì addin này có sẵn, còn Excel2010,2013 thì bạn phải tải về mới có.
Cám ơn bạn. Mình sẽ thử
Những trường hợp như vậy thường là ngay cả chủ thớt cũng không phát hiện ra, do vậy mà không nêu yêu cầu ngay từ đầu. Hãy chờ xem chủ thót phản hồi thế nào
