excel单元格设置上下标的快捷方式

2024-11-06 12:32:27

推荐回答（3个）

回答（1）：

用宏吧。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Test()
Dim tmpStr, tmpF As String
tmpStr = "CO2"
On Error GoTo Line1
Cells.Find(What:=tmpStr, After:=ActiveCell).Activate
On Error GoTo 0
tmpF = ActiveCell.Address
ActiveCell.Characters(Start:=InStr(ActiveCell, tmpStr) + 2, Length:=1).Font.Subscript = True
Cells.FindNext(After:=ActiveCell).Activate
Do While ActiveCell.Address <> tmpF
ActiveCell.Characters(Start:=InStr(ActiveCell, tmpStr) + 2, Length:=1).Font.Subscript = True
Cells.FindNext(After:=ActiveCell).Activate
Loop
Line1: End Sub
按F5运行此宏，可以把所有CO2（代码中粗体标出，可以修改的）的2改为下标。

关键是要有规律，比如文中所有的几个字母带一个数字的（H2SO4，O2，NH4NO3），数字都改下标，就可以通过编程实现。

回答（2）：

选择2，右击，在下拉菜单选择设置单元格格式，勾选下标，之后确定。

回答（3）：

你说的上下标，是什么意思？有图吗？