提取汉语拼音第一个字母以及用VB替代EXCEL的VLookUp函数