Excel中如何获汉字首字母 VB

复制代码
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 >= 53679 And tmp <= 54480) Then
 
    getpychar = "Y"
 
    ElseIf (tmp >= 54481 And tmp <= 62289) Then
 
    getpychar = "Z"
 
    Else '如果不是中文,则不处理
    getpychar = char
    End If
End Function
'逐个取ASC码
 
Function getpy(str)
 
    For i = 1 To Len(str)
 
        getpy = getpy & getpychar(Mid(str, i, 1))
 
    Next i
 
End Function
在函数框中输入=getpy(A1)

大写字母转小写

=LOWER(getpy(A1))

相关推荐
Tomorrow'sThinker8 小时前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati12 小时前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink1 天前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel
_oP_i1 天前
Excel 的多线程特性
excel
V1ncent Chen1 天前
Excel基础:数据查看
excel
谁他个天昏地暗2 天前
Java 实现 Excel 文件对比与数据填充
java·开发语言·excel
梦想blog2 天前
Spring Boot + Easy Excel 自定义复杂样式导入导出
excel
UrbanJazzerati2 天前
使用Excel制作多类别占比分析字母饼图
excel
The Future is mine2 天前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker3 天前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook