如何利用Excel批量设置化学式下标

您可以使用以下VBA代码来批量设置选定文本的上下标： ``` Sub SetSuperscriptOrSubscript() '检查选定的文本是否为空 If Selection.Text = "" Then MsgBox "请先选择要设置上下标的文本" Exit Sub End If '检查选定文本的上下标状态，并设置相反的状态 If Selection.Font.Superscript = True Then Selection.Font.Superscript = False Selection.Font.Subscript = True ElseIf Selection.Font.Subscript = True Then Selection.Font.Subscript = False Else Selection.Font.Superscript = True End If End Sub ``` 在上面的代码中，我们首先检查选定的文本是否为空。如果是空的，则会出现一个消息框提示用户选择要设置上下标的文本。如果选定文本不为空，则会检查选定文本的上下标状态，并设置相反的状态。如果选定文本当前为正常文本，则将其设置为上标；如果选定文本当前为上标，则将其设置为下标；如果选定文本当前为下标，则将其设置为正常文本。 您可以将上面的代码复制并粘贴到Word文档的VBA编辑器中，或者将其保存为一个新的宏，并将其分配给快捷键或自定义工具栏按钮。然后，当您需要设置上下标时，只需选择要设置的文本并运行该宏即可。