excel 中文转英文首字母大写

1、1.中文转英文首字母大写，我的excel是2007版本的，

2.现在将下面的中文字转为英文首字母大写，

2、1.点击视图

2.点击宏

3.点击查看宏

3、1.在弹出框输入自定义名称

2.在右侧点击创建

3.将函数复制到输入框那边

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 

4.添加完后直接关闭就好了

4、1.最后就大功告成啦

2.在要中文转英文大写的地方利用函数就能实现了