تعداد اعداد موجود در یک سلول (count number)

[a.dal65]

با سلام خدمت اساتید
من چند تا سلول دارم به این شکل :

علی محمدی 456456456

عطا 70770144

454عطا

علی 14 علی

0عطا0 علی0 عطا

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

9

8

3

2

3

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

چنانچه دیتای شما در ستون A باشد از کدهای ذیل استفاده کنید.

Sub test()

ENDROW = Cells(Rows.Count, "A").End(xlUp).Row

For J = 1 To ENDROW

K = 0

For I = 1 To Len(Range("A" & J))

If IsNumeric(Mid(Range("A" & J), I, 1)) Then

K = K + 1

End If

Next I

MsgBox K

Next J

End Sub 

[a.dal65]

ممنون جناب Iranweld
فقط امکانش هست که بصورت vba نباشه ؟
ستون a دیتای من باشه
ستون b هم اعداد باشه.

[mohammad_ashooryan]

با سلام و کسب اجازه از دوست و استاد عزیز جناب iranweld
از فرمول زیر نیز به صورت آرایه ای میتوانید استفاده کنید:

=COUNT(IFERROR(--MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1);"")) 

count_numbers.xlsx

[majid_mx4]

با سلام

ضمن تشکر از دوست و استاد عزیز جناب آقای Iranwiled عزیز و کسب اجازه

متوانید از فرمول زیر استفاده نمایید.

=LEN(SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW($1:$25),1))*
ROW($1:$25),0),ROW($1:$25))+1,1)*10^ROW($1:$25)/10))

پایدار باشید میر

[amir_ts]

با سلام
از فرمول زیر هم میتونید استفاده کنید.

=sum(len(a1)-len(substitute(a1;{1;2;3;4;5;6;7;8;9;0};"")))