سلام همانطور که در عکس میبینید من میخوام متن های که بدون لینک هستن یکجا پاک کنم
اگه کسی میتونه راهنمایی که ممنون میشم
اگه کسی میتونه راهنمایی که ممنون میشم

Function HasLink(Target As Range) As Boolean
If Target.Hyperlinks.Count > 0 Then
HasLink = True
Else
HasLink = False
End If
End Function
Function HasLink(Target As Range) As Boolean
If Target.Hyperlinks.Count > 0 Then
HasLink = True
Else
HasLink = False
End If
End Function
کامنت