آمار تعداد لغات شروع شده با حرف مشخص

[sunstar]

سلام براساتید گرامی
من یک شیت انگلیسی دارم که ستونa آن در حدود 5000 لغت انگلیسی درج شده است اگر بخواهم تعداد لغات انگلیسی که با حرفaشروع میشود را بدانم آیا کدی وجود دارد که با اجرای آن از طریق msgbox اعلام نماید ؟ با سپاس

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

[amir_ts]

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

Sub test()
Dim num As Integer
num = Application.WorksheetFunction.CountIf(Range("a1:a5000"), "a*")
MsgBox "ÊÚÏÇÏ ˜áãå íÏÇ ÔÏå" & num
End Sub