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

[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