查找Excel单元格内拼音(Phonetics)的位置和拼音内容

作者:仇朝权 时间:23-09-12 阅读数:493人阅读

大家都知道,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)

分享到:

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

发表评论