Question

如何用函数公式在EXCEL表格中将中文变成助记码

Answer 1

使用方法：  

1、 打开要生成的EXCEL文件，选择工具--宏---Visual Basic编辑器（快捷键：alt+f11）

2、 选择：插入--模块--把下方的代码粘贴到里面，保存

3、 代码部分：

 Function PinYin(Hz As String)
  Dim PinMa As String
  Dim MyPinMa As Variant
  Dim Temp As Integer, i As Integer, j As Integer
  PinMa = "a,20319,"
  PinMa = PinMa & "b,20283,"
  PinMa = PinMa & "c,19775,"
  PinMa = PinMa & "d,19218,"
  PinMa = PinMa & "e,18710,"
  PinMa = PinMa & "f,18526,"
  PinMa = PinMa & "g,18239,"
  PinMa = PinMa & "h,17922,"
  PinMa = PinMa & "j,17417,"
  PinMa = PinMa & "k,16474,"
  PinMa = PinMa & "l,16212,"
  PinMa = PinMa & "m,15640,"
  PinMa = PinMa & "n,15165,"
  PinMa = PinMa & "o,14922,"
  PinMa = PinMa & "p,14914,"
  PinMa = PinMa & "q,14630,"
  PinMa = PinMa & "r,14149,"
  PinMa = PinMa & "s,14090,"
  PinMa = PinMa & "t,13318,"
  PinMa = PinMa & "w,12838,"
  PinMa = PinMa & "x,12556,"
  PinMa = PinMa & "y,11847,"
  PinMa = PinMa & "z,11055,"
  MyPinMa = Split(PinMa, ",")
  For i = 1 To Len(Hz)
  Temp = Asc(Mid(Hz, i, 1))
      If Temp < 0 Then
        Temp = Abs(Temp)
        For j = 45 To 1 Step -2
            If Temp <= Val(MyPinMa(j)) Then
                PinYin = PinYin & MyPinMa(j - 1)
                Exit For
            End If
        Next
      Else
         ' 保留非汉字字符
      PinYin = PinYin & Mid(Hz, i, 1)
      End If
  Next
  PinYin = Trim(PinYin)
End Function

4、 保存后，回到EXCEL内容编辑界面   
5、 在需要生成助记码的地方。输入公式  =pinyin(相应的汉字单元格) 

Answer 2

公式有点长：
=LOOKUP(CODE(A1),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},MID("ABCDEFGHJKLMNOPQRSTWXYZ",ROW($1:$23),1))
外话，助记码应该是英语叫法吧？翻译成中文有点……（不好说了）