如何使用Excel VBA为单元格批量添加日语振假名注音？

有一批包含汉字和假名的日语词汇列表，不想手动逐个点击单元格操作「编辑注音」来添加振假名，可通过以下VBA脚本实现自动填充——Excel本身内置了汉字转振假名的功能，手动操作「编辑注音」即可完成转换，以下是适配Excel的脚本实现：

适配后的Excel VBA代码 #

Sub 自动添加日语振假名()
    Dim rng As Range
    Dim cell As Range
    
    ' 处理当前选中的单元格区域
    Set rng = Selection
    
    ' 遍历每个单元格生成振假名
    For Each cell In rng
        ' 清除原有注音内容
        cell.Phonetics.Clear
        
        ' 启用自动振假名生成
        With cell.Phonetics
            .Visible = True
            .AutoReading = True ' 触发Excel自动识别生成振假名
            .Alignment = xlPhoneticGuideAlignmentCenter ' 注音居中对齐
            .Font.Size = 7 ' 设置注音字号
            .Raise = 11 ' 调整注音与汉字的间距
        End With
    Next cell
End Sub

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到新建的模块中
4. 返回Excel界面，选中需要添加振假名的日语词汇单元格区域
5. 按下Alt + F8，选择「自动添加日语振假名」宏并执行；也可添加表单按钮，将该宏绑定到按钮上，点击即可触发

说明 #

你找到的原代码是针对Word的宏，Excel的对象模型与Word不同，因此需要改用Excel的Phonetics对象来处理注音。其中AutoReading = True是核心设置，对应手动操作「编辑注音」时的自动识别功能，能让Excel自动为汉字生成对应的振假名。

内容的提问来源于stack exchange，提问作者user2740769