查找Excel单元格内拼音(Phonetics)的位置和拼音内容
大家都知道,Excel支持一种模式叫拼音,就是在文字的上方显示拼音。此功能常常在计算式功能中用来做备注或者记录一些数据。
当然,VBA是可以把这些数据读取出来的,当你不知此法,你会很绝望。
这里,提供了将单元格内拼音读取出来的方法,代码如下:
Sub 复制拼音字段() Dim Rng As Range, i&, rPc&, x As Phonetics Set Rng = Range("B1") Range("B2") = Range("B1").Value rPc = Rng.Phonetics.Count For i = 1 To rPc Set x = Rng.Phonetics(i) 'MsgBox "第" & i & "个拼音字段为:" & x.Text 'MsgBox "第" & i & "个拼音字段位置为:" & x.Start & ",长度为:" & x.Length Range("B2").Characters(x.Start, x.Length).PhoneticCharacters = x.Text Next End Sub
当然,实列的文件也是有的:如何保留微软的拼音字段(PhoneticCharacters )?-Excel VBA程序开发-ExcelHome技术论坛
[本文转自仇朝权随笔_查找Excel单元格内拼音(Phonetics)的位置和拼音内容](http://zawen.net/post/26.html)
♡♡♡转载请保留上面信息♡♡♡
下一篇:水泥路面和沥青路面感想