Hàm bị lỗi End if without block If (1 người xem)

[haôbe]

Function TIMSO(rCell As Range)
Dim lCount As Long
Dim sText As String
Dim lNum As String
sText = rCell
For lCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, lCount, 1)) Then lNum = Mid(sText, lCount, 1) & lNum
End If
Next lCount
TIMSO = CLng(lNum)
End Function

Hàm bị lỗi như thế nào? Rất mong các pro có hướng giải quyết xin cảm ơn nhiều!!!

 

[dhn46]

Bạn bỏ End If đi nhé

 

[haôbe]

Cảm ơn Pro rất nhiều! Tôi đã làm được rồi, cho tôi hỏi thêm chút nữa, đoạn code này chỉ tìm được 9 số trong 1 đoạn văn bản còn nếu tìm nhiều hơn 9 số thì phải sửa đoạn code này như thế nào, mong chỉ giáo, cảm ơn nhiều!!!