☰

用于帮助上标单列中多行最后一个字符的宏

tag-icon • tag-icon microsoft-excel formatting macros vba
用于帮助上标单列中多行最后一个字符的宏

我正在向表中添加脚注（总是添加脚注），我真的很希望能够自动执行使符号上标的重复性操作。

当前它是：>进入单元格>突出显示最后一个字符>单击字体框（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

相关内容