Cómo utilizar VBA para lograr las siguientes operaciones en EXCEL2010

C1 Pegue esta fórmula matricial, presione "Ctrl Shift Enter" para finalizar la entrada, menú desplegable:

=IF (SUM((LEFT($A$1:$A$5000, LEN(A1 ))=TEXTO(A1, "@"))*((LEN($A $1：$A$5000)-LEN(SUSTITUTO($A$1：$A$5000，"." ,""))) =(len (a1)-len(sustituto(a1, "." , ""))) 1)*$B$1：$B$5000)lt;gt;0,SUM((IZQUIERDA($A$1：$A $5000,LEN (A1))=TEXTO(A1,"@"))*((LEN($A$1：$A$5000)-LEN(SUSTITUTO($A$1：$A$5000,".","") )=( LEN(A1)-LEN(SUSTITUTO(A1,".",""))) 1)*$B$1:$B$5000),B1).