كيف ازيل الارقام من جدول اكسيل

[salem alsalem]

السلام عليكم

لدي جدول اكسيل يوجد به معلومات نسختها تحتوي ارقام

اريد ان ازيل هذه الارقام

مثال

1 Review result against reference ranges.

2 Review result against critical limits and report as per policy

3 Review result against delta limits and respond as per policy

4 Review result against linear limits and respond as per policy

5 Review result for interference and respond as per policy

6 Ensure results are documented accurately

7 Assess, document and report quality control results

8 Use LIS to report results ( under supervision)

 

اريدة ان يكون هكذا بدون ارقام

Review result against reference ranges.

Review result against critical limits and report as per policy

Review result against delta limits and respond as per policy

Review result against linear limits and respond as per policy

Review result for interference and respond as per policy

Ensure results are documented accurately

Assess, document and report quality control results

Use LIS to report results ( under supervision)

 

 

تقبلو تحياتي

ورمضان كريم

 

[جمال عبد السميع]

أستخدم هذه المعادلة أخى ستحقق ماتريد

وذلك بفرض أن بداية البيانات هى الخلية "A1"

=SUBSTITUTE(A1;MID(A1;FIND(" ";A1)-1;1);"")

أوهذه المعادلة أيضا

=SUBSTITUTE(A1;LEFT(A1;FIND(" ";A1)-1);"")

أوهذه أيضا

=RIGHT(A1;LEN(A1)-FIND(" ";A1))

ثم إسحبها لأسفل

وهذا كود أيضا لو رغبت فى الأكواد

Sub RemoveNumberSpace()
' gamal_abdelsammeh, 07/05/2014
Dim c As Range, h As String
Application.ScreenUpdating = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  h = c
  c = Right(h, Len(h) - WorksheetFunction.Search(" ", h))
Next c
Application.ScreenUpdating = True
End Sub

ثم إسحبها لأسفل

تقبل تحياتى