thanghdth1
Thành viên mới

- Tham gia
- 15/10/19
- Bài viết
- 2
- Được thích
- 0
Tìm kiếm dữ liệu ô chéo. cụ thể trong bảng exl đính kèm. em cảm ơn trước ạ.
View attachment 227729
Function MaxIf(DauVo As String, Rng As Range) As String
Dim Cls As Range
DauVo = LTrim$(DauVo)
For Each Cls In Rng
If Left(LTrim$(Cls.Value), 1) = LTrim$(DauVo) And Cls.Value > MaxIf Then
MaxIf = Cls.Value: ' MsgBox MaxIf '
End If
Next Cls
End Function