2个回答
展开全部
可以先用code函数转换成单个数字,再连接起来。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
那只能用自定义函数了
Function ABC(a As Range)
Dim i%, j%, arr(), ss$
ss = a.Value
j = Len(ss)
ReDim arr(1 To j)
For i = 1 To j
If Asc(Mid(ss, i, 1)) >= 65 And Asc(Mid(ss, i, 1)) <= 90 Then
arr(i) = Asc(Mid(ss, i, 1)) - 64
Else
arr(i) = Mid(ss, i, 1)
End If
Next
ABC = Join(arr, "")
End Function
Function ABC(a As Range)
Dim i%, j%, arr(), ss$
ss = a.Value
j = Len(ss)
ReDim arr(1 To j)
For i = 1 To j
If Asc(Mid(ss, i, 1)) >= 65 And Asc(Mid(ss, i, 1)) <= 90 Then
arr(i) = Asc(Mid(ss, i, 1)) - 64
Else
arr(i) = Mid(ss, i, 1)
End If
Next
ABC = Join(arr, "")
End Function
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询