وعليكم السلام تم تنفيذ طلبك بمعادلة IF مع دالة معرفة LETTEROUT
Function LETTEROUT(RNG As Range)
Dim I As Integer
For I = 1 To Len(RNG)
Select Case Asc(Mid(RNG.Value, I, 1))
Case 0 To 64, 123 To 197
LETTEROUT = LETTEROUT & Mid(RNG.Value, I, 1)
End Select
Next I
End Function
وهذه هي المعادلة المطلوبة
=IF(RIGHT(B2,2)="AM",LETTEROUT(B2),IF(RIGHT(B2,2)="PM",LETTEROUT(B2)+12,""))
A.xlsm