[حل شده] تعداد اعداد موجود در یک سلول (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};"")))