Những dòng không có ngày bỏ qua, hay lấy và xét điều kiện như thế nào
Những dòng không có ngày mà trùng lặp thì lấy 1 giá trị bất kỳ trong những vị trí trùng lặp đó. Nhờ bác giúp đỡ ạ.
2 dòng trùng, 1 có ngày 1 không có ngày thì sau?
Có khi nào cứ sort cột Ngày theo từ cũ tới mới. Xong nạp vào Dic những giá trị lần đầu nó xuất hiện được không thầy nhỉ?
Cái này cần gì sort cứ nạp vào dic rồi kiểm tra với giá trị cũ vấn đề ở đây là có dòng có dữ liệu dòng không mà nó trùng nhau.Nên không biết lấy thế nào.Cái này phải do yêu cầu của tác giả mới viết code chuẩn được.
Như vậy thì sẽ lấy dùng giá trị có ngày ạ.
Với dữ liệu đã sort theo cột B, chạy sub ABC ..
Sub ABC()
Dim sArr(), res(), tmp$, ngay, sRow&, i&, r&, k&, j&
With Sheets("Kadex")
sArr = .Range("A2:D" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Value
End With
sRow = UBound(sArr) - 1
ReDim res(1 To sRow, 1 To 4)
For i = 1 To sRow
If tmp <> sArr(i, 2) Then
k = k + 1
r = i
tmp = sArr(i, 2)
ngay = sArr(i, 4)
ElseIf sArr(i, 4) <> Empty Then
If ngay = Empty Or ngay > sArr(i, 4) Then
r = i
ngay = sArr(i, 4)
End If
End If
If tmp <> sArr(i + 1, 2) Then
For j = 1 To 4
res(k, j) = sArr(r, j)
Next j
End If
Next i
Sheets("Kadex").Range("F2").Resize(k).NumberFormat = "@"
Sheets("Kadex").Range("F2").Resize(k, 4) = res
End SubQuá tuyệt vời, cám ơn bác nhiều ạ, chúc bác nhiều sức khoẻ.
