haivp_bidv
Thành viên mới

- Tham gia
- 11/1/08
- Bài viết
- 1
- Được thích
- 0
Function LKe(Rng As Range, Tuoi As Integer) As String
Dim Cls As Range
For Each Cls In Rng(1).Resize(Rng.Rows.Count)
If Cls.Offset(, 1).Value = Tuoi Then
LKe = LKe & "; " & Cls.Value
End If
Next Cls
If Len(LKe) > 2 Then
LKe = Mid(LKe, 3, Len(LKe))
Else
LKe = "Nothing" & Str(Tuoi)
End If
End Function