حذف رقم في الخلية

[MAHMOUD ELWY]

السلام عليكم وحمه الله

اولا تحياتي لكل اعضاء الجروب وبالأخص الاستاذ سليم حاصبيانظرا لردوده الفعاله معي دائما

ثانيا اريد الاستفسار بشأن حذف رقم من عدد داخل خليه كما بالمرفقات

ولكم جزيل الشكر والتقدير

Book1.xlsx

[سليم حاصبيا]

الملف الذي رفعته لا يمكن تنزيله (Unavailable)

لذلك اقترح تجربة هذا الملف

Option Explicit
Function Remove_int(Txt, k)
Dim Salim_Match, n

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "(\d)"
 If .Test(Txt) Then
      Set Salim_Match = .Execute(Txt)
        If k >= Salim_Match.Count Then
           n = Salim_Match(Salim_Match.Count - 1).FirstIndex
           Remove_int = Mid(Txt, 1, n)
        Else
           n = Salim_Match(k).FirstIndex + 1
           Remove_int = Mid(Txt, 1, n - 2) _
           & Mid(Txt, n, Len(Txt))
        End If
 Else
    Remove_int = "N/A"
 End If
End With
End Function
'+++++++++++++++++++++++++++++++++

الملف مرفق

Remove_Only_One_Number.xlsm