EXCEL批量加上标

    Sub sb()
    Dim c As Range
    For Each c In Selection
      For i = 1 To Len(c)
        If Mid(c, i, 1) = "#" Then
         c = Replace(c, "#", "")
         c.Characters(i).Font.Superscript = True
        End If
      Next
    Next
    End Sub