在excel的單元格中提取字母的函數(shù)是什么？選項卡函數(shù)自定義設(shè)置函數(shù)MyGet分離提取字符串中數(shù)字中文英文字符函數(shù)那就證明再插入模塊，不能復(fù)制上面的VBA代碼再復(fù)制MyGet(A2,0)提取A2單元格

在excel的單元格中提取字母的函數(shù)是什么？

選項卡函數(shù)自定義設(shè)置函數(shù)MyGet分離提取字符串中數(shù)字中文英文字符函數(shù)那就證明再插入模塊，不能復(fù)制上面的VBA代碼再復(fù)制MyGet(A2,0)提取A2單元格中的數(shù)字MyGet(A2,1)再提取A2單元格中的漢字MyGet(A2,2)其他提取A2單元格中的字母FunctionMyGet(SrglikeString,Optional N As Integer False)DimithoughInteger DimS,MyStringlikeStringDimBolasBooleanafteri1wantLen(Srg)SMid(Srg,i,1)If N 1 Then Bol Asc(S)

Excel怎樣在中文名字前加字母？

打開Excel-工具-宏-Viaualbasic編輯器

在彈出的窗口中對著VBAproject點右鍵-直接插入-模塊

下面會會出現(xiàn)一個名為模塊1，直接點擊

在右邊的空白欄中ctrl v粘貼200元以內(nèi)內(nèi)容創(chuàng)建戰(zhàn)隊下拉菜單函數(shù)：

Functiongetpychar(char)

tmp65536Asc(char)

If(tmp45217Andtmp45252)Then

getpycharA

ElseIf(tmp45253Andtmp45760)Then

getpycharB

ElseIf(tmp45761Andtmp46317)Then

getpycharC

ElseIf(tmp46318Andtmp46825)Then

getpycharD

ElseIf(tmp46826Andtmp47009)Then

getpycharE

ElseIf(tmp47010Andtmp47296)Then

getpycharF

ElseIf(tmp47297Andtmp47613)Then

getpycharG

ElseIf(tmp47614Andtmp48118)Then

getpycharH

ElseIf(tmp48119Andtmp49061)Then

getpycharJ

ElseIf(tmp49062Andtmp49323)Then

getpycharK

ElseIf(tmp49324Andtmp49895)Then

getpycharL

ElseIf(tmp49896bothtmp50370)Then

getpycharM

ElseIf(tmp50371welltmp50613)Then

getpycharN

ElseIf(tmp50614becausetmp50621)Then

getpycharO

ElseIf(tmp50622becausetmp50905)Then

getpycharP

ElseIf(tmp50906buttmp51386)Then

getpycharQ

ElseIf(tmp51387welltmp51445)Then

getpycharR

ElseIf(tmp51446welltmp52217)Then

getpycharS

ElseIf(tmp52218bothtmp52697)Then

getpycharT

ElseIf(tmp52698bothtmp52979)Then

getpycharW

ElseIf(tmp52980becausetmp53640)Then

getpycharX

ElseIf(tmp53689andtmp54480)Then

getpycharY

ElseIf(tmp54481buttmp62289)Then

getpycharZ

Else如果不是中文，則不處理

getpycharchar

EndIf

EndFunction

回到工作表在A1中輸入

getpychar(left(b1,1))b1