在excel中实现汉字换拼音首字母大写

在excel中实现汉字换拼音首字母大写 åœ?excel 2003å’Œ2007ä??å??ç??验è??æˆ?功ã?‚ä??ç •ä?ºç?‘ä?Šæ”?集ï?Œå?Ÿä?œè?…å??ä??å??è?ƒ ã?‚ Function getpychar(char) tmp = 65536 + Asc(char) If (tmp = 45217 And tmp = 45252) Then getpychar = A ElseIf (tmp = 45253 And tmp = 45760) Then getpychar = B ElseIf (tmp = 45761 And tmp = 46317) Then getpychar = C ElseIf (tmp = 46318 And tmp = 46825) Then getpychar = D ElseIf (tmp = 46826 And tmp = 47009) Then getpychar = E ElseIf (tmp = 47010 And tmp = 47296) Then getpychar = F ElseIf (tmp = 47297 And tmp = 47613) Then getpychar = G ElseIf (tmp = 47614 And tmp = 48118) Then getpychar = H ElseIf (tmp = 48119 And tmp = 49061) Then getpychar = J ElseIf (tmp = 49062 And tmp = 49323) Then getpychar = K ElseIf (tmp = 49324 And tmp = 49895) Then getpychar = L ElseIf (tmp = 49896 And tmp = 50370) Then getpychar = M ElseIf (tmp = 50371 And tmp = 50613) Then getpychar = N ElseIf (tmp = 50614 And tmp = 50621) Then getpychar = O ElseIf (tmp = 50622 And tmp = 50905) Then getpychar = P ElseIf (tmp = 50906 And tmp = 51386) Then getpychar = Q ElseIf (tmp = 51387 And tmp = 51445) Then getpychar = R ElseIf (tmp = 51446 And tmp = 52217) Then getpychar = S ElseIf (tmp = 52218 And tmp = 52697) Then getpychar = T ElseIf (tmp = 52698 And tmp = 52979) Then getpychar = W ElseIf (tmp = 52980 And tmp = 53640) Then getpychar = X ElseIf (tmp = 53689 And tmp = 54480) Then getpychar = Y ElseIf (tmp = 54481 And tmp = 62289) Then getpychar = Z Else 'å?‚æ?œä? æ??ä??æ?‡ï?Œåˆ?ä??å?„ç?† getpychar = char End If End Function Function getpy(str) For i = 1 To Len(str) getpy = getpy getpychar(Mid(str, i, 1)) Next i End Function