![用于帮助上标单列中多行最后一个字符的宏](https://linux22.com/image/1280420/%E7%94%A8%E4%BA%8E%E5%B8%AE%E5%8A%A9%E4%B8%8A%E6%A0%87%E5%8D%95%E5%88%97%E4%B8%AD%E5%A4%9A%E8%A1%8C%E6%9C%80%E5%90%8E%E4%B8%80%E4%B8%AA%E5%AD%97%E7%AC%A6%E7%9A%84%E5%AE%8F.png)
我正在向表中添加脚注(总是添加脚注),我真的很希望能够自动执行使符号上标的重复性操作。
当前它是:>进入单元格>突出显示最后一个字符>单击字体框(2007 版本)以打开使用上标的选项>勾选上标框>点击确定>并继续下一步。
你们有谁知道我该怎么说:>查看 A 列中的第 400 行>找到“Symbol”,将该字符串的最后一部分(实际上是 sysmbol)设为上标>转到下一个。
我尝试记录我的一些操作,但上面显示上标 FALSE。所以我肯定做错了什么。
关于如何做到这一点有什么想法或例子吗?
答案1
创建一个由 WorksheetChange 事件触发的宏,然后测试您的符号,然后将其更改为上标(如果存在)。每次更改单元格时都会触发此宏:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
Else
If Right(Target.Value, 1) = CHR(128) Then
Target.Characters(Start:=Len(Target.Value), _
Length:=1).Font.Superscript = True
End If
End If
End Sub