提取汉语拼音第一个字母以及用VB替代EXCEL的VLookUp函数

查找函数之Vlookup(取汉字首位字母)

vlookup应用实例精确匹配查询之基本运用精确查找是vlookup 最基本也是最常用的功能，对于数据量大的查找，其速度比菜单中的查找还快。

设置vlookup 第四精确查找适用于文本，也适用于数值；但对数值查找时须注意格式一致，否则会出错数值近似匹配查询之基本运用近似匹配查找通常情况下用于累进数值的查找。

此时第四个参数省略，或为true，或为非0数值。

（EXCEL中0等同FA注意公式中第四个参数省略，或为true，或为非0数值。

并且查找的第一列必须升序排列，否则不会返回期望的结果（需要注意的是此时不一定返回错误）。

试着输入5000，你会发现税率为20%，应是15%（由条件指定），虽然对最后计算结果没有影响。

以返回文本近似匹配查询之基本运用对于文本，一般不使用近似匹配查找（非模糊查找）。

并非文本不能用于近似查找，主要是没有太多用途。

除了下面这个例子：这个例子利用文本近似匹配查找汉字的第一个拼音字母由于EXCEL中汉字字符是按拼音排序的，因此汉字字符比较时的大小与拼音同序左边的表是根据汉字拼音首字母排列，并取各字母的临界点汉字字符（该字母的通过将“家”与表中字符比较后，找到比“家”小的最大值“J这个例子一般用于姓名的缩写，而上面的公式只找第一个字符，因此需要修改这个公式取得前三个汉字字符的拼音字母。

使用MID依次取出字符后由Vlookup查使用该例关键是【表三】的建立；同理，如果要查找汉字的完整拼音，可以建立但这个方法并不一直正确，由于多音字及文字大小排序与其拼音不完全一致的原区别查询结果的空白与0值依次序返回同一查询结果的多列内容当查询某个结果的多列内容，并要依次取出，可使用column()函数作为index_num参数column()函数返回公式所在列的列号，当公式复制时，会随单元格的移动相应改变lookup_value参数使用混合引用，如$B96。

即对列标绝对引用（列标前加$）、行号相对引用上面公式只要输入C96中的公式，然后向右、向下复制就可以。

汉字取拼音首字母程序vba

Option ExplicitPublic Sub dnxbz()Dim myrange As RangeDim i As Long, j As LongDim temp As StringSet myrange = Worksheets("Sheet1").Range("a1").CurrentRegionFor i = 1 To myrange.Rows.Count '从1行开始到有数据的最后一行temp = Cells(i, "A") '假设原数据在A列For j = 1 To Len(temp)If Get_Pinyin(Mid(temp, j, 1)) <> "" Then Mid(temp, j, 1) = Get_Pinyin(Mid(temp, j, 1)) '如果速度慢再加个变量NextCells(i, "B") = temp '假设B列为输出数据NextEnd SubPublic Function Get_Pinyin(ByVal Hanzi As String) As StringDim Ch As StringCh = Left(Hanzi, 1)Select Case Asc(Ch)Case -20319 To -20284Get_Pinyin = "A"Case -20283 To -19776Get_Pinyin = "B"Case -19775 To -19219Get_Pinyin = "C"Case -19218 To -18711Get_Pinyin = "D"Case -18710 To -18527Get_Pinyin = "E"Case -18526 To -18240Get_Pinyin = "F"Case -18239 To -17923Get_Pinyin = "G"Case -17922 To -17418Get_Pinyin = "H"Case -17417 To -16475Get_Pinyin = "J"Case -16474 To -16217Get_Pinyin = "K"Case -16216 To -15641 Get_Pinyin = "L" Case -15640 To -15166 Get_Pinyin = "M" Case -15165 To -14923 Get_Pinyin = "N" Case -14922 To -14915 Get_Pinyin = "O" Case -14914 To -14631 Get_Pinyin = "P" Case -14630 To -14150 Get_Pinyin = "Q" Case -14149 To -14091 Get_Pinyin = "R" Case -14090 To -13319 Get_Pinyin = "S" Case -13318 To -12839 Get_Pinyin = "T" Case -12838 To -12557 Get_Pinyin = "W" Case -12557 To -11848 Get_Pinyin = "X" Case -11847 To -11056 Get_Pinyin = "Y" Case -11055 To -10246 Get_Pinyin = "Z" Case ElseGet_Pinyin = ""End SelectEnd Function。

excel：汉字拼音首字母提取

方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。

不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。

Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。

excel获得汉字首字母的方法

在日常工作和学习中，我们经常需要对文本进行处理和分析，尤其是对于中文文本。

在处理中文文本时，有时会遇到需要将汉字转换为拼音的需求。

而在Excel中，获得汉字的首字母则成为了一个常见的需求。

那么，如何在Excel中获得汉字的首字母呢？我们可以利用Excel内置的函数来实现这一目标。

在Excel中，可以使用VB脚本编写一个自定义函数来获取汉字的首字母。

具体步骤如下：1. 打开Excel表格，按下ALT + F11，打开VB编辑器。

2. 在VB编辑器中，插入一个新模块。

3. 在新模块中输入以下VB脚本代码：```vbFunction GetFirstLetter(str As String) As StringDim pinyin As StringDim i As IntegerDim ch As Stringpinyin = ""For i = 1 To Len(str)ch = Mid(str, i, 1)pinyin = pinyin &Left(Application.WorksheetFunction.Phonetic(ch), 1)Next iGetFirstLetter = pinyinEnd Function```4. 编译保存后，返回Excel表格界面。

5. 在需要获取汉字首字母的单元格中输入`=GetFirstLetter(A1)`，其中A1为需要转换的汉字所在的单元格。

6. 按下Enter键，即可在目标单元格中获取到相应汉字的首字母。

通过上述方法，我们可以轻松地在Excel中获得汉字的首字母，而且可以将这个函数在多个单元格中批量应用，提高工作效率。

除了使用VB脚本自定义函数外，我们还可以借助Excel内置的函数来实现汉字首字母的获取。

在Excel中，有一个叫做UNICODE的函数，可以返回指定字符的Unicode编码。

而对于汉字来说，其首字母的Unicode编码可以作为其拼音的首字母。

excel：汉字拼音首字母提取

方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。

不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。

Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。

Excel-VBA自定义函数取姓名的汉语拼音首字母

Excel-VBA自定义函数取姓名的汉语拼音首字母应用场景用函数取汉语拼音的首字母知识要点1：Option Compare语句，设置缺省的字符比较方法，只能在模块级使用，语法Option Compare {Binary | Text | Database} Option Compare Binary ,按排序顺序进行字符串比较A<B<C<a<b<?等，Option Compare text 不区分大小写进行字符串比较A=a2：将所有拼音首字母相同的第一个汉字取出来组成一个字符串，例如拉、洛、梁等，拉=la最靠前，取拉3：将参数中的每个字符与参照字符串中每个比较，统计参照字符串中有多少字符小于参数中的字符，如果有10个，通过chr函数，转换成第9个英文字符J，非汉字保持不变Option Compare Text '比较方式为text'声明函数PY，有一个必选参数，为特引用的单元格或者字符串Function PY(Rng As Range)Application.Volatile '声明为易失性函数Dim i As Integer, k As Integer, Str As StringIf Len(Rng) = 0 Then PY = '': Exit Function '如果引用单元格空白，则返回空文本If Not IsNumeric(Rng) Then '如果不是数值Str = WorksheetFunction.Trim(Rng) '去除空格格后，赋予变量strFor i = 1 To Len(Str) '遍历所有字符If Mid(Str, i, 1) < '啊' Then '如果小于啊，表示不是汉字PY = PY & Mid(Str, i, 1) '保留原字符不变Elsek = 1'将字符串中每个字符与参数中的字符进行比较，统计字符串中大于参数中的字符的个数，得到变量 kDo Until Mid$('八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗', k, 1) > Mid$(Str, i, 1)k = k 1LoopPY = PY & Chr(64 k) '根据K值得到大写的英文字母(chr(65)为第一个字母AEnd IfNextEnd IfEnd Function。

excel提取汉字首字母函数

excel提取汉字首字母函数【Excel函数提取中文首字母】在日常工作中，我们常常需要处理汉字相关的数据，而Excel中没有直接提取汉字首字母的函数。

为了解决这个问题，我们可以使用VBA自定义函数或是使用IF、MID等函数进行求解。

方法一：使用VBA自定义函数1. 按下Alt+F11，打开VBE编辑器，插入一个新模块，输入以下代码：Function GetFirstLetter(str As String) As StringDim pinyin As Variantpinyin = Split(CreateObject("ChineseSpell.Spelling").GetPinyin(str), " ")Dim i As IntegerGetFirstLetter = ""For i = LBound(pinyin) To UBound(pinyin)GetFirstLetter = GetFirstLetter & Left(pinyin(i), 1)Next iEnd Function2. 在Excel工作表中输入汉字，例如输入“中文提取首字母”，在相邻的单元格中输入函数“=getfirstletter(A1)”，其中A1为待提取首字母的单元格。

方法二：使用Excel函数求解使用IF、MID、LEN等函数这样的组合即可实现提取汉字首字母的功能。

示例：I18N国际化技术=IF(LEN(A1)=1,LEFT(A1,1),IF(OR(UNICODE(MID(A1,1,1))<19968,UNICODE(MID(A1, 1,1))>40869),"",LEFT(PINYIN(INDEX(MID(A1,1,LEN(A1)-0*(UNICODE(MID(A1,1,1))<19968)-LEN(RIGHT(PINYIN(LEFT(A1,LEN(A1)-0*(UNICODE(MID(A1,1,1))<19968)))),1)),1)))其中，A1为待提取首字母的单元格。

提取汉语拼音第一个字母以及用VB替代EXCEL的VLookUp函数

提取汉语拼音第一个字母以及用VB替代EXCEL的VLookUp函数Private Sub Command1_Click()Dim V As Variant, I%, S$, J%Const sStr$ = "中华人民共和国重庆、长安、长大" '多音字无法判别Dim sGet$'模糊比较时，数组应该先进行排序V = Array("吖", "A", "八", "B", "嚓", "C", "咑", "D", "鵽", "E", "发", "F", "猤", "G", "铪", "H", "夻", "J", "咔", "K", "垃", "L", "嘸", "M", "旀", "N", "噢", "O", "妑", "P", "七", "Q", "囕", "R", "仨", "S", "他", "T", "屲", "W", "夕", "X", "丫", "Y", "帀", "Z")For I = 1 To Len(sStr)S = Mid(sStr, I, 1)If Asc(S) > 255 Or Asc(S) < 0 ThensGet = sGet & MyVLookUp(S, V, J, False)ElsesGet = sGet & UCase(S)End IfNextMsgBox sStr & vbCrLf & vbCrLf & sGetEnd SubPrivate Function MyVLookUp$(ByVal InS$, ByRef InV As Variant, ByRef OutIndex%, Optional IsExact As Boolean)Dim I%, J%For I = 0 To UBound(InV) - 1 Step 2J = StrComp(InS, InV(I), vbTextCompare)If J = 0 ThenMyVLookUp = InV(I + 1)Exit FunctionElseIf J = -1 ThenIf I = 0 ThenMyVLookUp = UCase(InS)Exit FunctionElseIf Not IsExact Then '只有模糊匹配时才退出 MyVLookUp = InV(I - 1)Exit FunctionEnd IfEnd IfNextMyVLookUp = InV(UBound(InV))End Function。

提取单元格汉字首字母

提取单元格汉字首字母在处理 Excel 表格数据时，有时需要将单元格中的汉字转换为汉字拼音的首字母，以便进行后续的数据分析和处理。

本文将介绍如何使用 Excel 中的函数和工具来提取单元格汉字首字母，并分析其适用范围和注意事项。

一、使用 LEFT 函数提取单个汉字的首字母Excel 中的 LEFT 函数用于从文本字符串的左侧提取指定长度的字符。

结合汉字拼音的特点，可以使用 LEFT 函数提取汉字的首字母。

例如，假设 A1 单元格中为“中国”，则可以使用以下公式提取其首字母：=LEFT(A1,1)这个公式的含义是从单元格 A1 左侧提取 1 个字符，即“中”的首字母，“结果为“Z”。

需要注意的是，该方法只能提取单个汉字的首字母，多个汉字则无法处理。

二、使用 VBA 宏提取多个汉字的首字母如果需要提取多个汉字的首字母，可以使用 Excel 的 VBA 宏来实现。

下面是一段实现该功能的 VBA 代码：Sub ChineseFirstLetter()Dim str As String, result As Stringstr = Selection.ValueFor i = 1 To Len(str)result = result &Left(LCase(Application.WorksheetFunction.Substitute(Application.Transpose(Split(Trim (str(i, 1)), " ")), " ", "")), 1)Next iSelection.Value = UCase(result)End Sub该宏的作用是将选定区域中的汉字转换为首字母，并将结果替换原单元格中的内容。

需要注意的是，该宏需要在 Excel 中启用宏功能，并将其保存为一个新的模块。

三、使用 PinYin 工具包提取多个汉字的首字母使用 VBA 宏虽然能够实现多个汉字首字母的提取，但对于不熟悉 VBA 编程的用户来说，会存在一定的难度。

excel查找函数应用：如何提取姓名的拼音首字母

excel查找函数应用：如何提取姓名的拼音首字母编按：哈喽，大家好！如果此刻让你快速提取汉字拼音的首字母，你会怎么做呢？相信大多数小伙伴面对这个问题时，都会蒙圈，可能会想“这应该得用VBA解决吧，函数应该不行吧。

”其实呀，这个问题用大家都会的VLOOKUP函数就能搞定，赶紧来看看吧！例如A列是员工姓名，需要在B列填写对应的拼音首字母：如果遇上这种问题该怎么办？用户来说，难道真的只能一个一个手动输入吗？实际上使用一个大家都非常熟悉的VLOOKUP函数也是可以搞定这个问题的，不过公式嘛，就有点吓人，是这个样子的：看到这个公式是不是都蒙圈了。

可千万不要被这个表面上看起来很夸张的公式吓到，我们换一种写法，也许你就看明白了。

怎么样，这个公式是不是有点看明白了。

与第一个公式的区别就在于，后面这个公式是把VLOOKUP的第二参数放在单元格区域中了，公式的本质并没有什么区别。

因为名单中的姓名都不超过三个字，所以先用MID函数将每个字单独提取出来，使用VLOOKUP得到每个字的拼音首字母，再把三个VLOOKUP函数用&连接起来。

因此公式的核心其实是=VLOOKUP(MID(A2,1,1),$D$1:$E$24,2)。

对于VLOOKUP函数的用法，大家应该都比较熟悉了，格式是：VLOOKUP（查找值,查找区域,在第几列找,怎么找）。

在本例中，要重点说明的有下面几个要点：1.第一参数可以使用公式，本例中分别使用MID(A2,1,1)、MID(A2,2,1)和MID(A2,3,1)作为查找值；2.本例中的VLOOKUP函数只用了三个参数，同时省略了第三参数2后面的逗号，这种写法表示使用了VLOOKUP函数模糊匹配，与第四参数为1的功能相同；3.关于省略VLOOKUP函数最后一个参数的意义，一定要注意一点，省略参数而不省略逗号时，表示精确匹配，与第四参数为0的功能相同；4.有时候为了避免使用单元格区域作为查找区域，第二参数可以使用常量数组的方式，本例中开头的公式就是用到了常量数组。

excel：汉字拼音首字母提取

方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。

不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。

Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。

excel中提取汉字的拼音首字母

excel中提取汉字的拼音首字母
第一步：自定义函数。方法：按ALT＋F11，在弹出窗口下，点击菜单栏里的“插入---模块”，在弹出的插入模块窗口中粘贴以下代码：
Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
hztopy = pystring
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"

vb 获得汉字拼音首字母

py = "G"
Exit Function
If
If Asc(Left(mystr, 1)) >= Asc("哈") And Asc(Left(mystr, 1)) < Asc("击") Then
py = "H"
Exit Function
End If
If Asc(Left(mystr, 1)) >= Asc("击") And Asc(Left(mystr, 1)) < Asc("喀") Then
py = "Z"
Exit Function
End If
Else
If UCase(mystr) <= "Z" And UCase(mystr) >= "A" Then
py = UCase(Left(mystr, 1))
Else
py = mystr
End If
End If
End Function
For i = 0 To Len(str) - 1
getPY = getPY & getPYChar(Mid(str, i + 1, 1))
Next i
End Function
以下代码准确，建议使用
Private Function py(mystr As String) As String '获得汉字的拼音简码
py = "R"
Exit Function
End If
If Asc(Left(mystr, 1)) >= Asc("撒") And Asc(Left(mystr, 1)) < Asc("塌") Then

EXCEL如何提取汉字首字母

方法/步骤1.首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。

在VBE界面中，单击图片中所示的左上角空白处，选择“插入“，”模块“。

2.此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。

3.将下面的代码全部复制粘贴到空白区域。

Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T" Case -12838 To -12557: pinyin = "W" Case -12556 To -11848: pinyin = "X" Case -11847 To -11056: pinyin = "Y" Case -11055 To -2050: pinyin = "Z" Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy& pinyin(Mid(str, i, 1)) Next iEnd Function4.然后关闭这个新界面，返回Excel，就可以像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。

excel_汉字转换成拼音简拼（只取首字母）

excel_汉字转换成拼音简拼（只取首字母）名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式=LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。

有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。

7、将汉字手动改写为相应的字母。

8、核对多音字。

注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按 ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL 加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。

4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。

这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。

代码(只复制星号内的内容)*************************************************************** **************** Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 T o &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC T o &HC2E7: pystring = pystring + "L"Case &HC2E8 T o &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA T o &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 T o &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function*************************************************************** ****************。

excel_汉字转换成拼音简拼(只取首字母)

名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式=LENB(D5)>LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。

有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。

7、将汉字手动改写为相应的字母。

8、核对多音字。

注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按ALT+F11 ，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。

4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。

这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。

代码(只复制星号内的内容)*******************************************************************************Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function*******************************************************************************。

EXCEL-vba中获取汉子拼音首字母

PINYIN BJSXBZZTCDTWZXGMTDKFXM XBJYWCSDTDFKZLXM XBJYWCEDTDFKZLXM XBJYWCSDTDFKZLXM（Y）BJSTBZSTGCZSPXGMTDKFXM JSZXTCWDBJJHZSTDKKXM BJSSJZSJCDPSXGMTDKFXM BJSSLXZYLCSJPPXGMTDKFXM BJSDYZXFCDZBXGMTDKF NYXBJPZXXWCTDZLXM DFXGDXYXCBJLLZTDKFXM BJSDHXJGCGJYKDLBXGMTDKFXM ZCQBJZGXZCHCDKF BJSQXXSKCHCPXGMTDKFXM XBJYYZCTDFKXM（E）XBJYYZCTDFKXM（S）BJSXBZZTCSJBHXGMTDKFXM XXXGCZDSC，XHC，QJC，BJLC，HCD BJSHZJZXCCMZSXGMTDKFXM BJSDYZGFCQGPXGMTDKF BJSTBZXWCHNBYKXGMTDKFXM BJSSLXZYFCZJYDXGMTDKFXM BJSLSZLSPCMWTXGMTDKFXM BJSLSZLHCMYPXGMTDKFXM BJSDHXQGCMSKXGMTDKFXM BJSASXXKCHSPXGMTDKF BJSSLXZYLCGJPPXGMTDKFXM BJSSLXZYLCDJMTXGMTDKFXM BJSDYZHTCYPDSXGMTDKF BJSQXXXRCJDSXGMTDKFXM BJSASXTZCZJPXGMTDKF BJSDYZHTCXSBXGMTDKF BJSQXXFLCHYSDXGMTDKFXM BJSSJZSJCSNDXGMTDKFXM BJSBZZZZCDSCXGMTDKFXM HYSBSXDZCBBJQTTDKFXM WNSLWQNSXNMCBJZTDKFXM BJSXBZHWCGJWXGMTDKFXM BJSXBZHWCHGGXGMTDKFXM BJSXBZSTCSJWXGMTDKFXM BJSXBZSTCBBSXGMTDKFXM BJSXBZSTCLJWXGMTDKFXM BJSXBZZTCMFXGMTDKFXM BJSQXXFLCFJDXGMTDKFXM BJSDYZHTCCDXGMTDKFBJSDYZYQCHLSXGMTDKF BJSCCBZHSCXDKXGMTDKFXM BJSCCBZZGCGJDDGMTDKFXM BJSTBZXWCPZSXGMTDKFXM BJSTBZSTGCZJDPZXGMTDKFXM XBJYWCLDTDFKZLXM（E）XBJYQCWDTDFKZLXM XBJYBCYDTDFKZLXM XBJYNKSTDFKZLXM XBJYBCYDTDFKZLXMY XBJYNKSTDFKZLXMY XBJYLCLDTDFKZLXM XBJYWCLDTDFKZLXM BJSHGTZDBCYZZXGMTDKFXM BJSHGTZDBCHLZXGMTDKFXM BJSHGTZXHCYJFXGMTDKFXM BJSHGTZXHCBFSXGMTDKFXM BJSXBZSTCXLSXGMTDKFXM BJSQXXFLCWJDPXGMTDKFXM BJSXBZSTCDMPXGMTDKFXM BJSSLXZSLCMGDLBXGMTDKFXM GDXXHZBJMCTDFK（Y）YJZZXDBXBJCTDKFXM BJSASXZZCJZZHJDWZXGMTDKF BJSSLXZYFCJJPZXGMTDKFXM XBJYQCSDTDFKZLXM BJSQXXXRCWLSXGMTDKFXM BJSDYZXFCWPFPZXGMTDKF BJSDYZXFCWJFPZXGMTDKF BJSQXXXRCWLSSXGMTDKFXM BJSDYZXFCSJFXGMTDKF BJSSLXZLFCDTLZXGMTDKFXM BJSDYZXFCCKTXGMTDKF BJSDYZXFCGJFXGMTDKF HYXBJZQGHPZDQTQFK BJSTBQZZXCGBXGMTDKFXM BJSDHXJGCDHSXGMTDKFXM BJSDHXLLCDDEXGMTDKFXM BJSLSZXZCYJPXGMTDKFXM BJSLSZXZCLJDDXGMTDKFXM BJSLSZXZCZZLXGMTDKFXM BJSLSZSNTCWJBHXGMTDKFXM BJSLSZLSPCMCBHXGMTDKFXM BJSLSZLHCSLPXGMTDKFXM BJSDHXQGCMBPXGMTDKFXM BJSCHZMLCLFYXGMTDKFXM BJSGLZGLCDPPXGMTDKFXMBJSCHZMLCSYZYSBXGMTDKFXM BJSCHZSHCSZCSXGMTDKFXM BJSCHZTFCBZJTBBXGMTDKFXM BJSHZJZPJZCSCYKXGMTDKFXM BJSHZJZXCCGJLXGMTDKFXM BJSHZJZXCCLTWXGMTDKFXM BJSHZJZHYCYJWXGMTDKFXM BJSBZZYKCBRCXGMTDKFXM BJSBZZZCCHJFXGMTDKFXM BJSBZZZCCYJXGMTDKFXM BJSBZZDXCMZSXGMTDKFXM BJPZYQCTDZLXM BJSXBZHWCMBAXGMTDKFXM XBJYLCSDTDFKZLXM BJZWACJCZFKZLXM BJSQXXSKCXHPXGMTDKFXM BJSQXXSKCWPFXGMTDKFXM BJSQXXSKCZJFXGMTDKFXM BJSQXXSKCGDYKXGMTDKFXM BJSDPZSBCSBDLCXGMTDKFXM BJSDPZLHCDWZXGMTDKFXM BJSDPZGMCDPZXGMTDKFXM BJSDPZZXCDLCXGMTDKFXM BJSDPZSBCMCPXGMTDKFXM BJSHGTZDPZCDHZPDXGMTDKFXM BJSHGTZDPZCSPEDXGMTDKFXM BJSHGTZDBCZCBHXGMTDKFXM BJSHGTZANZCDMTXGMTDKFXM WAXBJZJXC、SKXMGCTDKFXM XBJYWCSDTDFKZLXM（E）XBJYWCSDTDFKZLXM（S）XBJYWCWDTDFKZLXM XBJYWCBDTDFKZLXM BJSTBQZDZSCSZYXGMTDKFXM BJSTBQZWYSCYBBXGMTDKFXM BJSTBQZWYSCDPLJDDXGMTDKFXM BJSTBQZWYSCDPMJDDXGMTDKFXM BJSQXXZTCMZGYXGMTDKFXM BJSQXXFLCTLSYKXGMTDKFXM BJSQXXFLCHSDXGMTDKFXM BJSSJZDZCNCXGMTDKFXM BJSDYZXFCLJWXGMTDKF BJSTBZXJCLJDTXGMTDKFXM XBJYYZCTDFKXM（Y）XBJYWCLDTDFKZLXM（Y）LNSDDSDGSBJZ、MJDZTDZLXM XBJYQCEDTDFKZLXMBJSASXYKTCZJBHXGMTDKF BJSDYZGFCMMSXGMTDKF BJSSJZSJCMJDXGMTDKFXM BJSDYZGFCXXSXGMTDKF BJSDYZGFCDJFXGMTDKF BJSDYZGFCZJFXGMTDKF BJSSLXZSLCMCBXGMTDKFXM BJSSLXZSLCAZYXGMTDKFXM BJSSJZSJCHBTXGMTDKFXM BJSDYZGFCDSXGMTDKF GDXXHZBJMCTDFK（E）BJXMGZTDZLXM CHXBJXXFCCTDFKZLXM BJSLSZSNTCLSSXGMTDKFXM BJSDHXGDHCSGJXGMTDKFXM XXXBLTZBJBCHCDKF2007.159 BJSDHXKLCLJDLBXGMTDKFXM BJSDHXLLCDLBXGMTDKFXM NBJJKFQBHZXBJIIQTDKFXM BJSQXXSKCSDWXGMTDKFXM BJSASXMLCLJDSXGMTDKF BJSDYZHTCHSWXGMTDKF BJSSLXZLFCYJFXGMTDKFXM BJSDYZHTCBJPZXGMTDKF BJSQXXQLGCDPZXGMTDKFXM BJSSLXZLFCSGZXGMTDKFXM BJSDYZHTCPZXGMTDKF BJSASXMWCXTLXGMTDKF BJSQXXQLGCSLPXGMTDKFXM BJSSLXZCYCSLXGMTDKFXM BJSQXXQLGCGDSXGMTDKFXM BJSDYZMWCMASXGMTDKF BJSLSZXZCDHPZXGMTDKFXM AHSLQXFXJXBJLCXYZTDFKXM YCSBJZHPCGYLBCGDXM（Y2010-1）BJSHGTZANZCSGXGMTDKFXM BJSHGTZDPZCWJWZXGMTDKFXM BJSXBZHWCMJXGMTDKFXM BJSXBZZTCMYSXGMTDKFXM BJSXBZHWCSZYKXGMTDKFXM BJSXBZHWCZJFXGMTDKFXM BJSXBZZTCDPXGMTDKFXM BJSXBZZTCWZTXGMTDKFXM LZXLJZ、BJXTDCBGDXM BJSDYZYQCSLPPXGMTDKF ZYSMLXSBJBNTZLXMYCZCJYCJBJBNTZLXM LCXHBZBJCTDFKXM BJXQSXMWCTDZLXMJBXX_XMMC毕节市小坝镇中屯村大塘湾子小规模土地开发项目襄北监狱五场三队土地复垦整理项目襄北监狱五场二队土地复垦整理项目襄北监狱五场四队土地复垦整理项目（一）毕节市田坝镇沙炭沟村钟山坡小规模土地开发项目界首镇兴田村委第八经济合作社土地开垦项目毕节市生机镇生机村大坡上小规模土地开发项目毕节市撒拉溪镇杨柳村孙家皮坡小规模土地开发项目毕节市大银镇新丰村打荞坝小规模土地开发宁远县柏家坪镇小新屋村土地整理项目大方县高店乡营兴村保鸡落梁子土地开发项目毕节市大河乡鸡姑村高家丫口大老包小规模土地开发项目周村区北郊镇固玄庄村荒草地开发毕节市千溪乡沙垮村花厂坪小规模土地开发项目襄北监狱养殖场土地复垦项目（二）襄北监狱养殖场土地复垦项目（三）毕节市小坝镇中屯村苏家背后小规模土地开发项目西乡县高川镇大树村，薛河村，前进村，八角楼村，荒草地开发2005.31毕节市海子街镇西冲村梅子山小规模土地开发项目毕节市大银镇高峰村青杠坪小规模土地开发毕节市田坝镇兴旺村黄纳坝丫口小规模土地开发项目毕节市撒拉溪镇永丰村朱家岩洞小规模土地开发项目毕节市梨树镇梨树坪村麻窝头小规模土地开发项目毕节市梨树镇联合村庙右坡小规模土地开发项目毕节市大河乡青杠村木梳块小规模土地开发项目毕节市阿市乡雄垮村火烧坡小规模土地开发毕节市撒拉溪镇杨柳村顾家皮坡小规模土地开发项目毕节市撒拉溪镇杨柳村邓家麻塘小规模土地开发项目毕节市大银镇黄塘村窑坪大山小规模土地开发毕节市千溪乡兴荣村叫点山小规模土地开发项目毕节市阿市乡头庄村曾家坡小规模土地开发毕节市大银镇黄塘村谢山包小规模土地开发毕节市千溪乡法朗村火焰山顶小规模土地开发项目毕节市生机镇生机村杀牛洞小规模土地开发项目毕节市八寨镇钟寨村大石场小规模土地开发项目华阴市北社乡东栅村坝北九区滩涂地开发项目渭南市临渭区南师乡南马村卞家组土地开发项目毕节市小坝镇河尾村郭家湾小规模土地开发项目毕节市小坝镇河尾村河拐拐小规模土地开发项目毕节市小坝镇水塘村沈家湾小规模土地开发项目毕节市小坝镇水塘村包包上小规模土地开发项目毕节市小坝镇水塘村刘家湾小规模土地开发项目毕节市小坝镇中屯村墓坟小规模土地开发项目毕节市千溪乡法朗村樊家地小规模土地开发项目毕节市大银镇黄塘村川洞小规模土地开发毕节市大银镇羊桥村猴老山小规模土地开发毕节市长春堡镇滑石村硝洞口小规模土地开发项目毕节市长春堡镇垭关村官家大地规模土地开发项目毕节市田坝镇兴旺村坪子上小规模土地开发项目毕节市田坝镇沙炭沟村朱家大坪子小规模土地开发项目襄北监狱五场六队土地复垦整理项目（二）襄北监狱七场五队土地复垦整理项目襄北监狱八场一队土地复垦整理项目襄北监狱农科所土地复垦整理项目襄北监狱八场一队土地复垦整理项目一襄北监狱农科所土地复垦整理项目一襄北监狱六场六队土地复垦整理项目襄北监狱五场六队土地复垦整理项目毕节市何官屯镇大坝村岩嘴嘴小规模土地开发项目毕节市何官屯镇大坝村横梁子小规模土地开发项目毕节市何官屯镇新华村余家坟小规模土地开发项目毕节市何官屯镇新华村宝峰寺小规模土地开发项目毕节市小坝镇水塘村小岭上小规模土地开发项目毕节市千溪乡法郎村王家大坡小规模土地开发项目毕节市小坝镇水塘村洞门坡小规模土地开发项目毕节市撒拉溪镇沙乐村毛狗洞老包小规模土地开发项目广德县新杭镇百家庙村土地复垦（一）印江自治县刀坝乡白金村土地开发项目毕节市阿市乡中寨村旧寨组何家洞湾子小规模土地开发毕节市撒拉溪镇永丰村金家坪子小规模土地开发项目襄北监狱七场三队土地复垦整理项目毕节市千溪乡兴荣村望朗石小规模土地开发项目毕节市大银镇新丰村王婆坟坪子小规模土地开发毕节市大银镇新丰村汪家坟坪子小规模土地开发毕节市千溪乡兴荣村望朗石山小规模土地开发项目毕节市大银镇新丰村申家坟小规模土地开发毕节市撒拉溪镇龙凤村大塘梁子小规模土地开发项目毕节市大银镇新丰村刺枯塘小规模土地开发毕节市大银镇新丰村关家坟小规模土地开发怀远县包集镇清沟河潘圩段弃土区复垦毕节市田坝桥镇螃蟹村沟边小规模土地开发项目毕节市大河乡鸡姑村大火山小规模土地开发项目毕节市大河乡拉罗村洞洞儿小规模土地开发项目毕节市梨树镇新寨村余家坡小规模土地开发项目毕节市梨树镇新寨村罗家大地小规模土地开发项目毕节市梨树镇新寨村桦槁林小规模土地开发项目毕节市梨树镇水牛屯村武家背后小规模土地开发项目毕节市梨树镇梨树坪村煤场背后小规模土地开发项目毕节市梨树镇联合村杉林坡小规模土地开发项目毕节市大河乡青杠村马豹坪小规模土地开发项目毕节市岔河镇木来村漏风丫小规模土地开发项目毕节市戈乐镇戈乐村大偏坡小规模土地开发项目毕节市岔河镇木来村十一组圆山包小规模土地开发项目毕节市岔河镇双华村三组茶山小规模土地开发项目毕节市岔河镇塘丰村八组积塘包包小规模土地开发项目毕节市海子街镇彭家寨村三叉丫口小规模土地开发项目毕节市海子街镇西冲村公鸡岭小规模土地开发项目毕节市海子街镇西冲村烂田湾小规模土地开发项目毕节市海子街镇红堰村扬家湾小规模土地开发项目毕节市八寨镇岩口村帮人场小规模土地开发项目毕节市八寨镇中厂村韩家坟小规模土地开发项目毕节市八寨镇中厂村营脚小规模土地开发项目毕节市八寨镇大兴村苗子山小规模土地开发项目北集坡镇阳泉村土地整理项目毕节市小坝镇河尾村毛稗凹小规模土地开发项目襄北监狱六场四队土地复垦整理项目北极镇旺安村旧村庄复垦整理项目毕节市千溪乡沙垮村小黄坡小规模土地开发项目毕节市千溪乡沙垮村王婆坟小规模土地开发项目毕节市千溪乡沙垮村张家坟小规模土地开发项目毕节市千溪乡沙垮村古洞丫口小规模土地开发项目毕节市对坡镇石板村石板大老厂小规模土地开发项目毕节市对坡镇乐海村大窝子小规模土地开发项目毕节市对坡镇嘎木村大坪子小规模土地开发项目毕节市对坡镇中心村大老厂小规模土地开发项目毕节市对坡镇石板村毛草坪小规模土地开发项目毕节市何官屯镇大坪子村大海子平地小规模土地开发项目毕节市何官屯镇大坪子村山瓢儿地小规模土地开发项目毕节市何官屯镇大坝村猪场背后小规模土地开发项目毕节市何官屯镇阿哪寨村大麻塘小规模土地开发项目万安县百加镇九贤村、韶口乡梅岗村土地开发项目襄北监狱五场四队土地复垦整理项目（二）襄北监狱五场四队土地复垦整理项目（三）襄北监狱五场五队土地复垦整理项目襄北监狱五场八队土地复垦整理项目毕节市田坝桥镇店子上村狮子岩小规模土地开发项目毕节市田坝桥镇弯腰树村圆包包小规模土地开发项目毕节市田坝桥镇弯腰树村大坡李家大地小规模土地开发项目毕节市田坝桥镇弯腰树村大坡糜家大地小规模土地开发项目毕节市千溪乡中屯村苗子滚岩小规模土地开发项目毕节市千溪乡法朗村糖梨树丫口小规模土地开发项目毕节市千溪乡法朗村黄沙地小规模土地开发项目毕节市生机镇大寨村牛场小规模土地开发项目毕节市大银镇新丰村罗家湾小规模土地开发毕节市田坝镇先进村罗家大塘小规模土地开发项目襄北监狱养殖场土地复垦项目（一）襄北监狱五场六队土地复垦整理项目（一）辽宁省丹东市东港市北井子、马家店镇土地整理项目襄北监狱七场二队土地复垦整理项目保靖县大妥乡甘溪村土地复垦项目毕节市阿市乡丫口田村郑家背后小规模土地开发毕节市大银镇高峰村冒冒山小规模土地开发毕节市生机镇生机村梅家地小规模土地开发项目毕节市大银镇高峰村星秀石小规模土地开发毕节市大银镇高峰村丁家坟小规模土地开发毕节市大银镇高峰村朱家坟小规模土地开发毕节市撒拉溪镇双龙村茅草坝小规模土地开发项目毕节市撒拉溪镇双龙村凹子岩小规模土地开发项目毕节市生机镇生机村河坝头小规模土地开发项目毕节市大银镇高峰村大山小规模土地开发广德县新杭镇百家庙村土地复垦（二）保靖县毛沟镇土地整理项目淳化县卜家乡西奉村村土地复垦整理项目毕节市梨树镇水牛屯村螺丝山小规模土地开发项目毕节市大河乡官代河村山根脚小规模土地开发项目西乡县白龙塘镇白家坝村荒草地开发2007.159毕节市大河乡柯罗村刘家大老包小规模土地开发项目毕节市大河乡拉罗村大老包小规模土地开发项目南堡经济开发区滨海镇西北街II区土地开发项目毕节市千溪乡沙垮村沙地弯小规模土地开发项目毕节市阿市乡木拉村刘家大山小规模土地开发毕节市大银镇黄塘村火石湾小规模土地开发毕节市撒拉溪镇龙凤村杨家坟小规模土地开发项目毕节市大银镇黄塘村百家坪子小规模土地开发毕节市千溪乡千朗沟村大坪子小规模土地开发项目毕节市撒拉溪镇龙凤村三锅庄小规模土地开发项目毕节市大银镇黄塘村坪子小规模土地开发毕节市阿市乡麻窝村谢土岭小规模土地开发毕节市千溪乡千朗沟村松林坡小规模土地开发项目毕节市撒拉溪镇朝营村松林小规模土地开发项目毕节市千溪乡千朗沟村鬼打山小规模土地开发项目毕节市大银镇木瓦村马鞍山小规模土地开发毕节市梨树镇新寨村大汗坪子小规模土地开发项目安徽省临泉县范兴集乡半截楼村小于庄土地复垦项目阳春市八甲镇黄坡村果园岭补充耕地项目（阳2010-1）毕节市何官屯镇阿哪寨村深沟小规模土地开发项目毕节市何官屯镇大坪子村文家湾子小规模土地开发项目毕节市小坝镇河尾村庙脚小规模土地开发项目毕节市小坝镇中屯村蚂蚁山小规模土地开发项目毕节市小坝镇河尾村狮子丫口小规模土地开发项目毕节市小坝镇河尾村赵家坟小规模土地开发项目毕节市小坝镇中屯村大坡小规模土地开发项目毕节市小坝镇中屯村湾子头小规模土地开发项目临猗县临晋镇、北景乡土地储备耕地项目毕节市大银镇羊桥村杉林皮坡小规模土地开发张掖市民乐县三堡基本农田整理项目东阳市江北街道原冰塘村造田造地项目禹村镇程家峪村基本基本农田整理项目洛川县槐柏镇贝郊村土地复垦项目保靖县清水乡马王村土地整理项目。

Excel中进行用函数实现提取汉子首字母的操作技巧

Excel中进行用函数实现提取汉子首字母的操作技巧有一些场合，要用到汉字的首字母缩写，而Excel中并没有这样一个函数，可以直接提取汉字的首字母。

今天，店铺就教大家在Excel中进行用函数实现提取汉子首字母的操作技巧。

Excel中进行用函数实现提取汉子首字母的操作步骤首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。

在VBE界面中，单击图片中所示的左上角空白处，选择“插入“，”模块“。

此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区(最保险的做法是双击模块)，然后执行下一步操作。

将下面的代码全部复制粘贴到空白区域。

Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T"Case -12838 To -12557: pinyin = "W"Case -12556 To -11848: pinyin = "X"Case -11847 To -11056: pinyin = "Y"Case -11055 To -2050: pinyin = "Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function然后关闭这个新界面，返回Excel，就可以像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。

EXCEL用VBA代替VLOOKUP函数，速度更快更通用

EXCEL用VBA代替VLOOKUP函数，速度更快更通用VLOOKUP函数是一个纵向查找函数，它是按列查找，最终返回该列所需查询列序所对应的值。

用VLOOKUP函数来查找很方便，不过它的缺点很明显：1、速度慢，特别是在数据量大的情况下。

2、每个单元格你都要维护好公式，如果对应不到会出现#N/A，不是很美观，当然你可以用别的公式来消除，不过这又增加了公式的复杂度。

用VBA代替VLOOKUP函数，不仅速度快，而且把它单独做成模版，下次有类似对应操作的需求时，可以直接复制粘贴进去来使用，不用再维护调整公式数量了，通用性强。

举个例子：把表1学号信息填到表2学号里面VBA代替VLOOKUP函数方法一、最笨的方法就是按照姓名筛选手工填或者CTRL+F批量替代，数据量大了根本不好使。

方法二、在表2学号列填写VLOOKUP函数，比如G2=VLOOKUP(F2,A1:B4,2,FALSE),G3=VLOOKUP(F3,A1:B4,2,FALSE),以此类推。

方法三、用VBA代码，按ALT+F11进入工程界面，输入右侧代码，运行就可以了。

VBA代替VLOOKUP函数下次遇到类似的需求只要把相应的数据复制粘贴到表1和表2，运行一下就可以了。

附上截图代码Sub 引用()Dim i%, r%Dim arr1, arr2arr1 = Sheets('sheet1').[a1].CurrentRegion '表1数据赋值给数组arr1arr2 = Sheets('sheet1').[f1].CurrentRegion '表2数据赋值给数组arr2r = 1For r = 1 To UBound(arr2) '可以看成表2的行数For i = 1 To UBound(arr1) '可以看成表1的行数If arr2(r, 1) = arr1(i, 1) Then '可以看成如果表1和表2各自的第1列数据有一样的arr2(r, 2) = arr1(i, 2) '那么把表1对应的第2列数据赋值给表2的第2列数据Exit For '结束循环遍历End IfNextNextSheets('sheet1').[f1].Resize(UBound(arr2), 2) = arr2 '把更新后的数组arr2复制到表2End Sub。