访问本页面，您的浏览器需要支持JavaScript求教！Excel表格中，如何提取D列中文字的首字母到C列？
求教！Excel表格中，如何提取D列中文字的首字母到C列？
这两天弄Excel表格，需要填写药品名称的助记词，方便查询。由于数量太多，手工填写工作量太大，特在此求教。
大家看图，首字母是在表格的C列，药品中文名在表格的D列。要怎么样可以批量地把D列中的药品名的首字母对应地提取到C列中去？&
急啊~~麻烦各位好心的友友教下啦。在网站上搜索的看不懂。& 可不可以弄个详细步骤？
本来想用VBA 编程给你搞定，后来一想excel有个类似功能的函数！ 于是用公式搞定比较简单！ 直接在C1单元格输入公式“=LEFT(D1,1)”然后往下托就OK！ 如果你想只要数值可以选择性粘贴！ 简单吧！如果有什么问题不明白可以加我QQ：
不好意思，刚才看错了你的问题！
下面从新回答！
Option ExplicitPublic Function py(mystr As String) As String&&& Dim i As Long&&& i = Asc(mystr)&&& Select Case i&&&&&&& Case -20319 To -20284: py = "A"&&&&&&& Case -20283 To -19776: py = "B"&&&&&&& Case -19775 To -19219: py = "C"&&&&&&& Case -19218 To -18711: py = "D"&&&&&&& Case -18710 To -18527: py = "E"&&&&&&& Case -18526 To -18240: py = "F"&&&&&&& Case -18239 To -17923: py = "G"&&&&&&& Case -17922 To -17418: py = "H"&&&&&&& Case -17417 To -16475: py = "J"&&&&&&& Case -16474 To -16213: py = "K"&&&&&&& Case -16212 To -15641: py = "L"&&&&&&& Case -15640 To -15166: py = "M"&&&&&&& Case -15165 To -14923: py = "N"&&&&&&& Case -14922 To -14915: py = "O"&&&&&&& Case -14914 To -14631: py = "P"&&&&&&& Case -14630 To -14150: py = "Q"&&&&&&& Case -14149 To -14091: py = "R"&&&&&&& Case -14090 To -13319: py = "S"&&&&&&& Case -13318 To -12839: py = "T"&&&&&&& Case -12838 To -12557: py = "W"&&&&&&& Case -12556 To -11848: py = "X"&&&&&&& Case -11847 To -11056: py = "Y"&&&&&&& Case -11055 To -10247: py = "Z"&&&&&&& Case Else: py = mystr&&& End SelectEnd FunctionFunction HZP(strn As String)&&& Dim i As Integer&&& For i = 1 To Len(strn)&&&&&&& HZP = HZP & py(Mid(strn, i, 1))&&& Next iEnd Function
上面的代码新建VBA复制进去！
C1单元格中输入& =HZP(a1)&&& 公式调用就行了，然后往下托！
其他回答 (2)
这个不行，得你自己手动建立这个数据库
那请问需要怎么弄呢 ？具体些可以么？
我的意思是说你得自己手动填写好药品的名字，或者你上网搜索别人已经打好的数据填写上去。
代码较多，有自定义函数。
这个吗？&& 网上找的。& 不过看不懂&& 那个什么模块不知道从哪里找把下面的代码复制在一个VBE模块里面，然后在工作表里面像使用其他函数一样使用HZP（）函数就可以了
比如A1 是 中国人
则在B1输入公式： =HZP(a1) 就会显示结果 ZGR
还不明白的话 HI我
Option Explicit
Public Function py(mystr As String) As String
Dim i As Long
i = Asc(mystr)
Select Case i
Case -20319 To -20284: py = "A"
Case -20283 To -19776: py = "B"
Case -19775 To -19219: py = "C"
Case -19218 To -18711: py = "D"
Case -18710 To -18527: py = "E"
Case -18526 To -18240: py = "F"
Case -18239 To -17923: py = "G"
Case -17922 To -17418: py = "H"
Case -17417 To -16475: py = "J"
Case -16474 To -16213: py = "K"
Case -16212 To -15641: py = "L"
Case -15640 To -15166: py = "M"
Case -15165 To -14923: py = "N"
Case -14922 To -14915: py = "O"
Case -14914 To -14631: py = "P"
Case -14630 To -14150: py = "Q"
Case -14149 To -14091: py = "R"
Case -14090 To -13319: py = "S"
Case -13318 To -12839: py = "T"
Case -12838 To -12557: py = "W"
Case -12556 To -11848: py = "X"
Case -11847 To -11056: py = "Y"
Case -11055 To -10247: py = "Z"
Case Else: py = mystr
End Select
End Function
Function HZP(strn As String)
Dim i As Integer
For i = 1 To Len(strn)
HZP = HZP & py(Mid(strn, i, 1))
End Function
可以，自己试试吧。
哥，我不知道怎么试啊``可以具体的教下么？
要写在代码中，按alt+F11两键，建一个模块，将代码放在这个模块中。然后在单元格中引用
一两句话说不清楚的。
相关知识等待您来回答
微软专区领域专家
& &SOGOU - 京ICP证050897号访问本页面，您的浏览器需要支持JavaScript}