Excel 怎么用最简单的函数显示姓名的首字母大写
答案:3 悬赏:80 手机版
解决时间 2021-03-16 10:13
- 提问者网友：活着好累
- 2021-03-16 04:19
Excel 怎么用最简单的函数显示姓名的首字母大写
最佳答案
- 五星知识达人网友：撞了怀
- 2021-03-16 04:47
Function PY(myStr As String) As String
Dim LenInt As Integer, i As Integer
Dim Temp As String, oStr As String
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
LenInt = Len(myStr)
For i = 1 To LenInt
If Asc(Mid(myStr, i, 1)) > 0 Or Err.Number = 1004 Then oStr = ""
oStr = Application.WorksheetFunction.Lookup(Mid(myStr, i, 1), _
[{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"呒","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}])
Temp = Temp & oStr
Next i
PY = Temp
End Function
用这个自定义函数试试
Dim LenInt As Integer, i As Integer
Dim Temp As String, oStr As String
On Error Resume Next
myStr = StrConv(myStr, vbNarrow)
LenInt = Len(myStr)
For i = 1 To LenInt
If Asc(Mid(myStr, i, 1)) > 0 Or Err.Number = 1004 Then oStr = ""
oStr = Application.WorksheetFunction.Lookup(Mid(myStr, i, 1), _
[{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"呒","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}])
Temp = Temp & oStr
Next i
PY = Temp
End Function
用这个自定义函数试试
全部回答
- 1楼网友：患得患失的劫
- 2021-03-16 07:26
在B列输入公式=proper(A1)
- 2楼网友：蓝房子
- 2021-03-16 05:49
可以用函数=proper(a1)来实现首字母大写
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯