Option Explicit
Function THDiem(Rng As Range, Ten As String)
ReDim MDL(1 To 1, 1 To 4) As String
Dim Cls As Range, sRng As Range: Dim Rws As Long
Rws = Rng.Rows.Count
Set sRng = Rng.Find(Ten, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then _
Set Rng = Range(sRng, Rng.Cells(1, 1).Offset(Rws))
For Each Cls In Rng
If Cls.Value = Ten Then
If Cls.Offset(, 4) <> "" Then MDL(1, 3) = Cls.Offset(, 4).Value
If Cls.Offset(, 5) <> "" Then MDL(1, 1) = Cls.Offset(, 5).Value
If Cls.Offset(, 6) <> "" Then MDL(1, 4) = Cls.Offset(, 6).Value
If Cls.Offset(, 7) <> "" Then MDL(1, 2) = Cls.Offset(, 7).Value
End If
Next Cls
THDiem = MDL
End Function
