查找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://www.zawen.net/post/26.html)

♡♡♡转载请保留上面信息♡♡♡